Основы программирования на языке Turbo Pascal. Беляева И.В. - 103 стр.

UptoLike

Составители:

Рубрика:

103

ПРОЦЕДУРЫ И ФУНКЦИИ С ПАРАМЕТРАМИ

Пример задачи с тремя массивами

Рассмотрим такую задачу: Необходимо ввести три одномерных

массива A[nA], B[nB], C[nC]. Требуется определить, в каком из массивов

среднее арифметическое элементов больше.

(Интерпретация этой задачи: имеется три школьных класса: 11А, 11Б,

11В. Оценки каждого ученика всех классов по информатике вводятся в

отдельный массив. Найдя среднее арифметическое элементов каждого из

массивов, мы сможем сравнить эти средние арифметические и выяснить, в

каком из классов лучше обстоят дела с информатикой).

При решении этой задачи необходимо трижды описать ввод массивов

(отдельно для массива A, массива B и массива C) и трижды описать

вычисление среднего арифметического. Итого – 6 подпрограмм. Причем

алгоритмов только 2 – ввод массива и вычисление среднего

арифметического.

Можно попытаться обойти эту проблему – для этого нужно определить

процедуру ввода некоего абстрактного массива, затем трижды вызвать эту

процедуру и скопировать введенный абстрактный массив в массивы A, B

и C соответственно. Одновременно с массивом нужно копировать

количество элементов в массиве – соответственно это nA, nB и nC.

Аналогично нужно определить функцию

вычисления среднего

арифметического для абстрактного массива. Перед вызовом этой функции

абстрактному массиву нужно присвоить требуемый массив – по очереди

A, B и C. Одновременно с массивом нужно копировать количество

элементов в массиве – соответственно это nA, nB и nC.

Ниже приводится текст программы с таким решением:

{Ввести 3 массива целых чисел. Выяснить, в каком из массивов

наибольшее среднее арифметическое элементов.

Использовать минимум процедур и функций и минимум глобальных