Odpowiedzi

2010-03-10T20:09:27+01:00
Pole koła :

program kolo;

uses crt;
const pi=3.14;

var
r,P:real;

begin
clrscr;
write('Podaj promien kola');
readln(r);
P:=r*r*pi;
writeln;
writeln('Pole kola wynosi',P:10:3);
readln;
end.

Pole trójkąta:

program trojkat;

uses crt;

var
a,h,P:real;

begin
clrscr;

repeat

clrscr;
write('podaj a=');
readln(a);

until a>0;

repeat

clrscr;
write('podaj h=');
readln(h);

until h>0;


p:=0.5*a*h;
write('Pole trojkata wynosi', p:5:3);

readln;

end.


Pole prostokąta:

program prostokat;
uses crt;
var
a,P,b:real;
begin
clrscr;
write('podaj bok a');
readln(a);
write('podaj bok b');
readln(b);
P:=a*b;
writeln;
writeln;
writeln ('pole prostokata wynosi',P:10:3);
readln;
end.

Pole kwadratu:

program kwadratu;
uses crt;
var
a,P:real;
begin
clrscr;
write('podaj bok a');
readln(a);
P:=a*a;
writeln;
writeln;
writeln ('pole kwadratu wynosi',P:10:3);
readln;
end.
3 4 3