Подпрограммы. Процедуры и функции

[Arinka_21]

Подпрограммы. Процедуры и функции

program p3;
var s,t:real;
function g(a,b:real);
begin
g:=(sqr(a)+sqr(b))/(sqr(a)+(2*a*b)+(3*sqr(b))+4);
end;
write('s=');readln(s);
write('t=');readln(t);
writeln('otvet=',g(1.2,s)+g(2*s,s*t):0:3);
readln;
end.
помогите пожалуйста.....

 

[Vladimir_S]

помогите пожалуйста...

Пожалуйста. Отсутствует формат идентификатора функции. У Вас:

function g(a,b:real);

Надо:

function g(a,b:real):real;

И да, еще не вижу открывающего begin в теле программы.

Короче говоря, надо так:

program p3;
var 
 s,t:real;

function g(a,b:real):real;
begin
 g:=(sqr(a)+sqr(b))/(sqr(a)+(2*a*b)+(3*sqr(b))+4);
end;

begin 
 write('s= ');
 readln(s);
 write('t= ');
 readln(t);
 writeln('otvet= ',g(1.2,s)+g(2*s,s*t):0:3);
 readln;
end.

 

[Arinka_21]

спасибо что нашли ошибку...очень благодарна....