Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/15: Рейтинг темы: голосов - 15, средняя оценка - 4.60
15 / 15 / 11
Регистрация: 13.02.2010
Сообщений: 35

Вычислить наибольший общий делитель двух чисел

16.03.2011, 23:58. Показов 3274. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Рассмотрим следующие соотношение, с помощью которого можно вычислить найбольший общий делитель (НОД) двух чисел:
НОД(a, b) = {a,b=0}{НОД(b,a mod b), b<>0}
Напримеи, если a = 14, b = 78, тогда
НОД(14, 78) = НОД(78, 14) = НОД(14, 8) = НОД(8, 6) = НОД(6, 2) = НОД(2, 0) = 2
Вычисление НОД(14, 78) требует 6 вызовов функции НОД. Обозначим через f(a, b) функцию, которая равна количиству вызовов функции НОД при вычислении НОД(a, b) по данному соотношению. Таким образом f(14, 78) = 6.
Найти такую пару чисел a, b (1<=a<=b<=150 ), для которой значенение f(a, b) есть максимально возможной. Найти значение f(a, b) для такой пары. Если искомых пар несколько –тогда найти хотя бы одну из них.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
16.03.2011, 23:58
Ответы с готовыми решениями:

Найти наибольший общий делитель двух натуральных чисел
Условие:найти наибольший общий делитель двух натуральных чисел a и b. Решение: program Ivan; var m,z:real; i,a,b:integer; begin...

Найти наибольший общий делитель двух заданных натуральних чисел, используя алгоритм Евклида
Найти наибольший общий делитель двух заданных натуральних чисел, используя алгоритм Евклида.

Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух натуральных чисел
Исправьте программу пожалуйста Уровень C. Напишите процедуру, которая вычисляет наибольший общий делитель и наименьшее общее кратное двух...

1
 Аватар для Daemon025
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
17.03.2011, 00:12
Лучший ответ Сообщение было отмечено ystum как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
function GCD(a,b:integer):integer;
begin
    if (b=0) then GCD:=a
        else GCD:=GCD(b,a mod b);
end;
//------------------------------------------------------------------------------
    var m,n:integer;
begin
  write('m= ');
  readln(m);
  write('n= ');
  readln(n);
  if (n>m) then writeln('NOD: ',GCD(n,m))
            else writeln('NOD: ',GCD(m,n));
  Readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.03.2011, 00:12
Помогаю со студенческими работами здесь

Вычислить наименьший общий делитель двух натуральных чисел
Ребят,помогите составить программу с циклом.Pascal ABC. Вычислите наименьший общий делитель двух натуральных чисел.

Найти наибольший общий делитель 3 чисел
Вводится 3 числа .найти наибольший общий делитель этих 3 чисел.И наименьшее общее кратное

Составить функцию, которая определяет наибольший общий делитель двух натуральных
Составить функцию, которая определяет наибольший общий делитель двух натуральных и привести пример ее использования. Пример: ...

Найти наибольший общий делитель восьми натуральных чисел
дано 8 натуральных чисел. найти их наибольший общий делитель. с помощью массива и заполнения массива случайными числами.Помогите...

Описать функцию NOD3(A,В,С), находящую наибольший общий делитель трех чисел
Учитывая соотношение НОД(А, В, С) = НОД(НОД(А, В), С) описать функцию NOD3(A, В, С) целого типа, находящую наибольший общий делитель трех...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru