Метод статистического моделирования систем

Статистического моделирования систем на машинах.
Общая характеристика метода статистического моделирования систем.

В данной лабораторной работе необходимо найти оценку математического ожидания M[y], т.е. выходные характеристики как среднее арифметическое по следующей формуле, исходя из метода статистического моделирования систем:
N
Y = (1/N) ∑ yi
i = 1
Начальные данные:

ПРОГРАММНАЯ РЕАЛИЗАЦИЯ СТАТИСТИЧЕСКОГО МОДЕЛИРОВАНИЯ СИСТЕМ (язык TURBO PASCAL7.0)

uses crt;
const n=50;
var x,v,y:array[1..100] of real;
     a,f,h,hh,hi,u,va:real;
     i:integer;
  begin clrscr; randomize;
  write('  Vvedite nomer vashego varianta: ');readln(va);
    readln;
    writeln('  Funkciya: Z = x^2+ x*\|xy^2 ');
    readln;
    for i:=1 to n do
    begin
     a:=random+va-1; x[i]:=1-exp(-a);
     f:=random+random+va-1;
      v[i]:=1-exp(-f);
      h:=x[i]*x[i];
      hh:=v[i]*v[i];
      hi:= (h*h)+h*h*hh;
     y[i]:=((h*h)+h*sqrt((h*hh*hh)));
    end;
   for i:=1 to n do
    u:=u+y[i]; u:=u/n;
  writeln(' Lyambda[i]                      =     ', a:2:5);
  writeln(' Fi[i]                           =     ', f:2:5);
  writeln(' Vichicleniye X[i]               =     ', x[n]:2:5);
  writeln(' Vichisleniye V[i]               =     ', v[n]:2:5);
  writeln(' kvadrat K1                      =     ', h:2:5);
  writeln(' kvadrat K2                      =     ', hh:2:5);
  writeln(' Summa C                         =     ',hi:2:5);
  writeln(' koren               Y[i]        =     ', y[n]:2:5);
  writeln(' Matematicheskoe ojidanie M[y]   =     ', u:2:5);
  readln;
end.

В архиве находятся: Исходник, исполняемый файл, фотографии программы, отчет

Ссылка на файл - IFolder

Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь.
Зарегистрироанным пользователям дается возможность скачивать файлы по прямой ссылке - Регистрация