[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й пост

[Aristarh Dark]

Хорошая задача, я спросонья минуты 2 втупливал...

[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

var
  x, y, z: Integer;

begin
  x:=0;
  y:=0;
  z:=0;
  try
    x:=y div z;
    Writeln(x);
  except
    Writeln('div by 0');
    Readln;
  end;
end.

почему блок except-end не срабатывает?)

[Kingcss]

хм, так?

PHP код:

{$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;
 ShowMessage('Epic FAIL!'); 


[NumLock]

Kingcss, нет, не так. SuperProc должна вывести сообщение.

[friz]

...superproc(a,a)...

[Aristarh Dark]

NumLock, - uses SysUtils - там ошибки описаны (в частности деление на ноль).

[NumLock]

потому что ExceptObjProc не определена:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses Windows;

var
  x, y, z: Integer;

function GetExceptionObject(P: PExceptionRecord): TObject;
begin
  Result:=TObject.Create;
end;

begin
  ExceptObjProc:=@GetExceptionObject;
  y:=0;
  z:=0;
  try
    x:=y div z;
    Writeln(x);
  except
    Writeln('div by 0');
  end;
  Readln;
end.

[M.A.D.M.A.N.]

Чотко