Цель работы: получение навыков работы с процедурами и двумерными массивами.

Постановка задачи:

1. Изучить способы описания и использования многомерных массивов, назначение процедур, их описание и обращение к ним.

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

3. Программно реализовать алгоритмы.

Задание к работе:

Возможно вы искали - Контрольная работа: Алгоритмические языки: обработка массивов

1. Дана матрица n*m. В каждой Строке выбрать минимальный элемент, затем среди них найти наибольший. Вывести индексы найденного элемента.

2. Набрать программу, отладить ее, протестировать. Распечатать текст программы и результаты ее работы на тестовых данных.

Ход выполнения работы

1. Блок-схема:

-

-

+

Рисунок 1. Блок-схема программы

2. Текст программы

Очень интересно - Контрольная работа: Алгоритмический язык Pascal. Программа "Телефонный справочник"

Program lab52;

Const

max=10;

Type

mat=array[1..max] of array[1..max] of integer;

Вам будет интересно - Контрольная работа: Алгоритмічні мови програмування

Var

a:mat;

b:array[1..max] of integer;

c:array[1..max] of Byte;

i,j:byte;

Похожий материал - Книга: Алгоритмы вокруг нас

procedure vvod_m(Var a:mat;Var i,j:Byte);

Var x,y:byte;

Begin

Writeln('Введите мерность матрици ');