Question

Задание по Паскалю Вычисление математического ожидания оформить в виде процедуры.

Answer 1

Var 
 m:real;
 n,i:integer;

procedure MathW(var i:integer;var m:real);
var
 x,p:real;
begin;
write('Введите значение ',i,':');
readln(x);
write('Введите вероятность ',i,':');
readln(p);
m:=m+x*p;
end;

begin;
write('Введите количество испытаний:');
readln(n);
for i:=1 to n do
MathW(i,m);
write('Result:',m);
end.

Answer 2

Для вычисления математического ожидания в виде процедуры в языке программирования Паскаль можно использовать следующий код:

program CalculateMean;
var
  n, i: integer;
  sum, mean: real;
  x: array[1..100] of real;

procedure CalculateMeanProcedure(n: integer; x: array of real; var mean: real);
var
  i: integer;
begin
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + x[i];
  end;
  mean := sum / n;
end;

begin
  writeln('Enter the number of elements: ');
  readln(n);
  writeln('Enter the elements: ');
  for i := 1 to n do
  begin
    readln(x[i]);
  end;
  CalculateMeanProcedure(n, x, mean);
  writeln('Mean: ', mean:0:2);
end.

В этом коде `CalculateMeanProcedure` - это процедура, которая принимает количество элементов `n`, массив элементов `x` и возвращает математическое ожидание `mean`. В процедуре вычисляется сумма всех элементов массива `x`, после чего делится на количество элементов, чтобы получить среднее значение.