|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.11.2016, 11:20 | #1 |
Пользователь
Регистрация: 11.11.2016
Сообщений: 22
|
FreePascal. Заданы числа A, B, C, D. Найти наибольшие общие делители пар A и B, A и C, A и D.
Нужно решить задачу с использованием процедур и процедур-функций, определяемых программистом. Программа FreePascal.
Заданы числа A, B, C, D. Найти наибольшие общие делители пар A и B, A и C, A и D. Я так понимаю, её нужно решать через function. Заранее огроменное спасибо, т.к. я в этом не особо шарю) |
27.11.2016, 11:55 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Код:
|
28.11.2016, 14:36 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Если не в лоб, а использовать, к примеру, алгоритм Эвклида, получается изящней и быстрее.
Например, для пары 7000 и 7002 будет 0 иттераций вместо 6999 . Ну возможно, я и неправ: трудно спорить с человеком, у которого репутация круче моей в 500 раз Код:
Последний раз редактировалось digitalis; 28.11.2016 в 14:43. |
28.11.2016, 20:07 | #4 | ||
Пользователь
Регистрация: 21.06.2016
Сообщений: 65
|
Цитата:
Цитата:
|
||
28.11.2016, 20:16 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
28.11.2016, 20:19 | #6 |
Пользователь
Регистрация: 21.06.2016
Сообщений: 65
|
Можно и так.
Только я за рекурсивный вариант с одним модом. |
28.11.2016, 20:23 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
29.11.2016, 10:36 | #9 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Да, ошибся малость ... Для выбранной пары разница 3500 против 6999 . Может быть, для другой пары аргументов соотношение будет и обратным. Нужно организовать НИР на предмет диссертации
Последний раз редактировалось digitalis; 29.11.2016 в 11:05. |
29.11.2016, 18:03 | #10 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
Надо еще алгоритм на битовых операциях расмотреть с рекурсией и без. Он побыстрее будет. Как раз для НИР)
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
C#: Найти делители данного натурального числа N, которые являются квадратами какого то числа Х | Namatrasnik | Помощь студентам | 1 | 20.10.2016 16:14 |
найти все простые делители числа н | keyshia_nicole | Visual C++ | 0 | 31.01.2014 18:39 |
Найти все общие делители двух чисел (осталось оптимизировать) | KObotan | Общие вопросы C/C++ | 4 | 13.09.2012 01:27 |
Pascal. Найти все делители числа N | torah | Помощь студентам | 0 | 24.11.2010 10:37 |
Найти все делители числа N | torah | Помощь студентам | 33 | 06.11.2010 00:15 |