Определить процент положительных, отрицательных и нулевых элементов - Free Pascal

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

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

Вводится последовательность из N произвольных чисел. Определить процент положительных, отрицательных и нулевых элементов. Как определить процент с помощью цикла: FOR, WHILE, REPEAT.

Решение задачи: «Определить процент положительных, отрицательных и нулевых элементов»

textual
Листинг программы
uses math;
var
  N, i : Integer;
  P : array[TValueSign] of integer;
  s : array[TValueSign] of string = ('отрицательных', 'нулевых', 'положительных');
  R : Real;
begin
  Write('n = '); ReadLn(N);
  // для for         // для while       // для repeat
  for i := 1 to N do // i := 0;         // i := 0;
                     // while i < N do  // repeat
    begin            // begin           //   Inc(i)
                     //   Inc(i);
      Write(i, ' число = '); ReadLn(R);
      Inc(P[sign(R)]);
    end;             // end;            // until i = N;
 
  for i in TValueSign do
    writeln('Процент ' + s[i] + ' чисел: ', p[i]*100/N:0:2);
end.

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

  1. Программа на языке Free Pascal.
  2. Задача - определить процент положительных, отрицательных и нулевых элементов.
  3. Введен массив P для подсчета количества положительных, отрицательных и нулевых чисел.
  4. Введен массив s для хранения названий групп чисел.
  5. Введена переменная R для хранения числа, введенного пользователем.
  6. Введен цикл for для перебора чисел от 1 до N.
  7. Внутри цикла происходит считывание числа от пользователя и увеличение соответствующего элемента массива P.
  8. После окончания цикла выводится процент положительных, отрицательных и нулевых чисел.
  9. Для вычисления процента используется функция sign, определяющая знак числа.
  10. Для вывода чисел в формате с плавающей точкой используется спецификатор 0:2.
  11. Программа завершается точкой в конце.

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

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