Для умных программистов

← →
iamdanil © (2005-12-13 17:12) [0]

Кто может написать прогу на паскале, которая выведет на экран самое себя на форуме http://forum.olymp.vinnica.ua/viewtopic.php?id=9 такое задание было столько все парились...
Кто-нибудь придумайте покороче...

← →
Kerk © (2005-12-13 17:16) [1]

Баян

← →
Lamer@fools.ua © (2005-12-13 18:25) [2]

А на Delphi можно?

Project2.dpr
program Project2; {$APPTYPE CONSOLE} {$R "Self.res" "Self.rc"} uses Windows, Classes; var RS: TResourceStream; SS: TStringStream; begin RS := TResourceStream.Create(HInstance, "PROJECT", RT_RCDATA); try SS := TStringStream.Create(""); try SS.CopyFrom(RS, 0); WriteLn; WriteLn("*** PROJECT ***"); WriteLn(SS.DataString); finally SS.Free; end; finally RS.Free; end; RS := TResourceStream.Create(HInstance, "RC", RT_RCDATA); try SS := TStringStream.Create(""); try SS.CopyFrom(RS, 0); WriteLn; WriteLn("*** RC ***"); WriteLn(SS.DataString); finally SS.Free; end; finally RS.Free; end; ReadLn; end.

Self.rc
PROJECT RCDATA LOADONCALL DISCARDABLE Project2.dpr RC RCDATA LOADONCALL DISCARDABLE Self.rc

← →
VirEx © (2005-12-13 18:26) [3]

CONST S="CONST S=;BEGIN WRITE(COPY(S,1,8)+#39+S+#39+COPY(S,16,70)) END.";BEGIN WRITE(COPY(S,1,8)+#39+S+#39+COPY(S,9,54)) END.

← →
SergP. (2005-12-13 18:36) [4]

Самая короткая программа - это пустая программа

← →
Jeer © (2005-12-13 18:38) [5]

"Самая короткая программа - не написанная" (С)

← →
Джо © (2005-12-13 19:50) [6]

Подытожу:
Самая короткая ненаписанная программа - моя!

← →
Piter © (2005-12-13 22:30) [7]

Lamer@fools.ua © (13.12.05 18:25) [2]

ну естественно в задаче нельзя использовать ресурсы. Надо именно с помощью операторов вывода вывести текст программы.

← →
Lamer@fools.ua © (2005-12-13 23:10) [8]

>>Piter © (13.12.05 22:30) [7]

Это противоестественно. В задаче про OP вообще ничего не сказано. Что хочу, то и использую.

>Ради интереса, и если модераторы не против, давайте устроим конкурс на самую короткую программу на паскале или си (отдельно 2 конкурса), которая выводит свой текст на экран. Пробелы и лайнбрейки не в счет. Постим сюда.

П.С. Не надо плиз решений которые ищут прогу в памяти и злобно ее дизассемблируют, или просто читают с диска

← →
Карелин Артем © (2005-12-13 23:31) [9]

program Project2; {$APPTYPE CONSOLE} uses SysUtils; var s: string; f1: TextFile; ch: char; begin s := ChangeFileExt(ParamStr(0), ".dpr"); if not FileExists(s) then s := ParamStr(0); AssignFile(F1, s); Reset(F1); while not Eof(F1) do begin Read(F1, Ch); Write(Ch); end; CloseFile(F1); end.

← →
Труп Васи Доброго © (2005-12-13 23:39) [10]

Блин! Как он красиво попросил контрольную за него сделать, сразу готовую программу и с исходниками :), никто даже и не врубился!
Вот с кого Пазитронычу пример брать надо!

← →
Сайбель Алексей © (2005-12-14 02:09) [11]

2 Труп Васи Доброго © [10]
:O)

2 Карелин Артем © [9]
Низя низя

← →
Slym © (2005-12-14 06:30) [12]

А ассемблер выводить можно?
написать дизасембрер самогосебя...

> А ассемблер выводить можно?
> написать дизасембрер самогосебя...
</I
> П.С. Не надо плиз решений которые ищут прогу в памяти и
> злобно ее дизассемблируют, или просто читают с диска

>

> Самая короткая программа - это пустая программа

Её неельзя будет скомпилить

> CONST S="CONST S=;BEGIN WRITE(COPY(S,1,8)+#39+S+#39+COPY(S,
> 16,70)) END.";BEGIN WRITE(COPY(S,1,8)+#39+S+#39+COPY(S,9,
> 54)) END.

Нормально. кинь на тот форум...

> iamdanil © (15.12.05 16:14) [15]
>
> > CONST S="CONST S=;BEGIN WRITE(COPY(S,1,8)+#39+S+#39+COPY(S,
>
> > 16,70)) END.";BEGIN WRITE(COPY(S,1,8)+#39+S+#39+COPY(S,
> 9,
> > 54)) END.
>
> Нормально. кинь на тот форум...

Это trick... Незная ANSI коды можно такое написать ?

Я такое ещё на ТР писал... Хотя сначала из:

> Кто может написать прогу на паскале, которая выведет
> на экран самое себя на форуме

сперва решил, что нужна программа, которая опубликует свой исходник на форуме. Это уже более "взрослая" задача :-)

> Это trick... Незная ANSI коды можно такое написать ?

на том форуме я уже написал... (я - ROBOT)

Для умных программистов Найти похожие ветки