 Wysłany: Nie 17:39, 03 Lut 2008 Temat postu: losowanie -randomize+random |
|
| program losujacy 10liczb od 1 do 30, i zapisujacy je do tablicy:
program losowanie ; var a : integer ; b : array [1..10] of integer ; begin randomize; for a:=1 to 10 do begin b[a]:=random(30)+1; writeln(b[a]); end; readln; end. randomize; -slowo kluczowe, musi poprzedzic losowanie, bez niego losowanie by sie nie odbylo random(30) -to by losowalo liczby od 0 do 29 a random(30)+1 losuje liczby od 1 do 30, wiec nie mamy zbednego zera:) *************************UWAGA****************************** jesli randomize; damy po for "a:=1 to 10 do" to wylosuje tylko jedna liczbe. |
|
