Darmowe Forum

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.