Question

Sa se elaboreze un program Pascal ce calculeaza volumul unei sfere cu valori introdse de la tastatura. Valorile nu pot fi negative. Dau funda

Answer 1

Răspuns:

program sfera;

var r,v:real;

begin

 write('raza sferei: '); read(r);

 while (r<0) do

     begin

        writeln('raza nu poate fi negativa...');

        write('raza sferei: '); read(r);

     end;

 v:=4*pi*r*r*r/3;

 writeln('volumul sfere, v=', v);

end.

Explicație: