Kod: |
$ perl -e 'for($a=1;$a<400;$a++){$b=400-$a;next if ($a>$b+25||$b>$a+25);$s=$a+$b+25;print "a=$a, b=$b, P=", sqrt($s*($s-2*$a)*($s-2*$b)*($s-50))/4,"\n"};'
a=188, b=212, P=698.63147474187 a=189, b=211, P=1185.11273197954 a=190, b=210, P=1497.06744587544 a=191, b=209, P=1731.54329645551 a=192, b=208, P=1917.18176955134 a=193, b=207, P=2067.18218536732 a=194, b=206, P=2188.88349107484 a=195, b=205, P=2286.80829705946 a=196, b=204, P=2363.91326776174 a=197, b=203, P=2422.18747984131 a=198, b=202, P=2462.96791239756 a=199, b=201, P=2487.11523406134 a=200, b=200, P=2495.11240979239 a=201, b=199, P=2487.11523406134 a=202, b=198, P=2462.96791239756 a=203, b=197, P=2422.18747984131 a=204, b=196, P=2363.91326776174 a=205, b=195, P=2286.80829705946 a=206, b=194, P=2188.88349107484 a=207, b=193, P=2067.18218536732 a=208, b=192, P=1917.18176955134 a=209, b=191, P=1731.54329645551 a=210, b=190, P=1497.06744587544 a=211, b=189, P=1185.11273197954 a=212, b=188, P=698.63147474187 |
output generated using printer-friendly topic mod. Vremenska zona: GMT + 01:00.