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.

uses graphABC;

const n = 100000;

var x, y: integer;

begin

setpenwidth(4);

Rectangle (2,2,300,300);

for var i := 1 to 100000 do

begin

x := random(300);

y := random(300);

SetPixel(x,y,clred);

end;

end.

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