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

                     Практикум по решению задач на ЭВМ


   k3:=f(t+h/2,y+(h*k2)/2);
   k4:=f(t+h,y+h*k3);
   dy:=h*1/6*(k1+2*k2+2*k3+k4);
   y:=y+dy;
   t:=t+h;
   until t>b;
   writeln (t,y);
   repeat until keypressed;
  end.




  Лабораторная работа №24
                  Случайные числа (получение и оценка
                     равномерности распределения)
1) Провести эксперименты с датчиком случайных чисел: а) получить 20
   чисел и оценить их случайность; б) получить 300 чисел и оценить по
   ним равномерность распределения: разбить интервал на (0,1) на 10
   интервалов равной длины, построить столбчатую диаграмму и сек-
   торную диаграмму, показывающие, сколько чисел из последовательно-
   сти попало в каждый интервал.

2) Получить с помощью датчика 20 случайных чисел, разбить интервал
   [0,1] на две равные части: [0.0.5) и (0.5,1] и подсчитать, сколько чисел
   из 20 попадает на каждый из указанных подинтервалов.

  program chisla;
  uses crt;
  var x:real;
    n1,n2,i:integer;
    begin
     clrscr;
     randomize;
     n1:=0;
     n2:=0;
     for i:=1 to 20 do


                                    85