#9899: Обфускация тирьямпампацией

Когда у программистов бывает хорошее настроение, они творят. И часто это настроение находит своё непосредственное выражение в самом родном и близком — в программном коде.

Вот что я обнаружил в листинге своего одногруппника:

procedure TFamPapam.BamBamClick(Sender: TObject);
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;

И оно работает.

Ещё интересное на этом сайте:

#9898: Пожарьте яичницу сами
#9897: All systems go
Сергей Бодров - 10 лет как его нет с нами - Где ты
Фотожаба: Добрая девочка
Спанглс - самый милый косоглазый кот в интернете
Спасибо мама и папа...
Все же выжали!
Неожиданность в бассейне
Жестокая драка в Питере, снятая на регистратор
Экономия должна быть экономной!
И на твоей улице перевернется грузовик с...
Гигантский перемещатель шариков
Рождение дельфинёнка
Белкоколесо
Ославился на весь город
Баскетбольная корзина
Польза екипировки
"Добрый" Сбербанк
Стакан молока, пожалуйста.
Утро невесты в Минске

« все анекдоты и картинки