Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 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)+(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.
помогите пожалуйста.....
Arinka_21 вне форума   Ответить с цитированием

Старый 08.05.2012, 11:05
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На нашем форуме нашлись похожие обсуждения

Паскаль. Процедуры, функции, параметры
Задача на процедуры и функции Delfi
Паскаль. Задача. Массивы. Подпрограммы. Процедуры
Pascal. Функции и процедуры

Старый 08.05.2012, 11:16   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,973
Сказал(а) спасибо: 322
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 102185
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 08.05.2012, 11:54   #3 (permalink)
Arinka_21
Новичок
 
Регистрация: 08.05.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо что нашли ошибку...очень благодарна....
Arinka_21 вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 03:15.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.