Program z powtórki:
uses crt; var a: array [1..2] of byte; procedure ramka; begin writeln('******************'); writeln('* *'); writeln('* *'); writeln('* *'); writeln('******************'); end; begin clrscr; writeln('ramka 1 - 1, ramka 2 - 2'); readln(a[1]); if a[1]=1 then begin ramka; gotoxy(8,5); writeln('ramka 1'); end; if a[1]=2 then begin ramka; gotoxy(8,5); writeln('ramka 2'); end; readln; end.
|
Sprawdzian:
I grupa - pole trójkąta
var a: array [1..3] of real; procedure pole; begin readln(a[1], a[2]); a[3]:=(a[1]*a[2])/2; writeln (a[3]); end; begin pole; readln; end.
II grupa - pole prostokąta
var a: array [1..3] of real; procedure pole; begin readln(a[1], a[2]); a[3]:=a[1]*a[2]; writeln(a[3]); end; begin pole; readln; end.
Na wszelki wypadek możecie sprawdzić czy będą działać.
|