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