Вот одна маленькая фишка: решение логарифмического уравнения за 3 минуты без математики и какой-либо запары вообще:
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
x,y:double;
begin
for i:=9 to 100 do
for j:=-100 to 100 do
begin
x:=sqr(ln(i-8)/ln(2));
y:=-sqr(sqr(j))+20*j*sqr(j)-150*sqr(j)+500*j-625;
if abs(x-y)<1e-6 then ShowMessage(inttostr(i)+' '+inttostr(j));
end;
end;
К сожалению, воспользоваться этой фичей не удалось, потмоу что, пока на старом ноуте загружался Дельфи, наши поисковики взяли код методом случайного поиска по окнам =)
|