Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB7
.1.pas program Lab7;
Const a=2.1; b=5.3; c=1.4;
Var x,y:real;
Begin
Writeln('Введите x=');
Readln(x);
y:=(sqrt(exp(2*x+b))-1.7*cos(c*x))/(ln(sqr(x)+a))+x*x*x;
Writeln('Значение y=', y:5:3);
End.
Const a=2.1; b=5.3; c=1.4;
Var x,y:real;
Begin
Writeln('Введите x=');
Readln(x);
y:=(sqrt(exp(2*x+b))-1.7*cos(c*x))/(ln(sqr(x)+a))+x*x*x;
Writeln('Значение y=', y:5:3);
End.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант