Программа на паскале. Процедура общего вида

⇐ ПредыдущаяСтр 3 из 5Следующая ⇒

procedure CheckArray(var dat:TextFile; var res:TextFile; n:byte; f1:boolean; a:Matrix);

var i,j:byte;

begin

f1:=true;

i:=1;

while(i<=n) and f1 do begin

j:=1;

while (j<=n) and f1 do begin

if abs(A[i,j])>25 then f1:=false;

inc(j);

end;

inc(i);

end;

if not f1 then begin

writeln(res,’Некорректный элемент массива');

CloseFile(dat);

CloseFile(res);

halt

end;

Абстракция А0.6

1.Условие. Поиск максимального элемента матрицы

2.Уточненная постановка задачи.

Данаквадратная матрица A из n строк и столбцов. Найти максимальный элемент матрицы

3.Примеры.

Тест 6: max:=8;

Таблица данных

Класс	Имя	Описание (смысл), диапазон, точность	Тип	Структура
Входные данные	A	Заданная матрица, \|A_ij\|<=25	вещ	Двухмерный массив (5x5)
n	число строк и столбцов в матрице A, 0 < n £ 5	цел	простая переменная
Выходные данные	max	Максимальный элемент матрицы	вещ	простая переменная
Промежу-точные данные	i	Номер текущей строки, 0 < i £5	цел	простая переменная
	j	Номер текущей столбца, 0 < j £ 5	цел	простая переменная

5.Входная форма.

нет ввода/вывода

Выходная форма

Нет.

Аномалии

нет ввода/вывода

Тесты

Все элементы разные: тест 6 max=8

Все элементы одинаковые: тест 8 max=0

Метод

Будем просматривать строки, начиная с первой до последней (i:=1;+1;n)

Присвоим первому элементу максимальное значение (max:=A[1,1])

В каждой строке будем просматривать все элементы,

начиная с первого до последнего (j:=1;+1;n)

Если элемент будем больше max, то присваиваем ему максимальное значение

Переходим к следующему элементу в строке

Переходим к следующей строке (i:=i+1)

Алгоритм

Вх. n, A

Вых. max

Программа на паскале. Процедура общего вида

procedure Maximum(var n:byte; var a:Matrix; out max:real);

var i,j:byte;

begin

max:=A[1,1];

for i:=1 to n do begin

for j:=1 to n do if A[i,j]>max then max:=A[i,j];

end;

Абстракция А0.7

1.Условие. Поиск минимального элемента матрицы

2.Уточненная постановка задачи.

Данаквадратная матрица A из n строк и столбцов. Найти минимальный элемент матрицы

3.Примеры.

Тест 6: min:=-10;

Таблица данных

Класс	Имя	Описание (смысл), диапазон, точность	Тип	Структура
Входные данные	A	Заданная матрица, \|A_ij\|<=25	вещ	Двухмерный массив (10x10)
n	число строк и столбцов в матрице A, 0 < n £ 5	цел	простая переменная
Выходные данные	min	Минимальный элемент матрицы	вещ	простая переменная

Промежу-точные данные	i	Номер текущей строки, 0 < i £ 5	цел	простая переменная
j	Номер текущей столбца, 0 < j £5	цел	простая переменная