program koło;
uses crt;
var r, p, o: real;
begin
clrscr;
writeln('wpisz długość promienia);
read(r);
p:=*sqr(r);
o:=2**r;
writeln('pole koła wynosi ', p:5:1);
writeln('obwód koła wynosi ', o:5:1);
readkey;
end.
w pascalu pisałem dość dawno i nie pamiętam jak się oznaczało lizbę pi, ale dla jednego miejsca po przecinku możesz podstawić 3,14.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program koło;
uses crt;
var r, p, o: real;
begin
clrscr;
writeln('wpisz długość promienia);
read(r);
p:=*sqr(r);
o:=2**r;
writeln('pole koła wynosi ', p:5:1);
writeln('obwód koła wynosi ', o:5:1);
readkey;
end.
w pascalu pisałem dość dawno i nie pamiętam jak się oznaczało lizbę pi, ale dla jednego miejsca po przecinku możesz podstawić 3,14.