Вычислите значения переменных по заданным расчётным формулам - Turbo Pascal

Формулировка задачи:

Напишите программу Pascal Вычислите значения переменных по заданным расчётным формулам

Код к задаче: «Вычислите значения переменных по заданным расчётным формулам - Turbo Pascal»

textual
VAR
a,b,x,y,d:real;
begin
a := 3.2;
b := 17.5;
x := -4.8;
y := b * Sin(x)/Cos(x) - a/sin(x/a)/sin(x/a);
d := Cos(b*x/a);
writeln('Y=',y:8:2);
writeln('D=',d:8:2);
readln; 
end.

14   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ