Odpowiedzi

2009-11-17T15:19:46+01:00
Program polafigur;
uses crt;
const Pi=3.14;
var x,a,b,c:integer;
wybor:char;
begin
clrscr;
writeln('Co chcesz obliczyc ?');
writeln('1.Pole prostokata');
writeln('2.Pole kola');
writeln('3.Pole rombu');
writeln('4. Pole trojkata');
writeln('Nacisnij 1 albo 2 albo 3 albo 4 a potem ENTER');
read(x);
case x of
1:begin
writeln('Podaj dlugosc pierwszego boku');
read(a);
writeln('Podaj dlugosc drugiego boku');
read(b);
writeln('Pole prostokata wynosi ',a*b,'');
end;
2:begin
writeln('Podaj dlugosc promienia');
read(a);
writeln('Pole kola wynosi ',Pi*(a*a):0:0,'');
end;
3:begin
writeln('Podaj dlugosc pierwszej przekatnej');
read(a);
writeln('Podaj dlugosc drugiej przekatnej');
read(b);
writeln('Pole rombu wynosi ',a*b/2:0:0,'');
end;
4:begin
writeln('Podaj dlugosc podstawy');
read(a);
writeln('Podaj dlugosc wysokosci');
read(b);
writeln('Pole trojkata wynosi ',a*b/2:0:0,'');
end;
end;
readkey;
end.