Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Prolog
Перезагрузить страницу НОК двух натуральных чисел
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Avis Avis вне форума
Новичок
 
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.12.2018
По умолчанию НОК двух натуральных чисел - 09.01.2019, 14:59

Здравствуйте. Помогите пожалуйста решить задачи.
1.Найти наименьшее общее кратное двух целых чисел.
2. Сформировать новый список из значений элементов заданного списка, расположенных в порядке возрастания
Ответить с цитированием
  (#2 (permalink)) Старый
wanja wanja вне форума
Member
 
Сообщений: 591
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 08.05.2005
По умолчанию 09.01.2019, 16:19

1)
prolog Код:
LCM(A,B,C):-LCD(A,B,C1),
                 C is A*B/C1.% Или C = A*B/C1, в зависимости от диалекта
LCD(A,A,A).
LCD(A,B,C):-A>B,
                 C1 is A-B,
                 LCD(C1,B,C).
LCD(A,B,C):-C1 is B-A,
                 LCD(A,C1,C).
2) В смысле, отсортировать, или оставить только те элементы, которые расположены по возрастанию?
Ответить с цитированием
  (#3 (permalink)) Старый
Avis Avis вне форума
Новичок
 
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.12.2018
По умолчанию 09.01.2019, 16:33

Да, отсортировать
Ответить с цитированием
  (#4 (permalink)) Старый
Винитарх Винитарх вне форума
Специалист
 
Аватар для Винитарх
 
Сообщений: 8,014
Сказал(а) спасибо: 2
Поблагодарили 316 раз(а) в 316 сообщениях
Регистрация: 01.03.2003
Адрес: Краснодар
По умолчанию 09.01.2019, 20:10

wanja, НОД лучше определять не вычитанием, а вычислением остатка от целочисленного деления - так будет значительно быстрее. Иначе вычитать можно маленькое число из очень большого до морковкиного заговения.
(хотя в школах именно так и учат вычислять НОД )

Сортировка на нашем форуме есть и много.
Воспользуйтесь форумным поисковиком с ключевым словом, например, сортировка.

Последний раз редактировалось Винитарх; 09.01.2019 в 20:13
Ответить с цитированием
  (#5 (permalink)) Старый
Alexiski Alexiski вне форума
Любитель давать советы
 
Сообщений: 4,289
Сказал(а) спасибо: 27
Поблагодарили 54 раз(а) в 54 сообщениях
Регистрация: 16.10.2005
По умолчанию 10.01.2019, 04:55

И он не LCD, а GCD - Greatest common divisor
А LCD - это из другой оперы
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
wanja wanja вне форума
Member
 
Сообщений: 591
Сказал(а) спасибо: 1
Поблагодарили 25 раз(а) в 25 сообщениях
Регистрация: 08.05.2005
По умолчанию 11.01.2019, 21:29

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан одномерный массив натуральных чисел. Kate7 Visual Basic 0 18.05.2012 22:02
файл из натуральных чисел tupoi Prolog 7 04.12.2011 19:44
Ближайшее и к n из двух чисел turtles Java 1 30.08.2011 18:46
Нахождение суммы натуральных чисел на С++ Shenan Вопросы начинающих программистов 0 13.12.2010 02:46
Написать функцию нахождения наибольший общий делителя двух натуральных чисел. DrDre9991 Pascal 1 13.10.2010 17:19
Вывести на экран все пары натуральных чисел bastar Вопросы начинающих программистов 1 03.10.2010 21:35
Записать в файл последовательного доступа N натуральных чисел Роман ТС Вопросы начинающих программистов 1 16.09.2010 16:43
Составить список, состоящий из натуральных чисел OKSI55 Lisp 8 16.05.2008 12:39
Составить программу записи натуральных чисел во внешнюю память akylich Assembler 2 05.05.2008 22:55
Создание программы на поиск всех натуральных чисел не превосходящих числа m FARA Вопросы начинающих программистов 2 07.12.2005 12:58
Поизведение двух чисел как найти Ower Lisp 3 10.03.2005 15:31
НОД двух чисел как сделать coder Алгоритмы 3 13.08.2002 23:30



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов