Vzorec Priraďovací príkaz - spracovanie vzorcov
Program pre výpočet parametrov valca.
 
Text prikladu
Back
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.
 
D I S P L A Y  
 
Vypocet parametrov valca.
Vlozte polomer podstavy: 15
Vlozte vysku valca     : 25
  Parametre valca
  ===============
Polomer      :    15.00
Priemer      :    30.00
Vyska        :    25.00
Plocha plasta:  2356.19
Povrch valca :  3769.91
Objem valca  : 17671.46