Vypočíta obvod kruhu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu
kruh.pngProgram: Kruh.pas
Subor exe: Kruh.exe

Vypočíta obvod kruhu. Vypočíta obsah kruhu.
Pre výpočet obvodu platí vzťah 2·π·r.
Pre výpočet obsahu platí vzťah π·r².

Pričom:
- r je polomer kruhu
- π je Ludolfovo číslo 3.14159

Program na výpočet π nájdete tu Pi.pas
{ KRUH.PAS                  Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypocita obvod kruhu                                              }
{ Vstup : polomer kruhu                                             }
{ Vystup: obvod kruhu pre danny polomer                             }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }
 
program kruh;
uses crt;
var r,obvod,obsah: real;
begin
 Clrscr;
 Write('Zadaj polomer kruhu:');
 ReadLn(r);
 obvod:=2*3.1415*r;
 obsah:=3.1415*r*r;
 WriteLn('Obvod kruhu je:',obvod:5:2,' a jeho obsah je ',obsah:5:2);
 Readln;
end.