6.4.. Za poznate vrijednosti površine i baze valjka izračunati odgovarajuću visinu.
Opis programa:
Listing programa:
PROGRAM P06411060;
var
P, B, R, H: real;
begin
writeln('Unesi površinu i bazu valjda');
readln(P);
readln(B);
R:=sqrt(B/3.14);
H:=(P-2*3.14*R)/(2*R*3.14);
writeln('Visina je:', H);
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/064/064_izvedi/06411060.gif)
Index
|
![](../../epp/000/Asistent.jpg) |