IPB
ЛогинПароль:

> Правила раздела!

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

 
Closed Topic Открыть новую тему 
> Программа, которая выводит на экран саму себя
сообщение
Сообщение #1


Гость






Спасибо всем кто не поленился сюда зайти!

Народ!!! В который раз прошу о помощи! Валюсь на сесии!

Нужно написать прогу на Turbo Pascal чтоб она выводила на екран сама себя, без сохранения исходника на диск.

Спасибо!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 156
Пол: Мужской

Репутация: -  0  +


Классная задача, решал с большим удовольствием. Решение на Дельфи, но единственным отличием будет модуль который прописан в 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

Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Ну я ваще обалдел :o
Никогда бы не догадался использовать масив  :)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 156
Пол: Мужской

Репутация: -  0  +


Цитата
Ну я ваще обалдел :o
Никогда бы не догадался использовать масив  smile.gif


А по другому никак!


--------------------
With the best regards Vit

Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






можно через рекурсию
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






"Назвался груздем - полезай в кузов" !!!

Код, если не затруднит, в студию !
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
"Назвался груздем - полезай в кузов" !!!

вообще все более жестоко.
назвался клизмой........ :D

археологоия на форуме не приветсвуется да еще без смысла если. smile.gif
зыкрыто!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




- Текстовая версия 18.12.2017 21:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"