Бағдарламалау технологиялары және тілдер

Кездейсоқ сандарды шығарудың Random функциясы

жүктеу 1,75 Mb.

бет	20/84
Дата	06.01.2022
өлшемі	1,75 Mb.
	#36866

1 ... 16 17 18 19 20 21 22 23 ... 84

интеграция

Random (b-a+1)+a

Кездейсоқ сандарды шығарудың Random функциясы

Паскаль тілінде 0 мен 1 аралығындағы кездейсоқ бүтін санды шығару үшін Random(1) функциясы қолданылады. Ал берілген [a,b] аралығындағы кездейсоқ бүтін санды шығару үшін функция былайша жазылады:

Random (b-a+1)+a

Мысал36. [10,50] аралығындағы 5 кездейсоқ бүтін санды шығару программасы.

Var x: real;

i: byte;

begin

for i:=1 to 5 do

begin

x:=random (41)+10;

Writeln (x)

end

end.

Бұл программаны әр қайталап орындатқан кезде тұрақты түрде 5 бүтін сан экранға шығады. Әрбір орындатқанда уақытқа байланысты әр түрлі кездейсоқ сандар алу үшін Randomize кездейсоқ сандар генераторын іске қосу қажет.

Мысал37. Әрбір орындатқан сайын [1,100] аралығындағы әр түрлі 5 бүтін кездейсоқ санды экранға шығаратын программа.

Var i:byte;

x: real;

begin

randomize;

for i:=1 to 5 do

begin

x:=random(99)+1;

Writeln(x);

end

end.

Мысал38. Кездейсоқ шыққан 3 бүтін санның неше әрекеттен кейін “бақытты жетілік” болатынын анықтайтын программа құрыңдар.

Program Pr777;

Var a,b,c: integer;

n: integer;

begin

randomize;

20: n:=n+1;

a:=random (7)+1; b:=random (7)+1;

c:=random (7)+1;

Writeln (a,b,c);

if (a=7) and (b=7) and (c=7) then

begin Writeln (‘Бақытты жетілік’);

Writeln (‘Әрекет саны’, n); Goto 10;

end;

Goto 20;

10: end.

жүктеу 1,75 Mb.

Достарыңызбен бөлісу:

1 ... 16 17 18 19 20 21 22 23 ... 84