Форум: "Потрепаться";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
IAmDanil ©   (2005-12-15 16:09) [13]

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

>

---

← →
iamdanil ©   (2005-12-15 16:11) [14]

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

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

---

← →
iamdanil ©   (2005-12-15 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.

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

---

← →
Esu ©   (2005-12-15 16:22) [16]

> 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 коды можно такое написать ?

---

← →
Marser ©   (2005-12-15 16:26) [17]

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

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

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

---

← →
iamdanil ©   (2005-12-15 16:28) [18]

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

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

---

Страницы: 1 вся ветка

Форум: "Потрепаться";
Текущий архив: 2006.01.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.49 MB
Время: 0.008 c