Powtórzenie randomize, ascii , gotoxy,

[admin]

Przykład 1 . Napisać program który korzystając z pętli repeat until będzi ewyświetlał losowe liczby od 0 do 9 w losowych kolorach.

program rumburak;
uses crt,dos;
var x,y:integer;
begin   randomize;
repeat y:=random(16); textcolor(y);
x:=random(10); write(x:2);

until keypressed;

end.

[admin]

Program 2. Program losuje literę i wyświetla ją w górnej części ekranu. Pętla działa do czasu wciśniecia dowolnego klawisza.

program rumburak;
uses crt,dos;
var x,y,a,b:integer;
c:char;
begin  clrscr; randomize;
repeat y:=65+random(25);
  c:=chr(y);
gotoxy(30,1);write(c);
delay(5);

until keypressed;

end.

[admin]

Program 3. Napisać program w którym wylosowane litery spadają w dół ekranu.

program rumburak;
uses crt,dos;
var x,y,a,b:integer;
c:char;
begin  clrscr; randomize;textcolor(yellow);
repeat y:=65+random(25);
  c:=chr(y);b:=0;
repeat    b:=b+1;
gotoxy(30,b);write(c);
delay(150); clrscr;
until b=25;

until keypressed;

end.