iforum

Napíšte program na výpočet obvodu kružnice a obsahu kruhu, keď vstupným údajom je dĺžka polomeru.


program kruh;
uses crt;
var r,s,o:real;

begin
clrscr;textcolor(11);
writeln('tento program sluzi na vypocet obsahu a obvodu kruhu');
writeln('zadajte prosim polomer kruhu');
readln(r);
s:=pi*r*r;
o:=pi*r*2;
clrscr;
clrscr;
writeln('prosim cakajte...');
delay(500);
write('obsah kruhu je ');textcolor(4);write(s:5:2);textcolor(11);write(' a obvod je ');textcolor(4);writeln(o:5:2);
readln;
end.