Question

Napisz program na obliczenie objętości pola całkowitego, pole podstawy, przekątną prostopadłlościanu, pole boczne i niewiem jeszcze jakie są inne wzory do prostopadłościanu. Program napisz w języku TURBO PASCAL. z góry bardzo serdecznie dziękuję.

Answer 1

uses crt;
var pb,pp,pc: integer;
p:real;
a,b,c: byte;
begin
write('Podaj a: ');
readln(a);
write('Podaj b: ');
readln(b);
write('Podaj c: ');
readln(c);


pb:= 2*((a*c)+(b*c)); // pole boczne
pp:= a*b; // pole podstawy
pc:= 2*((a*b)+(b*c)+(a*c)); //pole calkowite
p:= sqrt((a*a)+(b*b)+(c*c)); //przekatna
clrscr;
writeln('pole boczne: ',pb);
writeln('pole podstawy: ',pp);
writeln('pole calkowite ',pc);
writeln('przekatna: ',p:0:2);

readln;
end.

 

Liczę na najlepszą odpowiedź. Pozdro