Вычислить значение функции в зависимости от введенного аргумента - Pascal ABC
Формулировка задачи:
Помогите,пожалуйста.
Решение задачи: «Вычислить значение функции в зависимости от введенного аргумента»
textual
Листинг программы
var
x,y,a: real;
begin
write('Введите x: ');
readln(x);
if x>10 then y:=1/x else
if x<-10 then y:=Sin(x) else begin
write('Введите a: ');
readln(a);
y:=a*x*x;
end;
writeln('y = ',y);
end.
Объяснение кода листинга программы
- Создается переменная
xтипаrealи присваивается ей значение, полученное от пользователя. - Создается переменная
yтипаrealи присваивается ей значение, равное 1/x, если x больше 10, иначе присваивается значение, полученное от пользователя. - Создается переменная
aтипаrealи присваивается ей значение, полученное от пользователя. - Если x меньше или равно 10, то y присваивается значение, полученное от пользователя.
- Если x больше 10, то y присваивается значение, полученное от пользователя.
- Выводится значение переменной
y.