Составить программу для вычисления значений заданной функции, используя исходные данные - Turbo Pascal (30037)

Узнай цену своей работы

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

Составить программу для вычисления значений заданной функции, используя исходные данные. Выполнить проверку работы программы, значения аргумента выбрать самостоятельно. a=1.5

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

textual
Листинг программы
const a = 1.5;
var x, y: real;
begin
  write('x = ');
  readln(x);
  if x < 0.3
    then y := a * exp(sin(x)) + 0.7
    else if x > 0.3
      then y := sin(x) / (a + exp(x))
      else y := a * exp(ln(x * x + 4) / 3);
  write('y = ', y:0:10);
  readln
end.

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

  1. const a = 1.5; - объявление константы a равной 1.5
  2. var x, y: real; - объявление переменных x и y типа real
  3. begin - начало блока кода
  4. write('x = '); - вывод значения переменной x на экран
  5. readln(x); - чтение значения переменной x с клавиатуры
  6. if x < 0.3 - проверка условия: если значение x меньше 0.3
  7. then y := a exp(sin(x)) + 0.7 - вычисление значения y по формуле y = a exp(sin(x)) + 0.7
  8. else if x > 0.3 - проверка условия: если значение x больше 0.3
  9. then y := sin(x) / (a + exp(x)) - вычисление значения y по формуле y = sin(x) / (a + exp(x))
  10. else y := a exp(ln(x x + 4) / 3); - вычисление значения y по формуле y = a exp(ln(x x + 4) / 3)
  11. write('y = ', y:0:10); - вывод значения переменной y на экран
  12. readln; - ожидание ввода пользователя
  13. end. - конец блока кода

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

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