Задано вещественное значение аргумента х,вычислить значение функции у - Free Pascal (753)
Формулировка задачи:
нужно составить программу в паскале.
Пример - y=tgx+x^3
Решение задачи: «Задано вещественное значение аргумента х,вычислить значение функции у»
textual
Листинг программы
var
x:real;
begin
write('x=');
readln(x);
if cos(x)=0 then writeln('не допустимый аргумент функции') else
writeln('Y=',sin(x)/cos(x)+x*x*x:0:6);
end.
Объяснение кода листинга программы
- Объявлена переменная x типа real
- Выводится сообщение
x=и происходит чтение значения переменной x из консоли - Проверяется условие cos(x)=0, если оно истинно, то выводится сообщение
не допустимый аргумент функции - Если условие cos(x)=0 ложно, то вычисляется значение функции y по формуле sin(x)/cos(x)+xxx и выводится сообщение
Y=и значение функции y с точностью до 6 знаков после запятой - Завершается выполнение программы