Описать функцию отриц (s), подсчитывающую сумму отрицательных элементов в серии s - Pascal

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

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

type серия = file of real; Описать функцию отриц(s), подсчитывающую сумму отрицательных элементов в серии s.

Решение задачи: «Описать функцию отриц (s), подсчитывающую сумму отрицательных элементов в серии s»

textual
Листинг программы
type series = file of real;
 
procedure GenFile(path: string);
var n, i: integer;
    f: series;
begin
  assign(f, path);
  write('Количество элементов: ');
  readln(n);
  rewrite(f);
  for i := 1 to n do
    write(f, random * 20 - 10);
  close(f);
end;
 
function Minus(path: string): real;
var f: series;
    num, sum: real;
begin
  sum := 0;
  writeln('Содержимое файла:');
  assign(f, path);
  reset(f);
  while not eof(f) do begin
    read(f, num);
    writeln(num);
    if num < 0 then
      sum := sum + num;
  end;
  close(f);
  Minus := sum;
end;
 
var sum: real;
    path: string;
begin
  randomize;
  path := 'C:\1\1.dat';
  GenFile(path);
  writeln('Сумма отрицательных = ', Minus(path));
end.

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

  1. Тип серии определен как файл, содержащий вещественные числа (series = file of real).
  2. Создается процедура GenFile, которая генерирует файл с заданным количеством случайных чисел от -10 до 10 и записывает его в указанный путь (path).
  3. Создается функция Minus, которая считывает содержимое файла и подсчитывает сумму всех отрицательных чисел.
  4. В основной программе инициализируется генератор случайных чисел, задается путь к файлу и вызывается функция Minus для вычисления суммы отрицательных чисел в этом файле.
  5. Результат вычисления функции Minus выводится на экран.

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

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