genKwadratow

{wykonany dla zabawy ^}
program generatorKwadratow;
uses crt;
var a,b,c,d,x,y,z,s,wymiar,odstepx,odstepy,ile,ilosc,dlRzedu,weryf : longint;
weryf2 : real;
dalej : char;
begin
REPEAT
REPEAT
clrscr;
write('Jak duze maja byc kwadraty: ');readln(wymiar);
write('Ile maksymalnie kwadratow w jednym rzedzie: ');readln(dlRzedu);
write('Ile chcesz kwadratow: ');readln(ilosc);
write('Jaki ma byc odstep x: ');readln(odstepx);
write('Jaki ma byc odstep y: ');readln(odstepy);
if ilosc>dlRzedu then begin
weryf:=dlRzedu*(wymiar+odstepx); end ELSE weryf:=ilosc*(wymiar+odstepx);
weryf2:=ilosc/dlRzedu;
UNTIL (weryf<=76)AND(weryf2*(wymiar+odstepy)<=250);
c:=1;
d:=1;
a:=wymiar;
b:=wymiar;
write('Twoje kwadraty:');
REPEAT
c:=1;a:=wymiar;
REPEAT
for x:=c to a do begin
    for y:=d to b do begin
    gotoxy(x,y+7);write('*');
    end;
end;c:=c+wymiar+odstepx;a:=a+wymiar+odstepx;
z:=z+1;ile:=ile+1;
UNTIL (z=dlRzedu)OR(ile=ilosc);
z:=0;
d:=d+wymiar+odstepy;b:=b+wymiar+odstepy;s:=s+1;
UNTIL (ile=ilosc)OR(s=251);
REPEAT
if b<6 then b:=7;
gotoxy(1,b+1);
writeln;write('Chcesz wygenerowac kolejne? ');textcolor(red);write('T');textcolor(7);write('ak lub ');
textcolor(red);write('N');textcolor(7);write('ie');
dalej:=readkey;
case dalej of
't','T': begin dalej:='t' end;
'n','N': begin dalej:='n' end;
end;
UNTIL (dalej='t')OR(dalej='n');
UNTIL dalej='n';
end.