Написать код программы ** PascalABC Составить алгоритм и программу для вычисления g и m....

Question

Написать код программы на PascalABC
Составить алгоритм и программу для вычисления g и m.



Исходные данные:a=30° c=13 a= -18

Answer 1

Var alfa, a1, c, a, g, m, cs : real;
begin
alfa:=30;
c:=13;
a:=-18;
g:=4+(c-a)*(c-a);
a1:=3.14*alfa/180;
cs:=cos(a1-a1*a1);
m:=9.8*(c-a)*(a-c)*cs*cs;
writeln('g = ',g,'  m = ',m);
end.

Результат:
g = 965  m = -8843.80431485503