22/02/2018, 13:44
24/02/2018, 21:04
25/02/2018, 09:27
25/02/2018, 11:27
25/02/2018, 23:11
26/02/2018, 03:11
axpgn ha scritto:A me ne viene uno solo ...
[...]
var h, k, m, n: integer;
x, y, z, w: real;
OK: boolean;
begin
n:= 0;
for h:=2 to 459 do
begin
m:= round(h*3/4);
for k:=1 to m do
begin
x:=sqrt(h^2 + k^2); y = sqrt((460-h)^2 + k^2); z:= sqrt(460-h)^2 + (345-k)^2);
OK:= (1,0*rond(x) = x) and (1.0*round(y = y) and (1.0*round(z) = z));
if OK then
begin
w:=sqrt(2((xz)^2+(575*x)^2 +(575*z)^2) -(x^4+z^4+575.0^4)/(2(y+z+575));
OK.=1.0*round(w)=w):
if OK then
begin
n.=n+1;
write('P(',n,'): [x, y] = [',460-h,', k,'}', chr(13))
end
end
end
end;
while non keypressed do
end.
26/02/2018, 13:21
Erasmus_First ha scritto:... potresti anche rispondere alla seconda domanada, cioè se è l'unico punto a distanze intere sia dai vertici che dai lati o se ce ne sono altri e allora qquali sono. ...
26/02/2018, 14:58
26/02/2018, 19:45
27/02/2018, 11:28
Skuola.net News è una testata giornalistica iscritta al Registro degli Operatori della Comunicazione.
Registrazione: n° 20792 del 23/12/2010.
©2000—
Skuola Network s.r.l. Tutti i diritti riservati. — P.I. 10404470014.
Powered by phpBB © phpBB Group - Privacy policy - Cookie privacy
phpBB Mobile / SEO by Artodia.