Написал программу на C++. Комментарии приложены.
По степени преобразования различают первичную и производную информацию.
Первичная информация сохраняется или используется в том виде, в каком была получена. Основной метод ее образования — первичный учет (пересчет, перевес, проверка по качеству), а также использование данных входящих документов в неизменном виде.
Преобразованая информация получается путем переработки первичной. Она формируется в результате составления отчетов на основе учетных данных или заимствования полученной первичной информации (составление карточек количественно-суммового учета и журнала регистрации движения товаров на основе товаросопроводительных документов). Надеюсь помогла вам.
#include<iostream>
#include<cmath>
using namespace std;
int main(){
double a,b,c,p,S;
cin >> a >> b >> c;
p = (a + b + c)/2;
S = sqrt(p * (p - a) * (p - b) * (p - c)); // Формула Герона
cout << 2*S/a << "; " << 2*S/b << "; " << 2*S/c; // S = 1/2 a * h1 -> h1 = 2S / a
return 0;
}
{1}
var
n: integer;
begin
write ('Введите заработанную сумму: ');
readln (n);
write ('Вы получите: ', (n*0.77)*0.61)
end.
{2}
var
a: array of double;
n, i: byte;
sum: longint;
begin
write ('Введите кол-во дробных чисел: ');
readln (n);
setLength (a, n);
for i:=0 to n-1 do
begin
write ('Введите ', i+1, ' число: ');
readln (a[i]);
end;
for i:=0 to n-1 do
begin
writeln ('Целая часть ', i+1, ' числа: ', trunc(a[i]));
inc (sum, trunc(a[i]));
end;
write ('Сумма целых частей: ', sum);
end.
{3}
var
a, b, c, p: double;
begin
write ('Введите стороны треугольника: ');
readln (a, b, c);
if (a>=(b+c)) or (b>=(a+c)) or (c>=(b+a)) or (a<=0) or (b<=0) or (c<=0) then
write ('Такой треугольник не существует')
else begin
p:=(a+b+c)/2;
write ('Его S = ', sqrt (p*(p-a)*(p-b)*(p-c)):7:2, ' ед^2' );
end;
end.
Var
{вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. Если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и max2}
x1,y1,x2,y2,x3,y3,max,max2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
max:=sqrt(sqr(x1)+sqr(y1));
max2:=1;
if sqrt(sqr(x2)+sqr(y2))<=max then
begin
max:=sqrt(sqr(x2)+sqr(y2));
max2:=2;
end;
if sqrt(sqr(x3)+sqr(y3))<=max then
begin
max:=sqrt(sqr(x3)+sqr(y3));
max2:=3;
end;
writeln(max,' ',max2);<span>
end.</span>