Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Ввод (заполнение) элементов двумерного массива (матрицы)
For i:=1 to n do For j:=1 to m do Readln(A[i,j]); А Заполнение двумерного массива по строке. Массив содержит 3 строки и 4 столбца, т.е. 3х4=12 элементов
For i:=1 to 3 do For j:=1 to 4 do a[i,j]:=random(100); 1. б Заполнение двумерного массива по столбцу:
For j:=1 to 4 do For i:=1 to 3 do a[i,j]:=random(100); 2а. Печать матрицы на экран: For i:=1 to n do begin For j:=1 to m do Write (A[i,j]); {Вывод эл-тов одной строки матрицы} Writeln; { переход на следующую строку экрана} end; где А - имя массива;i - индекс строки;j - индекс столбца; n - количество элементов в строке;m - количество элементов в столбце. 2б. Печать 3-й строки на экран: For i:=1 to n do Write (A[3,i],’ ‘); {Вывод эл-тов одной строки матрицы} end; А. Вычисление суммы элементов 2-той строки. s:=0; For i:=1 to n do s:=s+a[2,i]; Writeln(‘Сумма элементов 2-й строки = ’,s); Б. Вычисление суммы элементов 2-го столбца. s:=0; For i:=1 to n do s:=s+a[i,2]; Writeln(‘Сумма элементов 2-го столбца = ’,s); Вычисление суммы элементов всего двумерного массива. S:=0; for i:=1 to m do for j:=0 to n do S:=S+a[i,j]; Задача поиска максимального (минимального) элемента и его индексов. Ищем максимальный элемент каждой строки: For i:=0 to m do begin max:=a[i,1]; ind_L:=i; {сохраняем номер строки} ind_C:=1; {заносим номер 1 - первый столбец} for j:=1 to n do if a[i,j]>max then begin max:=a[i,j]; ind_C:=j {сохраняем номер j-ого столбца} end; writeln(‘max строки ’,i,’=’,max) end; Алгоритм поиска минимального элемента и его индексов для всего массива. Min:=a[1,1]; ind_L:=1; ind_C:=1; for i:=1 to m do for j:=1 to n do if a[i,j]<min then begin min:=a[i,j]; ind_L:=i; ind_C:=j; end; Квадратные матрицы. Type mas4x4=array[1..4,1..4] of integer; var a: mas4x4;
Главная диагональ - элементы a11, a22, a33, a44 (индексы элементов, расположенных на главной диагонали (i=j) Побочная диагональ - элементы a41, a32, a23, a14 (сумма индексов элементов на 1 больше размерности строки (или столбца), т.е. i+j=4+1 или i+j=n+1. На рисунке главная диагональ закрашена сплошным серым цветом, побочная - черным. Элементы, расположенные над главной диагональю, Для индексов элементов, расположенных над главной диагональю выполняется отношение i<j;
Элементы, расположенные под главной диагональю, Для индексов элементов, расположенных под главной диагональю выполняется отношение i>j; Примеры: 1) Найти сумму элементов главной диагонали: S:=0; for i:=1 to n do S:=S+a[i,i]; 2) Найти минимальный элемент побочной диагонали: min:=a[1,n]; for i:=1 to n do if a[i,n+1-i]<min then min:=a[i,n+1-i];
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Последнее изменение этой страницы: 2016-12-30; просмотров: 422; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.129.247.196 (0.006 с.) |