|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.10.2008, 17:52 | #1 |
Регистрация: 29.10.2008
Сообщений: 3
|
Цикл с постусловием. Алгоритм Евклида.
Здравствуйте помогите пожалуйста сделать программку.
Задание Даны натуральные числа m и n. Найти такие натуральные взаимно простые p и q, что p\q=m\n. Заранее благодарен. |
29.10.2008, 19:12 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
if (m mod x =0) and (n mod x=0) then begin p:=p div x; q:=q div x; end;
программа — запись алгоритма на языке понятном транслятору
|
29.10.2008, 20:33 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Нужно найти НОД(m,n); затем сократить m и n. Получится p и q.
Алгоритм нахождения НОД, в том числе и по Эвклиду, в интернете и учебниках из всех щелей торчит. |
31.10.2008, 10:00 | #4 |
Регистрация: 29.10.2008
Сообщений: 3
|
НОД нашёл, а дальше допетрить не могу((( Если можно выложите весь код программки пожалуйста.
|
31.10.2008, 11:09 | #5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Сокращать дроби учат классе в 4-5. Может вернуться?
p:=m div NOD; q:=n div NOD; |
31.10.2008, 16:29 | #6 |
Регистрация: 29.10.2008
Сообщений: 3
|
Большое спасибо! Ещё в принципе можно и без наездов таких((
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
цикл if... then..else | DeDoK | Общие вопросы Delphi | 8 | 11.10.2008 11:31 |
Цикл For Each | Bu$ter | Microsoft Office Excel | 5 | 24.09.2008 16:49 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |
3-ой цикл | LeoN | Общие вопросы Delphi | 5 | 12.06.2007 14:15 |