[Bargest]

Когда был в 11м классе придумал с другом одну задачку. Не то, чтоб шибко сложную, скорее просто прикольную. Вспомнилась в связи с одним недавним постом на этом форуме.

Код:

{$APPTYPE CONSOLE}

uses Dialogs;

procedure SuperProc(var a, b: integer);
begin
 a := 1;
 b := 2;
 if (a=1) then 
    exit
 else 
    ShowMessage('Epic FAIL!');
end;

...

Суть: написать программу с использованием этой процедуры (не внося изменений в неё) так, чтобы процедура выдала сообщение 'Epic FAIL!'. Грубо говоря, писать код можно только на месте многоточия.

[Pilot_Red]

решено .....

[Bargest]

Ага.
Мне некоторые предлагали всякую жуть вплоть до мыслей "надо как-то модифицировать код..."

[Pilot_Red]

Сообщение от Bargest

Ага.
Мне некоторые предлагали всякую жуть вплоть до мыслей "надо как-то модифицировать код..."

Классная задачка, пойду корешу покажу!

[ildvild]

Решил. Интересно у кого какое решение.

[dr. F.I.N.]

....................(x, x)....................

[Bargest]

Сообщение от ildvild

Решил. Интересно у кого какое решение.

Я думаю, решение тут одно. Если, конечно, не брать особое извращенство вроде модификации машинного кода процедуры.
З.Ы. 900й пост