11 класс. Моделирование случайных событий. метод Монте-Карло.

   Тема урока. Моделирование случайных событий. метод Монте-Карло.

ТЕСТ

Задание 2. Изучить материалы урока. 

Задание 3. Изучить материалы урока. 
Задание 4. Изучить материалы урока.

program igra;

var i,a,v,p: integer;

    w:char;

begin

v:=0;

p:=0;

repeat

writeln('0-орел 1-решка другое выход');

readln(w);

if w in ['0','1'] then

 begin

  writeln('бросаем монету...');

  a:=random(2);

  if a=0 then writeln('Выпал орел')

  else writeln('Выпала решка');

  if a=ord(w)-48 then 

   begin

    writeln('Вы выиграли');

    inc(v)

   end 

  else 

   begin

    writeln('Вы проиграли');

    inc(p)

   end;

  end

else 

 begin

  writeln('Выигрышей=',v,' проигрышей=',p);

  exit

 end; 

until not(w in ['0','1'])   

end.

Домашнее задание §7