uses crt;

type zim=object

procedure walec;

procedure kula;

procedure szesc;

procedure menu;

end;

procedure zim.menu;

var c:byte;

begin

repeat

clrscr;

writeln('Menu programu');

writeln;

writeln('Program oblicza objetosc');

writeln('1 - walec');

writeln('2 - kula');

writeln('3 - szescian');

writeln('4 - koniec programu');

writeln('Podaj cyfre ');

readln(c);

case c of

1:walec;

2:kula;

3:szesc;

4:writeln('Koniec programu');

end;

writeln('Nacisnij enter');

readln;

until c=4;

end;

procedure zim.walec;

var r,h:byte;o:real;

begin

writeln('Program oblicz objetosc walca');

writeln('Podaj wysokosc');

readln(h);

writeln('Podaj promien');

readln(r);

o:=pi*(r*r)*h;

writeln('Objetosc walca wynosi ',o:6:2);

end;

{****************}

procedure zim.kula;

var r:byte;o:real;

begin

writeln('Program oblicz objetosc kuli');

writeln('Podaj promien');

readln(r);

o:=4/3*pi*(r*r*r);

writeln('Objetosc kuli wynosi ',o:6:2);

end;

{*****************}

procedure zim.szesc;

var a:byte;o:real;

begin

writeln('Program oblicz objetosc szescianu');

writeln('Podaj bok');

readln(a);

o:=a*a*a;

writeln('Objetosc szescianu wynosi ',o:6:2);

end;

var v:zim;

begin

v.menu;

{.walec;

v.kula;

v.szesc;}

readln;

end.

program silnia1;

uses crt;

var w,s,silnia:integer;

begin

writeln ('Program oblicza silnie');

readln (s);

silnia:=1;

for w:=1 to s do

begin

silnia:=silnia*w;

end;

writeln('Silnia wynosi ',silnia);

end.

type zim=object

procedure walec;

procedure kula;

procedure szesc;

end;

procedure zim.walec;

var r,h:byte;o:real;

begin

writeln('Podaj wysokosc');

readln(h);

writeln('Podaj promien');

readln(r);

o:=pi*(r*r)*h;

writeln('Objetosc walca wynosi ',o:6:2);

end;

{****************}

procedure zim.kula;

var r:byte;o:real;

begin

writeln('Podaj promien');

readln(r);

o:=4/3*pi*(r*r*r);

writeln('Objetosc kuli wynosi ',o:6:2);

end;

{*****************}

procedure zim.szesc;

var a:byte;o:real;

begin

writeln('Podaj bok');

readln(a);

o:=a*a*a;

writeln('Objetosc szescianu wynosi ',o:6:2);

end;

var v:zim;

begin

v.walec;

v.kula;

v.szesc;

readln;

end.

---