Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
| bestscooter |
Сообщение
#1
|
|
Новичок ![]() Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
вот мне надо сделать программу "Решето Эратосфена" в инете нашел ее.. но она сделана как модуль.... ума не хватает переделать ее в программму....
Прикрепленные файлы
erat.pas ( 1.39 килобайт )
Кол-во скачиваний: 376 |
![]() ![]() |
| klem4 |
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
вытаскиваешь от туда процедуру и пихаешь в свою программу, только тебе еще придется найти описания типов, которые находятся в одулях math и AP которые используются в этом модуле.
Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
| bestscooter |
Сообщение
#3
|
|
Новичок ![]() Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
|
| #$# PaVeL #$# |
Сообщение
#4
|
|
Пионер ![]() ![]() Группа: Пользователи Сообщений: 91 Пол: Мужской Реальное имя: Павел Репутация: 0 |
Берешь выделяешь процедуру, нажимаешь копировать, открываешь твою прогу, вставляешь туда после
implementationскопированное тобой недавно. Смотришь что в первом файле и не совпадает с твоим, стоящее после слова Usesкопируешь из первого в твою программу разделяя запятой! Ну а если есть глобальные процедуры, константы, типы, используемые процедурой то незабудь их переписать в свою программу! Как понял так и ответил! |
| GoodWind |
Сообщение
#5
|
![]() Автооответчик ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Цитата Как понял так и ответил! я тож так понял и так бы ответил P:] просто скопируй текст процедуры из этого модуля в свою програму и добавь в раздел uses модули math и ap Сообщение отредактировано: GoodWind - -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
| bestscooter |
Сообщение
#6
|
|
Новичок ![]() Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
я тож так понял и так бы ответил P:] просто скопируй текст процедуры из этого модуля в свою програму и добавь в раздел uses модули math и ap вы не совсем мну поняли.... вот мне например надо тогда будет создать на форме 2 компонента: Edit и button потом как то прицепить button и код этой процедуры? ну чтоб при нажатии на кнопку выскакивал ответ.... вот этого я тож не могу сделать..... |
| GoodWind |
Сообщение
#7
|
![]() Автооответчик ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Тогда объяви глобальную переменную типа TInteger1DArray
Кинь на форму Button и Edit. В обработчике события Onclick кнопки напиши: Код EratosthenesSieve(strtoint(edit1.text, a); {a - переменная типа "EratosthenesSieve"} ну а как выводить результат думай уже сам.... например в memo.... -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
![]() ![]() |
|
Текстовая версия | 18.02.2026 18:59 |