Question

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

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

Вычисление математического ожидания в виде процедуры (PASCAL)

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

procedure CalculateMean(var data: array of Real; var mean: Real);
var
  sum: Real;
  i: Integer;
begin
  sum := 0;
  for i := 0 to Length(data) - 1 do
  begin
    sum := sum + data[i];
  end;
  mean := sum / Length(data);
end;

В данной процедуре `CalculateMean`, мы передаем массив данных `data` и переменную `mean` по ссылке. Процедура вычисляет сумму всех элементов массива и затем делит эту сумму на количество элементов в массиве, чтобы получить среднее значение. Результат сохраняется в переменной `mean`.

Пример использования этой процедуры:

var
  data: array[0..4] of Real = (1.5, 2.5, 3.5, 4.5, 5.5);
  mean: Real;

begin
  CalculateMean(data, mean);
  writeln('Mean: ', mean);
end.

В этом примере мы создаем массив `data`, содержащий пять чисел. Затем мы вызываем процедуру `CalculateMean`, передавая массив `data` и переменную `mean` по ссылке. После выполнения процедуры, мы выводим результат - среднее значение - на экран.

Примечание: Предоставленный код является примером и может быть доработан или изменен в соответствии с вашими потребностями.

Источники: -: 'PROCEDURE. ... Turbo Pascal ...' -: '. . . GitHub'