Вычислить значение выражения - Free Pascal (94)

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

Помогите, пожалуйста Вычислить значение выражения: - провести проверку корректности введённых данных; - в случае, если данные некорректны, вывести соответствующее сообщение; - если данные корректны, вычислить значение выражения: u=tan^2(4α+βπ)/t

Код к задаче: «Вычислить значение выражения - Free Pascal (94)»

textual
var a,b,t,u:real;
begin
write('t=');
readln(t);
write('alfa=');
readln(a);
write('beta=');
readln(b);
if t=0 then write('Значение u не определено, деление на 0')
else
 begin
  u:=sqr(sin(4*a+b*pi)/cos(4*a+b*pi))/t;
  write('u=',u:0:4);
 end;
end.

7   голосов, оценка 3.714 из 5


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