Составить программу, используя подпрограмму 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.

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

  1. const a=9.7; — объявляется константа a и присваивается ей значение 9.7
  2. const b=2.7; — объявляется константа b и присваивается ей значение 2.7
  3. function f(x:real):real; — объявляется функция f, которая принимает один аргумент типа real и возвращает значение типа real
  4. f:=(exp(x+ab)+exp(ax))/exp(ln(a*b)/3); — вычисляется значение функции f
  5. begin — начинается блок кода
  6. clrscr; — вызывается функция clrscr для очистки экрана
  7. writeln('При х=4.80 m=',f(4.8)); — выводится строка При х=4.80 m= с последующим значением функции f(4.8)
  8. writeln('При х=9.60 m=',f(9.6)); — выводится строка При х=9.60 m= с последующим значением функции f(9.6)
  9. writeln('При х=0.44 m=',f(0.44)); — выводится строка При х=0.44 m= с последующим значением функции f(0.44)
  10. end.; — заканчивается блок кода

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

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