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.