var pam,pam_,tararam,tiryam_pam_pam:real;
tryam:integer;
begin
GetParam;tryam:=0;tararam:=0.0001;
repeat
inc(tryam);
pam:=papam*Param(pum,pum_)+pum;
pam_:=-1*(papam_*Param_(pum,pum_)-pum_);
tiryam_pam_pam:=sqrt(sqr(pam-pum)+sqr(pam_-pum_));
pum:=pam;pum_:=pam_;
until tiryam_pam_pam<tararam;
end;
И оно работает.
#9900: Девятиступенчатая система защиты
12:45 20.09.2012, IT happens
Пригласили меня в нашу службу безопасности — у их начальника не работала почта внутрикорпоративная. Заводят в кабинет, сажают за комп. С одной стороны начальник СБ стоит, с другой охранник вооружённый. Запуская машину, никуда стараюсь не смотреть: не туда глянешь — не расстреляют, наверное, но премию точно отрежут.
Винда просит пароль. Спрашиваю у начальника СБ:
— Какой пароль?
И тут мне это сверхсекретное чудище с армейским прошлым (безопасник без него не бывает) молвит человеческим голосом:
— От 1 до 9, вон бумажка на мониторе приклеена.