Уважаемая публика...
Странная задачка мне вот попалась... Каков должен быть алгоритм программы, которая выводит текст самой себя? В Бейсике есть такой оператор, кажется, LIST, он как раз решает эту задачку... А вот как он работает не понятно...

а в чем проблема?
при исполнении программы на Бейсике файл уже загружен в память
и это - не исполняемый файл, а файл с исходниками (ведь он - интерпретатор)
команда LIST просто читает строки из соответствующей области памяти...

Цитата

Странная задачка мне вот попалась... Каков должен быть алгоритм программы, которая выводит текст самой себя?

не знаю как нормальные люди это делают, но я просто делал дополнительный массив, который содержал строки программы, а потом выводил их дважды: как элементы массива и как строки программы...

Цитата

просто делал дополнительный массив, который содержал строки программы

Это решение подойдет, если ты запрограммировал копирование строк прорграммы из памяти в этот массив. И еще... Если, к примеру, если программа написана на С, то выводиться должна эта же С-программа... Насколько я понимаю, во время выполнения в памяти лежит ассем. вариант программы...

я специально сделал два ответа, чтобы было ясно, что это - ответы на два разных вопроса
1-й ответ - на вопрос о команде LIST
2-й ответ - решение описанной задачки на компиляторах...

Цитата

Если, к примеру, если программа написана на С, то выводиться должна эта же С-программа...

а в этот массив нужно ручками прописать строки твоей программы
т.е. в самих исходниках программы уже будет дублирование (т.к. строки будут в main и в массиве)
а на экране дублирование нуэно будет сделать с помощью вывода содержимого массива дважды.

Это сообщение отредактировал(а) maxim1000 - 21.10.2003, 12:38

Цитата

этот массив нужно ручками прописать строки твоей программы

Это решение не подходит по причине изботочности в коде данной программы.
Были более интересные решения такие как инклюдить тект программы в стоку, но... не то...

Вроде бы решали эту задачку с помощью макросов, но как...?!

Цитата

Это решение не подходит по причине изботочности в коде данной программы.

это в каком смысле избыточность?
для компилятора "строковая константа" и строка программы - никак несвязанные вещи

Цитата

Были более интересные решения такие как инклюдить тект программы в стоку, но... не то...

вообще-то это "но... не то..." хорошо бы формализовать, т.е. наложить какие-то ограничения
а то ведь, если без ограничений, то можно просто открыть файл с исходником и вывести его на экран

Выводит без сохранения табуляции, но это можно поправить, просто лень было. Писалось еще в универе на TP

Код

{self printing by cully, 1998} uses crt; var   s1, s2: array[1..128] of String[64];   p, j: Integer; function QuotedStr(s: String): String; var  i: Integer; begin  for i := Length(s) downto 1 do    if s[i] = '''' then Insert('''', s, i);  s := '''' + s + '''';  QuotedStr := s; end; procedure WriteS(s: String); begin     s1[p] := s;     s2[p] := 'WriteS(' + QuotedStr(s) + ');';     Inc(p); end; begin     ClrScr;     p := 1;     WriteS('{self printing by cully, 1998}');     WriteS('uses crt;');     WriteS('var');     WriteS('s1, s2: array[1..128] of String[64];');     WriteS('p, j: Integer;');     WriteS('function QuotedStr(s: String): String;');     WriteS('var');     WriteS('i: Integer;');     WriteS('begin');     WriteS('for i := Length(s) downto 1 do');     WriteS('if s[i] = '''''''' then Insert('''''''', s, i);');     WriteS('s := '''''''' + s + '''''''';');     WriteS('QuotedStr := s;');     WriteS('end;');     WriteS('procedure WriteS(s: String);');     WriteS('begin');     WriteS('s1[p] := s;');     WriteS('s2[p] := ''WriteS('' + QuotedStr(s) + '');'';');     WriteS('Inc(p);');     WriteS('end;');     WriteS('begin');     WriteS('ClrScr;');     WriteS('p := 1;');     WriteS('for j := 1 to 23 do WriteLn(s1[j]); ReadLn;');     WriteS('for j := 1 to 27 do WriteLn(s2[j]); ReadLn;');     WriteS('for j := 24 to 27 do WriteLn(s1[j]); ReadLn;');     WriteS('end.');     for j := 1 to 23 do WriteLn(s1[j]); ReadLn;     for j := 1 to 27 do WriteLn(s2[j]); ReadLn;     for j := 24 to 27 do WriteLn(s1[j]); ReadLn; end.

http://home.planet.nl/~faase009/Signindex.html

насколько я понял, первые N программ работают по принципу "избыточности", изложенному выше. но я не углублялся особенно. может там ещё чего есть другое...

искренне ваш, qset

Понятно... Тема исчерпана...

Всем спасибо...