Составить программу, используя подпрограмму FUNCTION - Pascal ABC

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

Здравствуйте. Кто может - помогите с программой. Само задание ниже. при a=9.7; b=2.7 x принимает значения 4.8; 9.6; 0.44. Начало есть, а дальше не знаю как описывать переменные
const e=2.7;
var a,m,b,x:real;
function vir(m,a,b,x:real):real;
begin
m:=(exp((x+a*b)*ln(b))+exp((a*x)*ln(e)))/exp(1/3*ln(a*b));
end;
__ Заранее благодарен

Код к задаче: «Составить программу, используя подпрограмму FUNCTION - Pascal ABC»

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.

12   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ