Составить программу, используя подпрограмму FUNCTION - Pascal ABC
Формулировка задачи:
Здравствуйте.
Кто может - помогите с программой.
Само задание ниже.
при a=9.7; b=2.7
x принимает значения 4.8; 9.6; 0.44.
Начало есть, а дальше не знаю как описывать переменные
__
Заранее благодарен
Решение задачи: «Составить программу, используя подпрограмму FUNCTION»
textual
Листинг программы
const a=9.7; b=2.7; function f(x:real):real; begin f:=(exp(x+a*b)+exp(a*x))/exp(ln(a*b)/3); end; begin clrscr; writeln('При х=4.80 m=',f(4.8)); writeln('При х=9.60 m=',f(9.6)); writeln('При х=0.44 m=',f(0.44)); end.
Объяснение кода листинга программы
- const a=9.7; — объявляется константа a и присваивается ей значение 9.7
- const b=2.7; — объявляется константа b и присваивается ей значение 2.7
- function f(x:real):real; — объявляется функция f, которая принимает один аргумент типа real и возвращает значение типа real
- f:=(exp(x+ab)+exp(ax))/exp(ln(a*b)/3); — вычисляется значение функции f
- begin — начинается блок кода
- clrscr; — вызывается функция clrscr для очистки экрана
- writeln('При х=4.80 m=',f(4.8)); — выводится строка
При х=4.80 m=
с последующим значением функции f(4.8) - writeln('При х=9.60 m=',f(9.6)); — выводится строка
При х=9.60 m=
с последующим значением функции f(9.6) - writeln('При х=0.44 m=',f(0.44)); — выводится строка
При х=0.44 m=
с последующим значением функции f(0.44) - end.; — заканчивается блок кода