PiotrekDudkiewicz |
Wysłany: Nie 14:40, 02 Paź 2005 Temat postu: Pascal - Bryły |
|
DO CELÓW EDUKACYJNYCH
Kod: |
program bryly;
{Iza Rojczyk i Piotrek Dudkiewicz}
uses crt;
var a,b,c,h,r,l,objp,polet,polek,poles:real;
klawisz:char;
begin
clrscr;
writeln('1. Objetosc prostopadloscianu');
writeln('2. Pole trapezu');
writeln('3. Pole kola');
writeln('4. Pole stozka');
writeln('Wybierz opcje: ');
readln(klawisz);
case klawisz of
'1':begin
clrscr;
writeln('Podaj a,b,h');
readln(a,b,h);
objp:=a*b*h;
writeln('Objetosc wynosi ',objp:0:2);
end;
'2':begin
clrscr;
writeln('Podaj a,b,h');
readln(a,b,h);
polet:=(a+b)*h/2;
writeln('Pole trapezu wynosi ',polet:0:2);
end;
'3':begin
clrscr;
writeln('Podaj r');
readln(r);
polek:=(pi*sqr(r));
writeln('Pole kola wynosi ',polek:0:2);
end;
'4':begin
clrscr;
writeln('Podaj r,l ');
readln(r,l);
poles:=((pi*r)*l+(r*r)*pi);
writeln('Pole stozka wynosi ',poles:0:2);
end;
else writeln('Zly klawisz');
end;
repeat until keypressed;
end.
|
|
|