Программа, выводящая сама себя

[Ins]

GAGARIN-NEW - верно. А теперь посмотри, чем приведенное мной решение принципиально отличается (такое отличие есть). А заодно - скомпилируй и убедись в работоспособности.

[SunKnight]

Люди я в шоке. На 2-й странице (#17) привожу работоспособный пример решения, а все кричат что через Writeln нельзя.

to Ins
а твое решение разве не через Writeln работает?

[Ins]

Люди я в шоке. На 2-й странице (#17) привожу работоспособный пример решения, а все кричат что через Writeln нельзя.

В том виде, что оно приведено - не совсем работает, даже не компилируется, если подправить чтобы компилировалось - выводит текст чуть-чуть не соответсвующий тому, что нужно (количество кавычек не совпадает в процедуре NewStr). Так что - еще чуток его подшлифуй

to Ins
а твое решение разве не через Writeln работает?

Через Writeln. А где я кричал, что через writeln нельзя? %)

[[MoNAMur]]

Куайн, квайн (англ. quine) — компьютерная программа (частный случай метапрограммирования), которая выдаёт на выходе точную копию своего исходного текста. Программисты иногда для забавы занимаются разработкой максимально кратких куайнов на различных языках программирования. (c)wikipedia

http://ru.wikipedia.org/wiki/Quine

[Alex Cones]

Люди, сколько решений, сколько решений....
И никто не догадался выложить исходники Induc`а.

[maxionans]

Я тоже написал свой вариант программы. Конечно, не так круто, как в примере, показанном товарищем Ins, но все же тоже довольно простой:

program ShowSource; {$APPTYPE CONSOLE}
const WORDS : array[ 0..8 ] of String = (
'program ShowSource; {$APPTYPE CONSOLE}', 'const  WORDS : array[ 0..8 ] of String = (',
');', 'var I : Integer;', 'begin', '  WriteLn( WORDS[ 0 ], WORDS[ 1 ], #39, WORDS[ 0 ], #39 );',
'  for I := 1 to High( WORDS ) do Write( #44, #39, WORDS[ I ], #39 );',
'  for I := 2 to High( WORDS ) do WriteLn( WORDS[ I ] );', 'end.' );
var I : Integer;
begin
  WriteLn( WORDS[ 0 ], WORDS[ 1 ], #39, WORDS[ 0 ], #39 );
  for I := 1 to High( WORDS ) do Write( #44, #39, WORDS[ I ], #39 );
  for I := 2 to High( WORDS ) do WriteLn( WORDS[ I ] );
end.

UPDATE:
Удалось написать более короткий вариант, вот что получилось:

program SelfSource; {$APPTYPE CONSOLE} var S : String; begin S := 'program SelfSource; {$APPTYPE CONSOLE} var S : String; begin S := ; Insert( #39 + S + #39, S, 67 ); WriteLn( S ); end.'; Insert( #39 + S + #39, S, 67 ); WriteLn( S ); end.