Описать функцию отриц (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.
Объяснение кода листинга программы
- Тип серии определен как файл, содержащий вещественные числа (series = file of real).
- Создается процедура GenFile, которая генерирует файл с заданным количеством случайных чисел от -10 до 10 и записывает его в указанный путь (path).
- Создается функция Minus, которая считывает содержимое файла и подсчитывает сумму всех отрицательных чисел.
- В основной программе инициализируется генератор случайных чисел, задается путь к файлу и вызывается функция Minus для вычисления суммы отрицательных чисел в этом файле.
- Результат вычисления функции Minus выводится на экран.