Misja Tereski
Losowanie liczb w Pascalu
Funkcja losująca w Pascalu wygląda podobnie jak w C++. Wystarczy w bloku głównym programu lub procedury wywołać generator liczb randomize(), a następnie losować liczbę funkcją random(). Schemat losowania liczb: liczba := zakres_poczatkowy + random(zakres_końcowy - zakres_początkowy + 1) 1 Procedura wypisująca na ekran 10 wylosowanych liczb z zakresu <111;999> Download: Rapidshare, Hotfile, Megaupload, Przeklej i Inne Procedure losowanie(); var i:byte; begin randomize; // generator liczb pseudolosowych writeln("Wypisze teraz 10 wylosowanych liczb"); writeln; for i:=1 to 10 do begin liczba := 111+random(999-111+1); write(" ",liczba); end; readln; end; Download bez limitów 2 Wylosowanie 20 liczb z zakresu <1;9> i zapisanie ich do tablicy. Download: Rapidshare, Hotfile, Megaupload, Przeklej i Inne program losoj; uses crt; var i:word; Type Ttab=array[1..20] of byte; var t:Ttab; procedure losoj(tab:Ttab); begin clrscr; For i:=1 to 20 do tab[i]:=1+ random(9); For i:=1 to 20 do begin IF (i mod 10=1) THEN writeln; write (' ',tab[i],' '); end; writeln; readln(i); readkey; end; BEGIN clrscr; randomize; losowanie(t); readln; END. Download bez limitów Dziękuje i zapraszam na kolejne poradniki & programy mojego autorstwa. Jaspher © Maciej Sikorski, 2010 Wszelkie prawa zastrzeżone. |
W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.
Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.