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.
Offline
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ć.
Offline