Задано вещественное значение аргумента х,вычислить значение функции у - 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.

Объяснение кода листинга программы

  1. Объявлена переменная x типа real
  2. Выводится сообщение x= и происходит чтение значения переменной x из консоли
  3. Проверяется условие cos(x)=0, если оно истинно, то выводится сообщение не допустимый аргумент функции
  4. Если условие cos(x)=0 ложно, то вычисляется значение функции y по формуле sin(x)/cos(x)+xxx и выводится сообщение Y= и значение функции y с точностью до 6 знаков после запятой
  5. Завершается выполнение программы

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5
Похожие ответы