Спасибо всем кто не поленился сюда зайти!
Народ!!! В который раз прошу о помощи! Валюсь на сесии!
Нужно написать прогу на Turbo Pascal чтоб она выводила на екран сама себя, без сохранения исходника на диск.
Спасибо!
![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() ![]() |
![]() |
neonix |
![]()
Сообщение
#1
|
Гость ![]() |
Спасибо всем кто не поленился сюда зайти!
Народ!!! В который раз прошу о помощи! Валюсь на сесии! Нужно написать прогу на Turbo Pascal чтоб она выводила на екран сама себя, без сохранения исходника на диск. Спасибо! |
Vit |
![]()
Сообщение
#2
|
Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 156 Пол: Мужской Репутация: ![]() ![]() ![]() |
Классная задача, решал с большим удовольствием. Решение на Дельфи, но единственным отличием будет модуль который прописан в Uses.
Код program Project1; Uses SysUtils; var s:array[1..10] of string;i:integer; begin s[1]:='program Project1;'; s[2]:='Uses SysUtils; var s:array[1..10] of string;i:integer;'; s[3]:='begin'; s[4]:='for i:=1 to 3 do writeln(s[i]);'; s[5]:='For i:=1 to 7 do writeln(format(''s[%d]:=''''%s'''''',[i,s[i]]));'; s[6]:='for i:=4 to 7 do writeln(s[i]);'; s[7]:='end.'; for i:=1 to 3 do writeln(s[i]); For i:=1 to 7 do writeln(format('s[%d]:=''%s''',[i,s[i]])); for i:=4 to 7 do writeln(s[i]); end. -------------------- With the best regards Vit
Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой |
mj |
![]()
Сообщение
#3
|
![]() Adminь ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: ![]() ![]() ![]() |
Ну я ваще обалдел :o
Никогда бы не догадался использовать масив :) |
Vit |
![]()
Сообщение
#4
|
Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 156 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата Ну я ваще обалдел :o Никогда бы не догадался использовать масив ![]() А по другому никак! -------------------- With the best regards Vit
Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой |
Guest |
![]()
Сообщение
#5
|
Гость ![]() |
можно через рекурсию
|
volvo |
![]()
Сообщение
#6
|
Гость ![]() |
"Назвался груздем - полезай в кузов" !!!
Код, если не затруднит, в студию ! |
Altair |
![]()
Сообщение
#7
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 4 825 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата "Назвался груздем - полезай в кузов" !!! вообще все более жестоко. назвался клизмой........ :D археологоия на форуме не приветсвуется да еще без смысла если. ![]() зыкрыто! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
![]() |
Текстовая версия | 19.04.2025 22:33 |