Ээээ... типааааа... в догонку

[deniska]

Был тут как-то трэд...
Не помню уже где и что...

Так вот, суть-то в чём:
мне сегодня нечего было делать, и я "тряхнул стариной", написал прикольную прогу... (ну и даже сам чуть-чуть прикололся от неё)...
Короче...
Вот та прога, которая сама на экране печатает свой текст:
<Pre>
Program COOL;

uses crt;

const
stnum = 31;
line : array[1..stnum] of string[80] =
(
'Program COOL;',
'',
'uses crt;',
'',
'const',
' stnum = 31',
' line : array[1..stnum] of string[80] =',
' (',
' );',
'',
'var f,g:byte;',
'',
'begin {main}',
' clrscr;',
' f:=0;',
' repeat',
' inc(f);',
' writeln(line[f]);',
' until (f=8);',
' g:=0;',
' repeat',
' inc(g);',
' writeln(#32+#32+#32+#39+line[g]+#39+#44);',
' until (g=stnum-1);',
' inc(g);',
' writeln(#32+#32+#32+#39+line[g]+#39);',
' repeat',
' inc(f);',
' writeln(line[f]);',
' until (f=stnum);',
'end.'
);

var f,g:byte;

begin {main}
clrscr;
f:=0;
repeat
inc(f);
writeln(line[f]);
until (f=8);
g:=0;
repeat
inc(g);
writeln(#32+#32+#32+#39+line[g]+#39+#44);
until (g=stnum-1);
inc(g);
writeln(#32+#32+#32+#39+line[g]+#39);
repeat
inc(f);
writeln(line[f]);
until (f=stnum);
end.
</Pre>

<font size=-2>[ Это сообщение было отредактировано: deniska в 2002-06-12 18:59 ]</font>

[souphead]

Ну это извиняйте МАРАЗМИЩЕ УЖЕ СОВСЕМ КАКОЙТО

[deniska]

в каком плане это маразмище?
естественно, практического применения подобная программа не найдёт...

но!
представлят большой учебный интерес...

Представь, пришёл ты на городскую олимпиаду по программированию... (с твёрдой уверенностью занять первое место и поехать на область)
А тут на тебе
ведь хрен придумаешь такую фишку