Výpočet objemu a povrchu valca

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategória: Zadania Pascal
valec.pngProgram: Valec.pas
Súbor exe: Valec.exe
Vývoják: Valec.gif

Výpočet objemu a povrchu valca.
Pre výpočet objemu válca platí vzťah π·r²·v
Pre výpočet povrchu válca platí vzťah 2·π·r·(r+v)

Pričom:
- r je polomer válca
- v je výška válca
- π je Ludolfovo číslo 3.14159

Program na výpočet π nájdete tu Pi.pas 
{ VALEC.PAS                 Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre vypocet objemu a povrchu valca               }
{ Vstup : polomer r, vyska vy                                       }
{ Vystup: objem a povrch valca                                      }
{                                                                   }
{ Datum:04.02.2004                             http://www.trsek.com }
 
program valec;
uses crt;
const pi=3.14;
var r:real;
    vy:real;
    V:real;
    S:real;
 
begin
     ClrScr;
     Write('Zadaj polomer valca:');
     ReadLn( r );
 
     Write('Zadaj vysku valca:');
     ReadLn( vy );
 
     V := pi*r*r*vy;
     S := 2*pi*r*(r+vy);
 
     WriteLn('Objem valca je  ', V:8:3,' jednotiek.');
     WriteLn('Povrch valca je ', S:8:3,' jednotiek.');
     Readln;
end.