Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| bestscooter |
10.12.2005 17:43
Сообщение
#1
|
|
Новичок ![]() Группа: Пользователи Сообщений: 14 Пол: Мужской Репутация: 0 |
вот мне надо сделать программу "Решето Эратосфена" в инете нашел ее.. но она сделана как модуль.... ума не хватает переделать ее в программму....
Прикрепленные файлы
erat.pas ( 1.39 килобайт )
Кол-во скачиваний: 192 |
![]() ![]() |
| GoodWind |
12.12.2005 17:14
Сообщение
#2
|
![]() Автооответчик ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
Тогда объяви глобальную переменную типа TInteger1DArray
Кинь на форму Button и Edit. В обработчике события Onclick кнопки напиши: Код EratosthenesSieve(strtoint(edit1.text, a); {a - переменная типа "EratosthenesSieve"} ну а как выводить результат думай уже сам.... например в memo.... -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
bestscooter помогите переделать модуль в программу 10.12.2005 17:43
klem4 вытаскиваешь от туда процедуру и пихаешь в свою пр... 10.12.2005 17:59
bestscooter
вытаскиваешь от туда процедуру и пихаешь в свою п... 11.12.2005 15:29
#$# PaVeL #$# Берешь выделяешь процедуру, нажимаешь копировать, ... 12.12.2005 12:18
GoodWind
я тож так понял и так бы ответил P:]
просто скоп... 12.12.2005 12:35
bestscooter
я тож так понял и так бы ответил P:]
просто скоп... 12.12.2005 16:55![]() ![]() |
|
Текстовая версия | 9.12.2025 0:47 |