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

Arinka_21 · 08.05.2012, 11:05

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 · 08.05.2012, 11:16

Цитата:

Сообщение от Arinka_21

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

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

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 · 08.05.2012, 11:54

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

08.05.2012, 11:05	#1 (permalink)
Arinka_21 Новичок Регистрация: 08.05.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Подпрограммы. Процедуры и функции program p3; var s,t:real; function g(a,b:real); begin g:=(sqr(a)+sqr(b))/(sqr(a)+(2ab)+(3sqr(b))+4); end; write('s=');readln(s); write('t=');readln(t); writeln('otvet=',g(1.2,s)+g(2s,s*t):0:3); readln; end. помогите пожалуйста.....

08.05.2012, 11:05
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На нашем форуме нашлись похожие обсуждения Паскаль. Процедуры, функции, параметры Задача на процедуры и функции Delfi Паскаль. Задача. Массивы. Подпрограммы. Процедуры Pascal. Функции и процедуры

08.05.2012, 11:54	#3 (permalink)
Arinka_21 Новичок Регистрация: 08.05.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо что нашли ошибку...очень благодарна....

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070