Question

Napiszesz program w pascalu? Mam zrobic program ktory obliczy pole powierzchni i objętośc stożka. nie wiem co jest nie tak. wyskakuja dwa bledy...

musze podac stala pi=3.14

i obliczyc l z sqrt(h*h+r*r)

Answer 1

Nie powinno być żadnych problemów z działaniem. Program liczy l, objętość stożka wraz z polem całkowitym.

 

program stozek;
var
r,h:integer;
V,l,P:real;
const pi=3.14 ;
begin

writeln('Program obliczajacy pole i objetosc stozka');
writeln('Podaj promien r');
readln(r);
writeln('Podaj wysokosc h');
readln(h);
V:=1/3*pi*sqr(r)*h ;
l:=sqrt(sqr(h)+sqr(r)) ;
P:=pi*sqr(r)+pi*r*l;
writeln('Objetosc stozka wynosi ' ,V:2:1);
writeln('l wynosi ' ,l:2:1);
writeln('Pole calkowite stozka wynosi ', P:2:1);
readln;

end.