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

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

Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

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

textual
var
x,y,a,b: real;
begin
write('Введите x: ');
readln(x);
write('Введите a: ');
readln(a);
while a<=0 do begin
write('Ошибка, "a" введено неправильно! Введите "a" повторно: ');
readln(a);
end;
write('Введите b: ');
readln(b);
while b=0 do begin
write('Ошибка, "b" не может быть равно нулю! Введите "b" повторно: ');
readln(b);
end;
y:=(abs(x-b)/(2*sqrt(a)))-(tan(x)/(b*b));
writeln('y = ',y);
end.

12   голосов, оценка 4.333 из 5


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