Практикум по решению задач на ЭВМ. Тарова И.Н - 86 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
begin
x:=random;
writeln(x);
if x<0.5 then n1:=n1+1 else n2:=n2+1
end;
writeln('n1=',n1,'n2=',n2);
repeat until keypressed;
end.
3) Получить сто первых членов случайной последовательности из нулей и
единиц, в которой:
а) нули и единицы равновероятны, т.е. ноль и единица имеют вероят-
ность ½ и ½ ;
б) нуль и единица не равновероятны, т.е. ноль и единица имеют вероят-
ность ¼ и ¾.
program posledov;
uses crt;
var x:real;n1,n2,i:integer;
begin
clrscr;
randomize;
n1:=0;
n2:=0;
for i:=1 to 100 do
begin
x:=random;
{writeln(x);}
if x<0.5 then
begin
write(0);
n1:=n1+1;
end
86
                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


     begin
     x:=random;
     writeln(x);
     if x<0.5 then n1:=n1+1 else n2:=n2+1
     end;
     writeln('n1=',n1,'n2=',n2);
     repeat until keypressed;
  end.




3) Получить сто первых членов случайной последовательности из нулей и
единиц, в которой:
   а) нули и единицы равновероятны, т.е. ноль и единица имеют вероят-
ность ½ и ½ ;
   б) нуль и единица не равновероятны, т.е. ноль и единица имеют вероят-
ность ¼ и ¾.

  program posledov;
  uses crt;
  var x:real;n1,n2,i:integer;
  begin
   clrscr;
   randomize;
   n1:=0;
   n2:=0;
   for i:=1 to 100 do
    begin
    x:=random;
    {writeln(x);}
    if x<0.5 then
      begin
       write(0);
       n1:=n1+1;
      end


                                     86

Страницы