Zadania do rozwiÂązania - pĂŞtle, i inne

[admin]

Zadanie 1. NapisaĂŚ program ktĂłry wyÂświetli na ekranie kwadrat (przynajmniej o rozmiarze 5x5 znakĂłw) wykonany ze znakĂłw o kodzie ASCII nr 178 wyÂświetlany w losowym kolorze. Program zmienia kolory do czasu wciÂśniĂŞcia dowolnego klawisza. W zadaniu wykorzystaĂŚ pĂŞtle repeat until.


program storm;
uses crt,dos;
var x,y,z:integer;
begin
randomize;
repeat
clrscr; z:=random(6);textcolor(z);
x:=0;
repeat
y:=0; writeln;
repeat
gotoxy(40+x,2+y);write(chr(178));
y:=y+1;
until y=20;
x:=x+1;
until x=20;
delay(100);
until keypressed;
end.