Найти корни уравнения - Turbo Pascal (33974)

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

Уравнение 2

Код к задаче: «Найти корни уравнения - Turbo Pascal (33974)»

textual
var x,a,y:real;
begin
write('a='); readln(a);
write('x='); readln(x);
if x<-10 then y:=cos(sqr(sqr(x))) else if x<10 then y:=ln(x) else y:=exp(x);
write('y=',y:5:2);
readln
end.

9   голосов, оценка 4.222 из 5


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