Описание процедуры InputMatrix.

В заголовке процедуры описаны параметры: K - входной параметр, передаваемый из основной программы, и A - выходной параметр (массив вводимых в процедуре элементов матрицы А).

Описаны локальные целочисленные переменные i (счетчик числа строк), j (счетчик числа столбцов) - integer.

В процедуре в двойном цикле for по переменным i, j вводятся значения элементов массива А [I,J]: Readln (A [I,J].

Затем управление передается основной программе.

Описание процедуры OutputMatrix.

Поскольку алгоритм вывода матрицы структурно ничем не отличается от алгоритма ее ввода (см. Соответствующие блок-схемы в прил.1), то и оформление процедуры почти одинаково. Обратите, пожалуйста, внимание на то, что массив А - теперь параметр входной (т.е. известный), поэтому ключевое слово Var отсутствует. В двойном цикле for реализован построчный вывод на экран исходной матрицы. В формате вывода под выводимое значение элементов матрицы отводится 7 позиций, в том числе две позиции для вывода дробной части:

Write (A [i,j]: 7: 2,' `).

Следующий оператор вывода без параметров Writeln позволяет закончить вывод одной строки матрицы и перейти на следующую.

Описание процедуры Evaluate.

В заголовке процедуры описаны параметры: K, A как входные параметры.

Описаны локальные переменные i (счетчик числа строк), j (счетчик числа столбцов) как integer и stolb (вещественный массив длиной N - array [1. N] of Real), sr (рабочая переменная типа Real для подсчета суммы элементов в данном столбце).

В двойном цикле for считается среднее арифметическое значение для каждого столбца и сохраняется в одномерном массиве Stolb:

цикл начинается по столбцам j от 1 до k;

затем в цикле по строкам i считается сумма элементов в данном столбце sr;

и вычисляется среднее арифметическое значение для каждого столбца путем деления вычисленной суммы на количество строк Stolb [j]: =sr/k.

Значение элементов одномерного массива среднего арифметического значения столбцов Stolb [j] в цикле for выводится на экран.

Замечание. Средние арифметические значения каждого из столбцов матрицы можно вычислять и тут же выдавать на экран. Этот вариант пригоден только тогда, когда значения средних арифметических больше ни для чего НЕ нужны (как в нашем случае). Тогда надобность в массиве Stolb и дополнительном цикле for отпадает. В этом случае подпрограмма Evaluate будет иметь следующий вид:

Procedure Evaluate (k: integer; A: arrayA);

Var i,j: integer;

sr: real;

Begin

Writeln ('----- - Cреднее арифметическое каждого из столбцов - ------');

for j: =1 to k do {----- - цикл по столбцам - ---- - }

Begin

sr: =0;

for i: =1 to k do {----- - цикл по строкам - ---- - }

sr: =sr+A [i,j]; {вычисление суммы элементов по столбцам

матрицы A}

Writeln ('Cтолбец [',j,'] = ', sr/k: 7: 2);

End;

End;

Описание главной программы

В теле основной программы в цикле Repeat. Until очищается экран (ClrScr).

Путем вызова процедуры InputN (k) вводится значение k - фактическое число строк и столбцов исходной матрицы A.

Путем вызова процедуры InputMatrix (k,A) вводим значения элементов исходной матрицы А.

Опять очищаем экран (ClrScr).

Через вызов процедуры OutputMatrix (k,A) выводим на экран значения элементов исходной матрицы А.

Через вызов процедуры Evaluate (k,A) определяем значения средних арифметических каждого из столбцов и выводим их на экран.

Затем следует запрос "Опять? (Y/N)".

Переменной ch присваивается значение нажатой клавиши ch: =ReadKey и в зависимости от ответа управление передается или на начало цикла (ch: ='Y') для повторного счета, но уже с другими исходными данными, или программа заканчивает выполнение (ch: = `N').

Приложение 6. Основные функции среды ТУРБО ПАСКАЛЬ

F1 - вызов справки;

F2 - записать программу на диск;

F3 - открыть записанную программу на диске в окне редактора;

F4 - используется в отладочном режиме;

F5 - распахнуть активное окно на весь экран;

F6 - сделать активным следующее окно;

F7 - используется в отладочном режиме;

F8 - используется в отладочном режиме;

F9 - компилировать программу, но не выполнять ее;

F10 - перейти к диалоговому выбору режима работы;

Ctrl-F9 - компилировать программу, загрузить ее в оперативную память (или записать на диск) и выполнить, после чего вернуться в среду ТУРБО ПАСКАЛЬ;

Alt-F5 - сменить окно редактора на окно вывода результатов программы;

Alt-X - выход из ТУРБО ПАСКАЛЯ;

Текстовый редактор среды

Текстовый редактор предназначен для создания и редактирования текста программы. Для создания текста его вводят с клавиатуры, нажимая в конце каждой строки клавишу ENTER.

Для того, чтобы исправить ошибки, которые были допущены при наборе программы, необходимо переместить курсор (небольшой мигающий прямоугольник в окне редактора) с помощью клавиш перемещения курсора в нужное место и исправить ошибку.

Команды текстового редактора.

PgUp - переместить курсор на страницу вверх;

PgDn - переместить курсор на страницу вниз;

HOME - переместить курсор в начало строки;

END - переместить курсор в конец строки;

Ctrl-PgUp - переместить курсор в начало текста;

Ctrl-PgDn - переместить курсор в конец текста;

BACKSPACE - стереть символ слева от курсора;

DEL - стереть символ справа от курсора;

CtrL-Y - стереть строку, на которой располагается курсор;

ENTER - вставить новую строку;

Ctrl-Q L - восстановить текущую строку (действует, если курсор не покидал измененную строку);

Ctrl-K B - пометить начало блока;

Ctrl-K K - пометить конец блока;

Ctrl-K Y - стереть блок;

Ctrl-K C - копировать блок;

Ctrl-K V - переместить блок;

Ctrl-K W - записать блок в дисковый файл;

Ctrl-K R - прочитать блок из дискового файла;

Ctrl-K P - напечатать блок;

Shift - HOME END - быстро создать блок.

После набора текста программы не забудьте сохранить его на диске, нажав клавишу F2. В появившемся окне в поле задания имени файла введите имя файла, под которым ваша программа будет записана на диске.

Счет и отладка программы

После подготовки текста программы необходимо откомпилировать программу, при необходимости связать ее с библиотекой стандартных процедур и функций, загрузить ее в оперативную память и передать ей управление. Вся эта последовательность действий реализуется одновременным нажатием клавиш Ctrl-F9.

Если в программе нет ошибок, то все действия выполняются последовательно одно за другим, при этом на экране сообщается о количестве строк откомпилированной программы и объеме доступной оперативной памяти.

Перед передачей управления загруженной программе среда очищает экран и на него выводятся результаты выполнения программы, а после завершения работы программы вновь восстанавливается окно редактора.

Если на каком-нибудь этапе среда обнаружила ошибку, она прекращает дальнейшее действие, восстанавливает окно редактора и помещает курсор на ту строку программы, на которой обнаружена ошибка. При этом в верхней строке редактора появляется диагностическое сообщение о причине ошибки. Необходимо найти причину ошибки и отредактировать текст. В более сложных ситуациях прибегают к пошаговому исполнению программы, например, последовательным нажатием F7. В случае необходимости можно просмотреть значения проверяемых переменных. Для этого поместите курсор в строку, содержащую переменную, и нажмите Ctrl-F4. В появившемся диалоговом окне в верхнем поле будет имя переменной, нажав на ENTER, в среднем поле получим ее значение. В верхнее поле можно с клавиатуры вводить имена переменных или выражение.

Справочная система

В затруднительной ситуации нажмите на клавишу F1 или CTRL-F1 (для объяснения конкретной ситуации) и на экране высветится необходимая справка. Во многих случаях справка содержит пример небольшой программы, которую можно скопировать в окно редактирования, запустить на выполнение и посмотреть результат.

Приложение 7. Обозначения основных символов, используемых при составлении блок-схем алгоритмов (ГОСТ 19.003-80)