Составить программу определения наибольшего общего делителя двух неотрицательных чисел НОД (a, b) по алгоритму Евклида.

@DenProx · Регистрация: 09.10.2009

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Есть такая вот задачка:

Составить программу определения наибольшего общего делителя двух неотрицательных
чисел НОД (a, b) по алгоритму Евклида. Если a=b, то НОД (a, b) = a или НОД (a, b) = b,
иначе, если a>b, то НОД (a, b) = НОД (ab, b), иначе НОД (a, b) = НОД (a, ba). Последнее
действие выполняется до тех пор, пока a не станет равным b.

есть ли у кого ни будь исходники? наверника уже решалась не однократно))

или может, подскажите как она решается...

@Puporev · 07.07.2010, 14:39

Pascal
1
2
3
4
5
6
7
8
function Nod(a,b:integer):integer;{нахождение НОД алгоритм Эвклида}
begin
while a <> b do
if a > b then
if a mod b <> 0 then a:=a mod b else a:=b
 else if b mod a <> 0 then b:=b mod a else b:=a;
Nod:=a
end;

Добавлено через 37 секунд
Полностью программы глянь здесь
https://www.cyberforum.ru/sear... id=1728227

@DenProx · 08.07.2010, 08:18 **[ТС]**

спасибо, погляжу))

Добавлено через 17 часов 36 минут
Puporev, а пример который вы привели, это и есть НОД по Евклиду я так понял? остается лиш подставить функцию по усовию задачи?

@Puporev · 08.07.2010, 08:53

DenProx, А нафига бы я тогда писал

Сообщение от Puporev

function Nod(a,b:integer):integer;{нахождение НОД алгоритм Эвклида}

@DenProx · 08.07.2010, 09:11 **[ТС]**

Puporev, сори, чет ступил)))) извиняюсь)

Добавлено через 16 минут
оформил примерно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
function Nod(a,b:integer):integer;{нахождение НОД алгоритм Эвклида}
begin
while a <> b do
if a > b then
if a mod b <> 0 then a:=a mod b else a:=b
 else if b mod a <> 0 then b:=b mod a else b:=a;
Nod:=a
end;
 
var aa,bb : integer;
 
begin
WriteLn('Press A: '); read(aa);
WriteLn('Press B: '); read(bb);
 
if aa = bb then
begin
  Nod(aa,bb) := aa or Nod(aa,bb) := bb;
end else
if aa>bb then
begin
  Nod(aa,bb) := Nod(aa*bb,bb);
end else
begin
  while aa<>bb do
    Nod(aa,bb) := Nod(aa, bb*aa);
  end;
end;
 
writeln('NOD = ',nod(aa,bb));
readln;
readln;
end.

но прога не работает, не подскажите где я накосячил? )

@Puporev · 08.07.2010, 09:13

Pascal
1
2
3
4
5
var aa,bb : integer;
begin
WriteLn('Enter A: '); readln(aa);
WriteLn('Enter B: '); readln(bb);
write('Nod=',Nod(aa,bb));

@DenProx · 08.07.2010, 09:17 **[ТС]**

Puporev, ну в первую очередь ругается на присвоение во в этом месте:

Pascal
1
Nod(aa,bb) := aa or Nod(aa,bb) := bb;

Добавлено через 1 минуту
аа! это опять так называемый случай - Тупизны)))

Новые блоги и статьи Все статьи Все блоги /
Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .	ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .
Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .	Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109

	Составить программу определения наибольшего общего делителя двух неотрицательных чисел НОД (a, b) по алгоритму Евклида. 07.07.2010, 14:24. Показов 7620. Ответов 6 Метки нет (Все метки) Доброго времени суток. Есть такая вот задачка: Составить программу определения наибольшего общего делителя двух неотрицательных чисел НОД (a, b) по алгоритму Евклида. Если a=b, то НОД (a, b) = a или НОД (a, b) = b, иначе, если a>b, то НОД (a, b) = НОД (ab, b), иначе НОД (a, b) = НОД (a, ba). Последнее действие выполняется до тех пор, пока a не станет равным b. есть ли у кого ни будь исходники? наверника уже решалась не однократно)) или может, подскажите как она решается... 0

@DenProx Техник 318 / 176 / 27 Регистрация: 09.10.2009 Сообщений: 3,109
	08.07.2010, 08:18 [ТС]
	спасибо, погляжу)) Добавлено через 17 часов 36 минут Puporev, а пример который вы привели, это и есть НОД по Евклиду я так понял? остается лиш подставить функцию по усовию задачи? 0

Опции темы