VPF::НОД и НОК - Форум программистов

TORQUE

Дата 28.1.2006, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 20.12.2005

Репутация: нет
Всего: нет

Как решить эту задачу
Нужно найти НОД и НОК от n-чисел.
НОД(a1,a2,a3,.......an), НОК(a1,a2,a3,.......an).
НОД-Наибольший общий делитель
НОК-Наименьший общий кратный

DeadSoul

Дата 28.1.2006, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1217
Регистрация: 25.9.2005
Где: Москва

Репутация: нет
Всего: 11

TORQUE, как найди НОК и НОД двух чисел знаешь?

--------------------

Если Вы получили ответ на Ваш вопрос, то нажмите на "Вопрос решен".

Бьем спамеров их же оружием. Пусть весь спам сыпется им
[email protected]

TORQUE

Дата 30.1.2006, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 20.12.2005

Репутация: нет
Всего: нет

DeadSoul ну да. Но я хочу пример на паскале smile

roar

Дата 30.1.2006, 16:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 23.1.2006
Где: Актобе

Репутация: нет
Всего: нет

Найди сначала НОД первых двух чисел (a1,a2), затем НОД получившегося M и следуещего числа a3. Найдешь снова какой нибудь M и находи НОД (M,a4).Продолжай до конца и найдешь общий НОД.
Насчет НОК' а точно не знаю но попытайся точно также smile

armageddon

Дата 31.1.2006, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

чтобы найти Нод- алгоритм Эвклида, про нок не знаю;

DeadSoul

Дата 31.1.2006, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1217
Регистрация: 25.9.2005
Где: Москва

Репутация: нет
Всего: 11

Цитата(armageddon @ 31.1.2006, 16:53

)

чтобы найти Нод- алгоритм Эвклида, про нок не знаю;

НОК(a,b)*НОД(a,b)=a*b

--------------------

armageddon

Дата 1.2.2006, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

вопрос, не про 2 числа, а про n чисел!!!!!!!!!

Akina

Дата 1.2.2006, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: нет
Всего: 454

НОК(a, b, c) = НОК( НОК(a,b), c)
НОД(a, b, c) = НОД( НОК(a,b), c)
НОД(a, b) = НОД(a, b MOD a)
НОК(a, b) * НОД(a, b)=a * b

Этого достаточно для решения исходной задачи.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

armageddon

Дата 1.2.2006, 20:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

Код


uses crt;
var
m,n,a,b,i:longint;
function nod(m,n: integer): integer;
begin
 while m<>n do
 if m>n then m:=m-n
 else n:=n-m;
 nod:=m;
end;
begin
clrscr;
 writeln('введите кол-во чисел');
 readln(n);
 write('введите первое число');
 readln(a);
 for i:=1 to (n-1) do
 begin
 writeln('введите следующее число');
 readln(b);
 {a:=nod(a,b)};
 m:=nod(a,b);
 n:=(a*b) div m;
 end;
 writeln('нод=',m);
 writeln('нок=',n);
readkey;
end.

только протестируй её нормально

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »