
 |
program Vzorec;
var
p, d, v, { polomer, priemer a výška valca }
q, s, obj : real; { plášť, povrch a objem }
begin
{---- Vstup dát ---- }
WriteLn; WriteLn; { oddeľovacie riadky }
WriteLn('Vypocet parametrov valca.');
Write('Vlozte polomer podstavy: '); { Výzva pre vstup polomeru podstavy }
ReadLn(p); { vloženie hodnoty do prem. p }
Write('Vlozte vysku valca : '); { Výzva pre vstup výšky valca }
ReadLn(v); { vloženie hodnoty do prem. v }
{---- Výpočet hodnôt ---- }
d:= 2*r; { priemer podstavy }
q:= 2*Pi*r*v; { plášť valca
... Pi je štandardná funkcia }
s:= 2*Pi*r*(r+v); { povrch }
obj:= Pi*r*r*v; { objem }
{---- Výpis výsledkov ---- }
WriteLn(' Parametre valca');
WriteLn(' ===============');
WriteLn('Polomer : ',r:8:2); { formátované výsledky }
WriteLn('Priemer : ',d:8:2);
WriteLn('Vyska : ',v:8:2);
WriteLn('Plocha plasta: ',q:8:2);
WriteLn('Povrch valca : ',s:8:2);
WriteLn('Objem valca : ',obj:8:2);
Readln { čaká na ENTER (pred ukončením) }
{ a návratom do editoru }
end. |
|