Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB7
.3.pas program Lab7;
Const a=6.7; b=1.8;
Var x,y:real;
Begin
writeln('Введите x=');
readln(x);
if x<=0 then y:=sqrt(exp(2*x-b))-1
else y:=1/(sqr(x)+a);
writeln('y=', y:10:2);
end.
Const a=6.7; b=1.8;
Var x,y:real;
Begin
writeln('Введите x=');
readln(x);
if x<=0 then y:=sqrt(exp(2*x-b))-1
else y:=1/(sqr(x)+a);
writeln('y=', y:10:2);
end.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант