Odpowiedzi

2010-01-18T14:59:18+01:00
Program asdf;
uses crt;
var i,j,szer,wys,s : integer;

BEGIN
clrscr;
write('Podaj szerokosc ');
readln(szer);
write('Podaj wysokosc ');
readln(wys);
for i:=1 to wys do Begin
for j:=1 to szer do Begin
s:=i mod 2;
if s <> 0 then write('a') else write('s');
End;
writeln;
End;
repeat until keypressed;
END.
2010-01-18T15:08:39+01:00
Program prostokat(output);

procedure gora(szer: integer);
var
i: integer;
begin
for i := 1 to szer - 1 do
begin
write('a');
end;
writeln('a');
end;

procedure rysuj (szer, wys: integer);
var
i, j: integer;
begin
gora(szer);
for i := 2 to wys - 1 do
begin
write('a');
for j := 2 to szer - 1 do
begin
write(' ');
end;
writeln('a');
end;
gora(szer);
end;

begin
rysuj(10,15);
end.