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

Задача!!!   Найти похожие ветки 

← →
Ученик!   (2004-02-11 16:19) [0]

Помогите решить задачу на TURBO PASCAL!
Составить программу для нахождения НОД двух натуральных чисел M и N по алгоритму Евклида. НОД=М, если M=N, если M больше N, то M=M-N, иначе N=N-M.

---

← →
pasha_golub ©   (2004-02-11 16:24) [1]

Если знаешь сам алгоритм, то составить программку - раз плюнуть. Ты знаешь этот алгоритм? Много ли заплатишь за твою работу?

---

← →
Ученик!   (2004-02-11 16:33) [2]

Я не знаю алгоритма! Подскажите пожалуйста!

---

← →
Palladin ©   (2004-02-11 16:37) [3]

так узнай алгоритм, в любом учебнике или наконец же в инете...
что ты лезешь в программирование не зная математики уровня средней школы...

---

← →
Ученик!   (2004-02-11 16:43) [4]

Разъясните, что за алгоритм??? Меня сестра попросила, но я ничего в этом не понимаю!!!

---

← →
TUser ©   (2004-02-11 16:44) [5]

Алгоритм Евклида в средней школе не проходят. Кажется.
А состоит он в том, что если число является делителем А и делителем Б, то оно обязательно является делителем А-Б. Соотвекственно НОД(А,Б)=НОД(А-Б,Б) при А>Б. Можно те только минус писать, но еще и mod, если разрешено. Вот так и уменьшаешь числа, пока не найдешь этого делителся, т.е. пока A<>Б. Пожробнее - вроде бы любой учебник по алгоритмам начинается именно с этого алгоритма.

---

← →
Oyster ©   (2004-02-11 16:47) [6]

Ну если чуть-чуть подумать лень, то так:

Function gcd(n,m:Integer):integer;
begin
While m*n>0 do
if m>n then m:=m-n else n:=n-m;
if n>0 then gcd:=n else gcd:=m;
end;

---

← →
Думкин ©   (2004-02-11 17:03) [7]

Если Евклид без Атлонов и Си додумался, то уж как-нить?

---

← →
TUser ©   (2004-02-11 17:06) [8]

2 Думкин
Не факт. Не должны же мы уметь сделать все то, что могли сделать великие греки. Пифагор свою теорему доказывал (ну, не сам, конечно) так, что сам черт не разберет.

---

← →
Думкин ©   (2004-02-11 17:14) [9]

> [8] TUser © (11.02.04 17:06)

И...? предмет разговора есть НОД для любомого матемаатика и программиста.

---

← →
Sandman25 ©   (2004-02-11 17:31) [10]

[6] Oyster © (11.02.04 16:47)

Только вместо * лучше or ИМХО.

---

← →
Sandman25 ©   (2004-02-11 17:32) [11]

То есть and :)

---

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

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



Память: 0.47 MB
Время: 0.011 c