Подпрограммами - Паскаль, Turbo Pascal, PascalABC.NET

DrDre9991 · 12.09.2010, 07:22

зарание спасибо!!!
Написать функцию нахождения наибольший общий делителя двух натуральных чисел.

Mad_Cat · 12.09.2010, 07:26

Код:

function nod(x,y:integer):integer; 
var r:integer;
begin repeat
r:=x mod y; x:=y; y:=r;
until y=0; nod:=x;end;

12.09.2010, 07:22	#1
DrDre9991 Пользователь Регистрация: 22.05.2010 Сообщений: 17	Подпрограммами зарание спасибо!!! Написать функцию нахождения наибольший общий делителя двух натуральных чисел.

12.09.2010, 07:26	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `function nod(x,y:integer):integer; var r:integer; begin repeat r:=x mod y; x:=y; y:=r; until y=0; nod:=x;end;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
проблема с подпрограммами на паскале	AndrewPl	Помощь студентам	0	26.05.2010 23:01
Проблема с подпрограммами	KoFeMaN	Помощь студентам	1	30.11.2009 00:57
Задача с подпрограммами.	kGxDD	Паскаль, Turbo Pascal, PascalABC.NET	0	09.05.2009 20:01
Задача на двумерные массивы( с подпрограммами)	DimoniusX	Помощь студентам	4	28.04.2009 19:21
Массив с подпрограммами	medic357	Паскаль, Turbo Pascal, PascalABC.NET	0	05.04.2009 18:49