Программа с Паскале - Помощь студентам

bwitcher · 11.12.2010, 14:50

Люди, очень прошу, помогите решить программку с функциями.

Mad_Cat · 11.12.2010, 14:56

Код:

function sign(a:real):integer;
begin
if a>0 then sign:=1
if a<0 then sign:=-1
if a=0 then sign:=0;
end;

bwitcher · 11.12.2010, 15:04

Большое спасибо!

11.12.2010, 14:56	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `function sign(a:real):integer; begin if a>0 then sign:=1 if a<0 then sign:=-1 if a=0 then sign:=0; end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
программа в Паскале	Нютка	Помощь студентам	3	08.10.2010 00:39
Программа в паскале!	zzzZZZzzz	Помощь студентам	5	01.06.2010 20:24
программа на паскале	zoya87	Помощь студентам	0	22.02.2010 15:44
Программа в паскале ))	alien608	Паскаль, Turbo Pascal, PascalABC.NET	2	29.01.2009 18:41
программа в Паскале	vitekbest	Помощь студентам	4	17.12.2007 08:33

11.12.2010, 15:04	#3
bwitcher Форумчанин Регистрация: 09.06.2010 Сообщений: 112	Большое спасибо!