Algorytm i program(Zapomoca Poscala) do obliczania objętości i pola powierzchni stożka.
Z góry dzięki.
Program stozek;uses CRT;var l,r,h:integer;p,v:real;beginclrscr;writeln('Podaj promień podstawy stożka (r)');readln(r);writeln('Podaj długość tworzącej stożka (l)');readln(l);writeln('Podaj wysokość stożka (h)');readln(h);p:=Pi*r*(r+l);v:=Pi*r*r*h/3;writeln('Pole stożka wynosi: ',p:2:4);writeln('Objętość stożka wynosi: ',v:2:4);writeln('Wciśnij ENTER aby zakończyć');readln;End.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Program stozek;
uses CRT;
var l,r,h:integer;
p,v:real;
begin
clrscr;
writeln('Podaj promień podstawy stożka (r)');
readln(r);
writeln('Podaj długość tworzącej stożka (l)');
readln(l);
writeln('Podaj wysokość stożka (h)');
readln(h);
p:=Pi*r*(r+l);
v:=Pi*r*r*h/3;
writeln('Pole stożka wynosi: ',p:2:4);
writeln('Objętość stożka wynosi: ',v:2:4);
writeln('Wciśnij ENTER aby zakończyć');
readln;
End.