Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| дроби, напечатать по возрастанию |
| Client |
Сообщение
#1
|
|
Профи  Группа: Пользователи Сообщений: 865 Пол: Мужской Реальное имя: Вячеслав Репутация:  20   |
помогите пожалуйста
Задача: Найти и напечатать в порядке возрастания все простые несократимые дроби заключенные между 0 и 1, знаменатели которых не превышают 7 (дробь задается двумя натуральными числами-числителем и знаменателем). т.е. 1/2,1/3,2/3,1/4,3/4,1/5,2/5,3/5,4/5... Вот с поиском несократимых дробей постараюсь сам, а вот потом чтобы по возрастанию-нет идеи. вообщем надо циклом, но можно и массивом(если так легче будет). |
   |
 
|
Client дроби 14.11.2007 23:32
Client вот сделал только вывод дробей
uses crt;
var
i,… 14.11.2007 23:57 Boss Уточни что есть по возрастанию??? К примеру 2/3 … 15.11.2007 1:34 TarasBer Эту задачу оптимальнее через ряд Фарея делать
htt… 15.11.2007 2:00
Malice
Эту задачу оптимальнее через ряд Фарея делать
:… 15.11.2007 2:49 Boss 2Malice если не сложно кинь пример с рекурсией, а … 15.11.2007 5:26 Malice
2Malice если не сложно кинь пример с рекурсией, а… 15.11.2007 11:58 Client
именно так. И вывести надо как дробь 6/7....
поп… 15.11.2007 11:34 Client uses crt;
var
i,n,m:0..7;
c:boolean;… 16.11.2007 11:09 Malice
Вот подставил и все работает)
Спасибо за помощь в… 16.11.2007 14:31 Client Спасибо за совет :good:
Процедуры и функции, а те… 16.11.2007 22:20 pefeUnsaste посоветуйте пожалуйста хорошую зоо клинику в москв… 29.06.2012 5:12 -Алексей- Ребят, а помогите эту же задачу решить только на с… 1.10.2012 1:48 TarasBer Заменяешь begin и end на {}, = на ==, := на =. 1.10.2012 2:19 Angelina Что значит clrscr и readkey ??? 9.10.2014 21:00  |
|
Текстовая версия | 7.11.2025 2:38 |
