Bash.org.ru IT Happens Истории ## 7701 – 7800

#7762: Извините за неровный почерк

15:00 13.11.2011, IT happens

Зимняя сессия на заочном факультете. Пара по алгоритмам программирования. Препод ушла на совещание, оставив меня за старшего.

Пишем прогу на Object Pascal в среде Delphi 7. Одногруппник подзывает меня со словами, что у него не работает прога. Мол, по-английски не шпрехаю, глянь сам.

begin

var i, z:integer;

begin

forI:=0to5do

forJ:=0to5do

begin

z:=z+SrnToLnr(StreengGrid1.Ceiis[I,J]),

end;

end.

end;

У меня глаз чуть не выпал от такого «кода».