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

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

Уравнение 2


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник