Сформировать массив из чисел, больших среднего - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу.

ЗАДАНИЕ:

Сформировать массив из чисел, больших среднего.

Решение задачи: «Сформировать массив из чисел, больших среднего»

textual
Листинг программы
program oMassiv;
 
type
  MAS = ARRAY [1..100] OF REAL;
 
var
  A, b: MAS;
 
var
  RA: INTEGER;
 
procedure VVOD(var kol: INTEGER; var X: MAS);
var
  I, K, N, M: INTEGER;
begin
  WRITE(' НОМЕР ВАРИАНТА= ');
  READLN(M);
  kol := M + 50;
  for I := 1 TO kol DO
  begin
    N := (-(20 + M));
    K := (20 + M);
    X[I] := N + (K - N) * RANDOM(I);
  end;
  
end;
 
procedure VIVOD(N: INTEGER; X: MAS);
var
  I, M: INTEGER;
begin
  for I := 1 TO N DO 
    WRITE(' (', i:2, ')=', x[i]:8:2);
  WRITELN;
end;
 
procedure BSr(N: INTEGER; X: MAS; var y: mas);
var
  I, M, KOL: INTEGER;
  S, SRAR: REAL;
begin
  for I := 1 TO N DO
    S := S + X[I];
  SRAR := S / n;
  WRITELN('Среднее число: ', SRAR);
  m := 0;
  for I := 1 TO N DO
    if X[I] > SRAR THEN 
    begin
      inc(m);
      y[m] := x[i];
    end;
  for I := 1 TO m DO
    WRITE(' (', i:2, ')=', y[i]:8:2);  
  WRITELN;      
end;
 
 {Основная программа}
begin
  VVOD(RA, A);
  WRITELN('massiv a');
  VIVOD(RA, A);
  BSr(RA, A, b);
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующие действия:

  1. Создает тип данных MAS, который представляет собой массив из 100 чисел с плавающей точкой.
  2. Объявляет две переменные типа MAS: A и b.
  3. Вызывает процедуру VVOD, которая формирует массив A из чисел, больших среднего значения, определенного переменной RA.
  4. Выводит на экран НОМЕР ВАРИАНТА=, а затем считывает значение RA с помощью функции READLN.
  5. Увеличивает значение RA на 50 и формирует массив A из 100 чисел, используя вложенный цикл for.
  6. Выводит на экран massiv a и выводит массив A с помощью функции VIVOD.
  7. Вызывает процедуру BSr, которая вычисляет среднее значение чисел в массиве A и сохраняет его в переменной SRAR.
  8. Использует вложенный цикл for для подсчета количества чисел в массиве A, которые больше среднего значения.
  9. Сохраняет эти числа в массив y.
  10. Выводит на экран Среднее число:, значение SRAR, а затем выводит массив y с помощью функции VIVOD.
  11. Конец программы.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы