Question

Cate puncte cu coordonate intregi sunt continute intr-o sfera de raza R cu centrul in originea sistemului de coordonate? Se considera ca R este un numar natural, R<=30. Amintim ca distanta d dintre un punct cu coordonatele (x, y, z) si originea sistemului de coordonate se determina dupa formula d=sqrt(x^2+y^2+z^2).
Va rog mult in Pascal!

Answer 1

Răspuns:

am numărat punctele din interiorul sferei, dacă le doreşti şi pe cele situate pe supfafaţa sferică, la if pui semnul <=

Explicație:

program nrPuncteInCerc;

var x,y,z,r,contor:integer;

begin

 write('R= '); read(r);

 contor:=0;

 for x:=-r to r do

   for y:=-r to r do

      for z:=-r to r do

          if (x*x+y*y+z*z<r*r) then contor:=contor+1;

 writeln('In sfera de raza ',r,' se contin ',contor,' puncte cu coordonate intregi');

end.