Задано вещественное значение аргумента х,вычислить значение функции у - 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 знаков после запятой - Завершается выполнение программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д