Rozwiązane

napisz procedurę która obliczy objętość graniastosłupa prawidłowego o podstawie trójkąta i kwadratu.



Odpowiedź :

pseudo-pascal:


procedure V;
var
a,h,n,V : real;
begin
writeln('Podaj liczba boków podstawy graniastosłupa');
read(n);
writeln('Podaj długość boku podstawy graniastosłupa');
read(a);
writeln('Podaj wysokość graniastosłupa');
read(h);
V := (h*a*a*n*(cos(Pi/n) / sin(Pi/n)) ) / 4;
writeln('Objetosc graniastoslupa wynosi',V);
end

Inne Pytanie