обыкновенные несократимые дроби - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

обыкновенные несократимые дроби

Опции

zetsokol	11.01.2006 10:16 Сообщение #1
Новичок Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Александр Репутация: 0	Помогите решить задачку Вывести в порядке возрастания все обыкновенные несократимые дроби, заключенные между 0 и 1, знаменатели которых не превышают 15. Массив при этом заводить не следует. Сообщение отредактировано: zetsokol - 11.01.2006 10:18

Ответов(1 - 5)

klem4	11.01.2006 10:18 Сообщение #2
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Ты хоть понял что написал ? Цитата Вывести в порядке возрастания все обыкновенные несократимые дроби обыкновенные несократимые дроби Приведи пример какая дробь является не сократимой, а какая сократимой, кстатит где-то я видел уже такю тему .. Найду, закрою. Сообщение отредактировано: klem4 - 11.01.2006 10:21 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Lapp	11.01.2006 10:32 Сообщение #3
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Сделай цикл по знаменателю, от 1 до 15, по i Внутренний цикл по числителю, от 1 до i. Делай дробь и сравнивай ее со всеми, которые уже нашел. Если она равно одной из тех, что уже есть - отбросить ее. Если нет - сохранить. Только без массива тут не обойтись.. -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

klem4	11.01.2006 10:34 Сообщение #4
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Цитата(lapp) Только без массива тут не обойтись.. Ну почемуже, например можно юзать файл -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Lapp	11.01.2006 10:50 Сообщение #5
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159	Цитата(klem4 @ 11.01.2006 10:34) Ну почемуже, например можно юзать файл нет, ну можно , конечно... Давай проверять на сократимость. Типа так y:=false; for k:=2 to j do y:=y or ((i div kk)=i)and(j div kk)); if not y then WriteLn(j,'/',i); -------------------- я - ветер, я северный холодный ветер я час расставанья, я год возвращенья домой

zetsokol	12.01.2006 10:11 Сообщение #6
Новичок Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Александр Репутация: 0	А можно всю программу увидеть???

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Переключить на: Стандартный · Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

18.07.2025 14:01

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"