Написать код программы на PascalABC Составить алгоритм и программу для вычисления g и m. [latex]m= 9.8 \frac{c-a}{a-c} cos^{2} ( \alpha 1- \alpha 1 ^{2}) [/latex] [latex] \alpha 1=3.14 \frac{ \alpha }{180} [/latex] [latex]g=4+...
Написать код программы на PascalABC
Составить алгоритм и программу для вычисления g и m.
[latex]m= 9.8 \frac{c-a}{a-c} cos^{2} ( \alpha 1- \alpha 1 ^{2}) [/latex]
[latex] \alpha 1=3.14 \frac{ \alpha }{180} [/latex]
[latex]g=4+(c-a) ^{2} [/latex]
Исходные данные:a=30° c=13 a= -18
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы