Аглоритм

← →
Начинающий програмер (2003-02-09 21:26) [0]

Здравствуйте, Мастера!
Помогите мне. пожалуйста решить непосильную для меня задачу: нужно вычислить НОД(наибольший общий делитель) двух чисел по алгоритму Евклида, основаному на следующих условиях:
1)НОД(А,в)=НОД(B,R), если А>0, В не равно нулю, а R-остаток от деления А на В
2)НОД(А,R)=В, если R=0
Эти два условия должны выполняться одновременно.
Очень прошуу ВАС помочь мне!
Заранее спасибо.

← →
Palladin (2003-02-09 21:43) [1]

афегеть...

← →
Борис_ (2003-02-09 22:08) [2]

не очень понятно написано что имеено искать...
конкретизируй пожалуйста....

← →
Вадим (2003-02-09 22:17) [3]

Юзай "and"

← →
Palladin (2003-02-09 22:17) [4]

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

← →
Вадим (2003-02-09 22:19) [5]

Еще можно юзать "if"

← →
MAN-IN-RED (2003-02-09 22:37) [6]

Еще можно юзать "begin" и "end"

← →
Ketmar (2003-02-09 23:00) [7]

ЯХДР...

Satanas Nobiscum! 09-Feb-XXXVIII A.S.

← →
ALex44 (2003-02-10 00:31) [8]

function gcd(a, b: Integer): Integer;
procedure Swap;
begin
Result := a;
a := b;
b := Result;
end;
begin
if a < 0 then a := -a;
if b < 0 then b := -b;
if a > b then Swap;
while a > 0 do begin
b := b mod a;
Swap;
end;
end;

← →
uw (2003-02-10 00:56) [9]

Примерно так:

function Nod(a, b: Integer): Integer;
begin
Result := a MOD b;
if Result = 0 then
Result := Abs(b)
else
Result := Nod(b, Result);
end;

← →
uw (2003-02-10 00:59) [10]

З.Ы. Вообще-то никакой Abs и не нужен.

← →
Начинающий програмер (2003-02-10 15:19) [11]

А ещё варианты есть???

← →
MBo (2003-02-10 15:24) [12]

>А ещё варианты есть???
Есть! В половине книжек по Паскалю, да и по другому ЯП рассматривается этот алгоритм. Да и поиск в инете даст тыщи ссылок.

← →
Palladin (2003-02-10 15:29) [13]

← →
начинающий програмер (2003-02-10 21:04) [14]

>MBo
К сожалению книжек по Паскалю у меня нет:(
Да просто поиск в Инете через поисковик выдаёт только мусор
>Palladin Нет. Просто задали несколькими вариантами

← →
Palladin (2003-02-10 21:12) [15]

тут два варианта:
рекурсивный
и через while
не достаточно?
могу while в repeat передалать...

← →
Shadow (2003-02-10 21:23) [16]

вы не поняли: надо юзать Delphi! %))

← →
Palladin (2003-02-10 21:34) [17]

> начинающий програмер © (10.02.03 21:04)

http://mathprog.narod.ru/download.htm
там в конце книжки две...
хотя остальное для тебя тоже полезно будет

Аглоритм Найти похожие ветки