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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

113
avB := AverageArithmetic(B,nB);
avC := AverageArithmetic(C,nC);
{Для контроля выводим все массивы}
writeln('Вы ввели следующие массивы:');
PrintArray(A, nA);
PrintArray(B, nB);
PrintArray(C, nC);
{Выводим значения среднего арифметического для всех массивов}
writeln('Среднее арифметическое массивов:');
writeln('массива A = ', avA:6:2);
writeln('массива B = ', avB:6:2);
writeln('массива C = ', avC:6:2);
{Определяем наибольшее из средних арифметических}
if (avA >= avB) and (avA >= avC) then
writeln('Наибольшее среднее арифметическое в массиве A')
else if (avB >= avA) and (avB >= avC) then
writeln('Наибольшее среднее арифметическое в массиве B')
else
writeln('Наибольшее среднее арифметическое в массиве C');
end.
Если подсчитать строки, то выйдет, что второй вариант
(с параметрами) короче на 1/4 по сравнению с первым (без параметров):
вместо более 140 строк в первом варианте во втором осталось менее 110.
Также во втором варианте значительно более ясно виден алгоритм. И
главное – во втором варианте совсем не осталось глобальных переменных!
Последнее особо важно
по той причине, что теперь наши процедуры и
функции никаким образом не привязаны друг к другу и, следовательно,
могут быть использованы независимо друг от друга. Т.е. их можно
копировать в другую программу БЕЗ ИЗМЕНЕНИЙ и вызывать, и они
будут работать.

Страницы