👤

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!


Răspuns :

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.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!


En Studentsy: Alte intrebari