Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.12.2006, 23:04   #21
Bond
 
Регистрация: 18.12.2006
Сообщений: 5
По умолчанию

Цитата:
Сообщение от SuperVisor Посмотреть сообщение
А вы уважаемый себя хакером считаете?
Пока я не претендую на столь высоко звание, но каждодневно совершенствуюсь

Кстати считаю нужным пояснить, что хакер в моём понимании, это не злобный пацан уничтожающий все данные на своём пути и сжигающий все чужие процессоры до которых смог дотянуться своими ручонками через сеть, а человек который: первое - досканально знает языки программирования, второе - соблюдает хакерскую этику (подробнее смотрите книгу "ХАКЕРЫ, Герои Компьютерной Революции"). Вобщем хакеры - это добро.

Извиняюсь за это лирическое отступление. Неудержался.
Bond вне форума
Старый 24.12.2006, 09:19   #22
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

Цитата:
Сообщение от Bond Посмотреть сообщение
Извиняюсь за это лирическое отступление. Неудержался.
Не стоит извинений - пусть это бедет урок тем, кто этого не знает. Я тоже как-то об этом писал, но в кратце.
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума
Старый 03.01.2007, 17:40   #23
pinhead
Пользователь
 
Аватар для pinhead
 
Регистрация: 08.12.2006
Сообщений: 36
По умолчанию

Цитата:
Сообщение от Bond
И вообще, предлагаю устроить конкурс на решение этой задачи. С увекавечаванием имени героя решившего её. Конечно если такое практикуется на этом форуме.
Я могу привести пример программы на TP которая выводит саму себя(без использования файлов и т.д. и т.п.), но имя моё придётся увековечить!!!(шутка (на счёт увековечивания)).
А если серьёзно такая программа существует!!!
Знание этого – Мудрость.
Умение этим пользоваться – Искусство.
pinhead вне форума
Старый 03.01.2007, 17:50   #24
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
Стрелка

Цитата:
Сообщение от pinhead Посмотреть сообщение
Я могу привести пример программы на TP которая выводит саму себя
упрощенный вариант:
Код:
{Virtson 2006}
Uses crt;
 Const c=chr(39);
 Var i: byte; a:array[0..12]of string;
Begin
 clrscr;
 a[0]:=' a[]:=;';
 a[1]:='{Virtson 2006}';
 a[2]:='Uses crt;';
 a[3]:=' Const c=chr(39);';
 a[4]:=' Var i: byte; a:array[0..12]of string;';
 a[5]:='Begin';
 a[6]:=' clrscr;';
 a[7]:=' for i:=1 to 6 do writeln(a[i]);';
 a[8]:=' for i:=0 to 11 do';
 a[9]:=' writeln(#32,a[0,2],a[0,3],i,a[0,4],a[0,5],a[0,6],c,a[i],c,a[0,7]);';
 a[10]:=' for i:=7 to 11 do if i<11 then writeln(a[i]) else write(a[i]);';
 a[11]:='End.';
 for i:=1 to 6 do writeln(a[i]);
 for i:=0 to 11 do
 writeln(#32,a[0,2],a[0,3],i,a[0,4],a[0,5],a[0,6],c,a[i],c,a[0,7]);
 for i:=7 to 11 do if i<11 then writeln(a[i]) else write(a[i]);
End.
вариант с подсветкой синтаксиса :
Код:
{Џа®Ја*¬¬*, "ЇҐз*в*ой*п" б*¬®Ґ ᥡп}
Uses crt; Const c=chr(39); Var i: byte; a:array[0..27]of string;
Begin
 textbackground(1); textcolor(7); clrscr;
 a[0]:=' a[]:=;';
 a[1]:='{Џа®Ја*¬¬*, "ЇҐз*в*ой*п" б*¬®Ґ ᥡп}';
 a[2]:='Uses';
 a[3]:=' crt;';
 a[4]:=' Const';
 a[3]:=' c=chr(39);';
 a[4]:=' Var';
 a[5]:=' i: byte; a:';
 a[6]:='array';
 a[7]:='[0..12]';
 a[8]:='of string;';
 a[9]:='Begin';
 a[10]:=' textbackground(1); textcolor(7); clrscr;';
 a[11]:=' for';
 a[12]:=' i:=2';
 a[13]:=' to';
 a[14]:=' 8';
 a[15]:=' do begin if';
 a[16]:=' odd(i+1)';
 a[17]:=' then';
 a[18]:=' textcolor(14)';
 a[19]:=' else';
 a[20]:=' textcolor(15); write(a[i])';
 a[21]:=' end;';
 a[22]:=' writeln(#10+#13+a[9]); textcolor(14); writeln(a[9]);';
 a[23]:=' for i:=0 to 12 do begin';
 a[24]:=' writeln(#32,a[0,1],a[0,2],i,a[0,4],a[0,5],a[0,6],c,a[i],c,a[0,7]);';
 a[25]:=' end;';
 a[26]:=' for i:=7 to 12 do if i<12 then writeln(a[i]) else write(a[i]);';
 a[27]:='End.';
 writeln(a[1]);
 for i:=2 to 8 do begin if odd(i) then textcolor(14)
     else textcolor(15); write(a[i]); end;
 writeln(#10+#13+a[9]); textcolor(14); writeln(a[9]);
 for i:=0 to 18 do begin
 writeln(#32,a[0,2],a[0,3],i,a[0,4],a[0,5],a[0,6],c,a[i],c,a[0,7]);
 end;
 for i:=11 to 22 do begin if odd(i+1) then textcolor(14)
     else textcolor(15); write(a[i]); end;
 for i:=23 to 27 do if i<27 then writeln(a[i]) else write(a[i]);
End.
в Dos режиме крокозябры должны быть буквами в русской раскладке
Берегите друг друга!

Последний раз редактировалось Virtson; 03.01.2007 в 17:56.
Virtson вне форума
Старый 04.01.2007, 15:42   #25
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Цитата:
Я могу привести пример программы на TP которая выводит саму себя(без использования файлов и т.д. и т.п.)
Вот и отлично. Если она не представляет из себя какой-либо тайны, то выложи ее сюда. Поверь, на тебя обратят внимание.
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума
Старый 05.01.2007, 16:07   #26
pinhead
Пользователь
 
Аватар для pinhead
 
Регистрация: 08.12.2006
Сообщений: 36
По умолчанию

Исходник на TP:
Код:
const a='const a';
b='begin write(a,#61#39,a,#39#59#10#13#98#61#39,b,#39#59#10#13,b)end.';
begin write(a,#61#39,a,#39#59#10#13#98#61#39,b,#39#59#10#13,b)end.
Примечание: Запускать Exe файл, т.к. через Ctrl+F9 консоль не очищается.
Исходник на TP:
Код:
uses crt;const a='uses crt;const a';
b='begin clrscr;write(a,#61#39,a,#39#59#10#13#98#61#39,b,#39#59#10#13,b)end.';
begin clrscr;write(a,#61#39,a,#39#59#10#13#98#61#39,b,#39#59#10#13,b)end.
Примечание: Запускаем как угодно(Exe или Ctrl+F9).
Исходник на Delphi:
Код:
const a='const a';
b='begin write(a,#61#39,a,#39#59#10#13#98#61#39,b,';
c='#39#59#10#13#99#61#39,c,#39#59#10#13#100#61#39,d,';
d='#39#59#10#13,b,#10#13,c,#10#13,d);readln;end.';
begin write(a,#61#39,a,#39#59#10#13#98#61#39,b,
#39#59#10#13#99#61#39,c,#39#59#10#13#100#61#39,d,
#39#59#10#13,b,#10#13,c,#10#13,d);readln;end.
Примечание: Для правильной равоты программы необходимо зайти в пункт меню Проект->Опции и во вклад Компановщик в GroupBox(Опции EXE и DLL) поставить галочку напротив "Консольное приложение".
Вот и всё!!!
Знание этого – Мудрость.
Умение этим пользоваться – Искусство.
pinhead вне форума
Старый 05.01.2007, 17:54   #27
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

Не хочу соврать, и если что исправьте меня, но по моему mihali4 когда-то где-то предлогал забить весь текст программы в строки и показать именно их. Так вот твоя программа именно этим и занимается. Есть еще идеи по реализации данной задачи?
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума
Старый 08.01.2007, 15:34   #28
pinhead
Пользователь
 
Аватар для pinhead
 
Регистрация: 08.12.2006
Сообщений: 36
По умолчанию

Так а в чём ошибка?
Вопрос то как ставился!?
http://programmersforum.ru/showthread.php?t=667(Смотри!!!)
Цитата:
Plague :
А вот еслибы была задача:
"Написать программу которая выводит на экран свой код."
Без всяких там файлов и остальных приблуд и финчей.

То было бы интересно!
И только попробуйте сказать, что приведённые мною коды программ не подходят под решение!!!
Знание этого – Мудрость.
Умение этим пользоваться – Искусство.
pinhead вне форума
Старый 09.01.2007, 16:52   #29
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

Если ты не считаешь СВОЕ решение приблудой, то ты ГЛУБОКО ошибаешься. Твой код код - чушь, которая под силу любому, кто паскаль знает более десяти дней. Ты сделал тоже самое, что и Virtson, только осуществил с помощью HEX-кода... Высшей степени глупость....
Тема закрывается. Ответ на поствленный вопрос был дан. Хотите перенести тему - пишите в личку.
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа печатающая саму себя :o K@$K@ Паскаль, Turbo Pascal, PascalABC.NET 7 09.04.2008 16:24
Как сделать, что бы распечатать??? slim-vm Microsoft Office Excel 2 19.03.2007 06:01