Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Обработка двумерных массивов в(n,m)

ОПРЕДЕЛЕНИЯ | Программа на ЯВУ ТР7.0 | Программа на ЯВУ ТР7.0 |


Читайте также:
  1. X. МЕТОДИКА ОБРАБОТКА ПУПОВИНЫ
  2. Акустическая обработка помещения
  3. Ввод и вывод элементов двумерных массивов
  4. Ввод/вывод массивов
  5. Выборка из двух массивов для формирования третьего
  6. Гигиеническая обработка рук медсестры процедурного кабинета.
  7. ГЛАВА 5. ОБРАБОТКА ЛЕСОМАТЕРИАЛОВ РУЧНЫМ ИНСТРУМЕНТОМ

Описание матрицы

CONST

N1 = 20; {МАКСИМАЛЬНОЕ КОЛ-ВО СТРОК}

М1 = 20; {МАКСИМАЛЬНОЕ КОЛ-ВО СТОЛБЦОВ}

TYPE

MAS2 = ARRAY[1..N1,1..M1] OF INTEGER;

VAR

B: MAS2;

N,M: INTEGER; {РЕАЛЬНЫЕ РАЗМЕРЫ}

I,J: INTEGER; {ИНДЕКСЫ}

 

Ввод массива

WRITELN(‘ВВЕДИТЕ КОЛ-ВО СТРОК N = ’);

READ(N);

WRITELN(‘ВВЕДИТЕ КОЛ-ВО СТОЛБЦОВ M = ’);

READ(M);

FOR I:=1 TO N DO

FOR J:=1 TO M DO

BEGIN

WRITE(‘B[‘, I, ‘,’, J, ’]= ‘);

READ(B[I,J]);

END;

 

Вывод массива

FOR I:=1 TO N DO

BEGIN

FOR J:= 1 TO M DO

WRITE(B[I]);

WRITELN;

END;

ПРИМЕЧАНИЕ: Алгоритмы поиска произведения, количества, суммы, средних арифметических и геометрических, максимальных и минимальных значений соответствуют алгоритмам для векторов, только необходимо завести еще цикл для столбцов.

Рассмотрим далее несколько специфических алгоритмов для матриц.

Найти минимальный элемент в каждом столбце

FOR J:= 1 TO M DO

BEGIN

MIN:= B[1,J];

FOR I:= 1 TO N DO

IF B[I,J] < MIN THEN

MIN:= B[I,J];

WRITELN(MIN);

END;

 

Найти минимальный элемент в каждой строке и записать их в одномерный массив А

FOR I:= 1 TO N DO

BEGIN

MIN:= B[I,1];

FOR J:= 1 TO M DO

IF B[I,J] < MIN THEN

MIN:= B[I,J];

A[I]:= MIN;

END;

Найти максимальный элемент среди отрицательных элементов каждой нечетной строки

I:=1;

WHILE I <= N DO

BEGIN

MAX:= -10000;

J:= 1;

WHILE J <= M DO

BEGIN

IF (B[I,J] < 0) AND (B[I,J] > MAX) THEN

MAX:= B[I,J];

J:= J+1;

END;

I:= I+2;

END;

Построчная сортировка матрицы

FOR I:= 1 TO N D0

REPEAT

FLAG:=0;

FOR J= 1 TO M –1 DO

IF A[I,J]>A[I,J+1] THEN

BEGIN

C:= A[I,J];

A[I,J]:= A[I,J+1];

A[I,J+1]:= C;

FLAG:= 1;

END;

UNTIL FLAG=0;

Обменять местами элементы главной и побочной диагоналей

FOR I:= 1 TO N DO

BEGIN

V:= A[I,I];

A[I,I]:= A[I,N+1-I];

A[I,N+1-I]:= V;

END;

Что-то сделать над главной диагональю(диаг. не включать)

FOR I:=1 TO N-1 DO

FOR J:= I+1 TO N DO

……………….

Что-то сделать под главной диагональю(диаг. не включать)

FOR I:=2 TO N DO

FOR J:= 1 TO I-1 DO

……………….

Что-то сделать над побочной диагональю(диаг. не включать)

FOR I:=1 TO N-1 DO

FOR J:= 1 TO N-I DO

……………….

Что-то сделать под побочной диагональю(диаг. не включать)

FOR I:=2 TO N DO

FOR J:= N+2-I TO N DO

……………….

 

 


Дата добавления: 2015-07-11; просмотров: 85 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
ТИПОВЫЕ АЛГОРИТМЫ| ПРИМЕРЫ РЕШЕНИЯ ЗАДАЧ

mybiblioteka.su - 2015-2024 год. (0.006 сек.)