Форум: "Потрепаться";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
ВнизАглоритм Найти похожие ветки
← →
Начинающий програмер (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]
> Начинающий програмер © (10.02.03 15:19)
непонял...
ты коллекционер чтоли?
← →
начинающий програмер (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
там в конце книжки две...
хотя остальное для тебя тоже полезно будет
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.007 c