Question

Написать код программы на PascalABC
Составить алгоритм и программу для вычисления g и m.
$m= 9.8 frac{c-a}{a-c} cos^{2} ( alpha 1- alpha 1 ^{2})$
$alpha 1=3.14 frac{ alpha }{180}$
$g=4+(c-a) ^{2}$
Исходные данные: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