Написать программу на языке pascal для расчета значений заданной функции - Turbo Pascal

Формулировка задачи:

ЗАДАНИЕ: Написать программу на языке pascal для расчета значений заданной функции. ФУНКЦИЯ: P=Ln(/1-a)+cos (a+x) При условии: а=0.,3 X-вводится с клавиатуры <1.2

Решение задачи: «Написать программу на языке pascal для расчета значений заданной функции»

Листинг программы

var
  x, a, p: real;
 
begin
  a := 0.3;
  readln(x);
  P := Ln(sqr(a)) / (1 - a) + cos(a + x);
  writeln(p);
end.

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

В начале кода объявляются три переменные: x, a и p типа real (число с плавающей точкой).
Переменной a присваивается значение 0.3.
Пользователю предлагается ввести значение переменной x.
Значение переменной p вычисляется по формуле: P := Ln(sqr(a)) / (1 - a) + cos(a + x).
Значение переменной p выводится на экран.

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

7 голосов , оценка 3.571 из 5

Похожие ответы