20100518723

Compile

program sprawdzian; uses crt;

war opcja,wynik,i:integer;

function poletro jkataO: integer;

war a,h:integer;

bogiń

ClrScr;

writeln ('podaj a’>; readln <a>; writeln ('podaj h'>; readln<h>;

poletrojkata :■ <a*h>div 2;

end;

bogiń

ClrScr;

writeln ('wybierz opcje'>; writeln ('i> oblicz pole trojkata^J>; writeln ('2> silnia' >;

writeln ('3) wyznaczanie minimum z 3 liczb'>

readln<opcja>;

if (opcja - 1>

then

bogiń

writelnC'pole trojkata wynosi '>;

writeln(poletroj kata<»;

end

else

if (opcja " 2>

then

begin

ClrScr;

writeln ('podaj liczbę'>; readln (opcja>; write ('silnia od '>; write (opcja>; writeln(' wynosi '>; wynik:-l;

for is» 1 to opcja do begin

wynik:=wynik**i ; end;

wr ite ln ( wyn ik> ;