Обчислить значение функции используя if...then....else - Pascal
Решение задачи: «Обчислить значение функции используя if...then....else»
textual
Листинг программы
Uses
CRT;
Var
x,y:real;
begin
ClrScr;
write('Ââåäèòå X: ');
readln(x);
if x<-1 then
y:=-1*(pi+sqrt(abs(sin(x)/exp(x+pi))))
else
if (x>=-1) and (x<1) then
y:=sqr(cos(x))+1.2+exp(-6*ln(10))
else
y:=sqr(sin(x*X*x))+x*ln(x+1);
writeln('Y:=',y);
readkey
end.
Объяснение кода листинга программы
- Объявлены две переменные: x и y типа real.
- Заголовок модуля CRT (Console I/O).
- Вывод на экран инструкции для ввода значения переменной X.
- Ввод значения переменной X с клавиатуры.
- Если значение X меньше -1, то значение переменной Y равно -1*(пи+корень из абсолютного значения синуса(X)/экспонента(X+пи)).
- Если значение X больше или равно -1 и меньше 1, то значение переменной Y равно квадрату косинуса(X)+1.2экспонента(-6лог(10)).
- Если значение X больше или равно -1 и меньше 1, то значение переменной Y равно квадрату синуса(XX)+Xлог(X+1).
- Вывод значения переменной Y.
- Ожидание нажатия клавиши.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д