Скачать: CL | DM;

Наибольший Общий Делитель   Найти похожие ветки 

← →
Th ©   (2002-11-28 18:33) [0]

Подскажите, плз, как найти НОД, в школе делал, а сейчас не соображу, вот что 6 лет института с людьми делают ;(

---

← →
pasha_golub ©   (2002-11-28 18:38) [1]

Используй алгоритм Эвклида

---

← →
pasha_golub ©   (2002-11-28 18:42) [2]

function NOD(a,b: integer):integer;
var a1,b1,r:integer;
begin
a1 := max(a,b);
b1 := min(a,b);
r := a1 mod b1;
if r > 0 then NOD(b1,r) else Result := a1
end;

---

← →
Th ©   (2002-11-28 18:43) [3]

Это я помню, там по-моему рекурсия с каким-то вычитанием, но вот точно вспомнить не получается

---

← →
Th ©   (2002-11-28 18:45) [4]

Пасиба большое ;)

---

← →
pasha_golub ©   (2002-11-28 18:50) [5]

function NOD(a,b: integer):integer;
var a1,b1,r:integer;
begin
a1 := max(a,b);
b1 := min(a,b);
r := a1 mod b1;
if r > 0 then Result := NOD(b1,r) else Result := a1
end;

Пардон, забыл.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c