|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Задачка на понимание
Когда был в 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; ... jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 16.04.2012 в 18:42. |
#2
|
||||
|
||||
решено .....
Последний раз редактировалось Pilot_Red, 16.04.2012 в 19:04. |
#3
|
||||
|
||||
Ага.
Мне некоторые предлагали всякую жуть вплоть до мыслей "надо как-то модифицировать код..." jmp $ ; Happy End! The Cake Is A Lie. |
#4
|
||||
|
||||
Цитата:
|
#5
|
|||
|
|||
Решил. Интересно у кого какое решение.
|
#6
|
||||
|
||||
....................(x, x)....................
Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. Последний раз редактировалось dr. F.I.N., 16.04.2012 в 20:04. |
#7
|
||||
|
||||
Цитата:
З.Ы. 900й пост jmp $ ; Happy End! The Cake Is A Lie. Последний раз редактировалось Bargest, 16.04.2012 в 20:31. |
#8
|
||||
|
||||
Хорошая задача, я спросонья минуты 2 втупливал...
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#9
|
||||
|
||||
Код:
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 не срабатывает?) Пишу программы за еду. __________________ |
#10
|
|||
|
|||
хм, так?
PHP код:
|
#11
|
||||
|
||||
Kingcss, нет, не так. SuperProc должна вывести сообщение.
Пишу программы за еду. __________________ |
#12
|
||||
|
||||
...superproc(a,a)...
Последний раз редактировалось Admin, Сегодня в 10:32. |
#13
|
||||
|
||||
NumLock, - uses SysUtils - там ошибки описаны (в частности деление на ноль).
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#14
|
||||
|
||||
потому что 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. Пишу программы за еду. __________________ |
#15
|
||||
|
||||
Чотко
|