Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.10.2008, 17:52   #1
BioVis
 
Регистрация: 29.10.2008
Сообщений: 3
Вопрос Цикл с постусловием. Алгоритм Евклида.

Здравствуйте помогите пожалуйста сделать программку.

Задание
Даны натуральные числа m и n. Найти такие натуральные взаимно простые p и q, что p\q=m\n.

Заранее благодарен.
BioVis вне форума Ответить с цитированием
Старый 29.10.2008, 19:12   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

if (m mod x =0) and (n mod x=0) then begin p:=p div x; q:=q div x; end;
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 29.10.2008, 20:33   #3
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Нужно найти НОД(m,n); затем сократить m и n. Получится p и q.
Алгоритм нахождения НОД, в том числе и по Эвклиду, в интернете и учебниках из всех щелей торчит.
puporev вне форума Ответить с цитированием
Старый 31.10.2008, 10:00   #4
BioVis
 
Регистрация: 29.10.2008
Сообщений: 3
По умолчанию

НОД нашёл, а дальше допетрить не могу((( Если можно выложите весь код программки пожалуйста.
BioVis вне форума Ответить с цитированием
Старый 31.10.2008, 11:09   #5
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Сокращать дроби учат классе в 4-5. Может вернуться?
p:=m div NOD; q:=n div NOD;
puporev вне форума Ответить с цитированием
Старый 31.10.2008, 16:29   #6
BioVis
 
Регистрация: 29.10.2008
Сообщений: 3
По умолчанию

Большое спасибо! Ещё в принципе можно и без наездов таких((
BioVis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
цикл 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