|
Tytu³: Powtórzenie randomize, ascii , gotoxy, Wiadomo¶æ wys³ana przez: admin Listopad 25, 2011, 08:44:28 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. Tytu³: Odp: Powtórzenie randomize, ascii , gotoxy, Wiadomo¶æ wys³ana przez: admin Listopad 25, 2011, 09:34:26 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. Tytu³: Odp: Powtórzenie randomize, ascii , gotoxy, Wiadomo¶æ wys³ana przez: admin Listopad 25, 2011, 09:44:39 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. |
Polityka cookies
Darmowe Fora | Darmowe Forum