FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть
Использование двумерных массивов для построения поверхностей.
Массив — это пронумерованная последовательность величин одинакового типа, обозначаемая одним именем. Элементы массива располагаются в последовательных ячейках памяти, обозначаются именем массива и индексом. Каждое из значений, составляющих массив, называется его компонентой (или элементом массива).
Способ организации данных, при котором каждый элемент определяется номером строки и номером столбца, на пересечении которых он расположен, называется двумерным массивом
1 2 3 4 5 6
1
2
3
В математике:
В Pascal:
Ai;j
A[i,j]
A[2,4]
A[1,2]
A[3,5]
Самый простой способ описания массива
a : array [1..10, 1..20] of real;
Имя массива
Количество строк
Количество столбцов
Тип данных в массиве
a: array [1..10] of array [1.. 20] of real;
Описание как массив массивов:
Одномерный массив
Каждый элемент которого в свою очередь является одномерным массивом
Const
m=10; n =20;
Var
a : array [1.. m, 1.. n] of integer;
Количество строк и столбцов через константу.
В разделе констант указываем число строк и столбцов
type t=array[1..m,1..n] of integer;
var a : t;
Определением нового типа данных.
Определяем пользовательский тип , двумерный массив
const
a: array[1..3,1..5] of integer =
((3,-2,1,4,3),
(-5,-9,0,3,7),
(-1,2,1,-4,0));
Массив констант.
Непосредственно в программе указываем значения элементов массива.
Двумерный массив. Заполнение 8
Заполнение массива с клавиатуры:
Цикл отвечающий за перебор строк. Берем первую, вторую и так далее строки
Цикл отвечающий за перебор ячеек в каждой строке.
end;
Блок-схема заполнения с клавиатуры:
Цикл отвечающий за перебор строк. (Внешний цикл)
Цикл отвечающий за перебор ячеек в каждой строке. (Внутренний цикл)
Заполнение массива случайными числами:
For i := 1 to 3 do begin
For j := 1 to 4 do begin
a[i, j] := random(21) - 10;
write(a[i, j]:6);
end;
writeln;
end;
Write без LN выводит элементы массива в строку
Когда i-я строка закончилась, пишем пустой WriteLN для перехода на новую строку
j , 1, N
Вывод a i , j
i , 1, N
a i , j=
случайное[-10;10]
Цикл отвечающий за перебор строк. (Внешний цикл)
Цикл отвечающий за перебор ячеек в каждой строке. (Внутренний цикл)
Заполнение массива по правилу:
For i := 1 to 3 do begin
For j := 1 to 4 do begin
a[i, j] :=ФОРМУЛА;
write(a[i, j]:6);
end;
writeln;
end;
Заполнить произвольный массив размером N x N (N<10) по следующему правилу:
11111
22222
33333
44444
55555
ClrScr;
Write('ВВеди N = ');Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=i;
write(a[i,j]:4);
end;
writeln;
end;
Значение элемента в каждой ячейке строки равно номеру строки.
a11
a22
a23
a32
a33
a14
a41
a44
1 2 3 4
1
2
3
4
Главная диагональ:
I=J
Побочная диагональ:
I+J=N+1
Заполнить произвольный массив размером
N x N (N<10) по следующему правилу:
00001
00010
00100
01000
10000
ClrScr;
Write('ВВеди N = ');Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
if (i+j = n+1) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]);
end;
writeln;
end;
Если побочная диагональ то заполнить ячейку 1 во всех остальных случаях 0
Фрагмент блок-схемы задачи заполнения побочной диагонали единицами
j , 1, N
Вывод a i , j
i , 1, N
a i , j= 0
Ввод N
i+j=N+1
a i , j= 1
Да
Нет
a11
a22
a33
a44
a55
Удовлетворяет неравенству
i < j
Удовлетворяет неравенству
i > j
1
2
3
4
5
1 2 3 4 5
a15
a24
a33
a42
a51
Удовлетворяет неравенству Удовлетворяет неравенству 1 2 3 4 5 1
i+j
i+j>n+1
2
3
4
5
a11
a22
a33
a44
a55
1
2
3
4
5
1 2 3 4 5
a42
a51
a24
a15
(i+j (i+j>n+1) And (i (i+j>n+1) And (i>j) (i+j Системы неравенств
Заполнить произвольный массив размером N x N (N<10) по следующему правилу:
00001
00011
00111
00011
00001
Это пересечение двух множеств. Элементы лежащие на и ниже побочной диагонали и элементы лежащие на и выше главной диагонали
Write('ВВеди N = '); Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
if (i+j>=n+1) and (i<=j) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end;
Проверяем условие принадлежности данному множеству
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов массива лежащих на главной диагонали.
Один или два прохода по массиву?
Первый способ. Один проход по массиву
ClrScr;
Write('ВВеди N = ');Readln(n);
s:=0;
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
if (i=j) then s:=s+ a[i,j];
end;
writeln;
end;
writeln('Сумма элементов =',s:5);
Заполняем случайными числами и выводим на экран
И сразу же находим сумму элементов лежащих на главной диагонали
Второй способ. Два прохода по массиву
Write(' ВВеди N = ');Readln(n);
s:=0;
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
For i:=1 to n do
For j:=1 to n do
if (i=j) then s:=s+ a[i,j];
writeln('Сумма элементов =',s:5);
Первый проход. Заполняем массив и выводим его на экран
Второй проход. Находим сумму.
Замечание.
Если нужно что то сделать только
с главной диагональю,
то можно обойтись без вложенных циклов
For i:=1 to n do s:=s+ a[i,i];
j , 1, N
Вывод a i , j
i , 1, N
a i , j=
случайное[-10;10]
Ввод N
S = 0
i = j
S =S + a i , j
Вывод S
Да
Нет
Нахождение суммы элементов на главной диагонали за один проход по массиву
1
Нахождение суммы элементов на главной диагонали за два прохода
i , 1, N
S =S + a i , i
Вывод S
Нахождение суммы элементов на главной диагонали за два прохода (в случае когда речь идет только о главной диагонали и остальной массив не нужен)
Один или два прохода по массиву? Рассуждение второе.
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти минимальный элемент лежащий на главной диагонали.
Стандартный способ без анализа задачи Заполняем массив случайными числами Предполагаем, что минимальный элемент стоит в левом верхнем углу Если встречается элемент меньше m, и он лежит на главной диагонали, то он становится минимальным Замечание.
Write('ВВеди N = ');Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
Writeln;
end;
m:=a[1,1];
For i:=1 to n do
For j:=1 to n do
if (a[i,j]
В данном случае можно не бегать по всему
массиву а пройти только по главной диагонали, обойдясь без вложенных циклов.
m:=a[1,1];
For i:=2 to n do
if (a[i,i]
Если немного по рассуждать, можно увидеть, что самое «маленькое» число, которое может выдать генератор случайных чисел это 10. Все остальные числа будут меньше его. Т.к. в условии задачи нам точно задан интервал
[-10 ; 10].
С анализом исходных данных задачи Предполагаем, что самое маленькое число 10, правая граница исходного интервала. Заполняем, выводим на экран и сразу проверяем на минимальность в главной диагонали.
Write('ВВеди N = ');Readln(n);
m:=10;
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if (a[i,j]
Writeln;
end;
writeln(' Минимальный элемент лежащий на главной диагонали =',m:5);
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти максимальный элемент в каждой строке.
Write('ВВеди N = ');Readln(n);
For i:=1 to n do begin
max:=-10;
For j:=1 to n do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
if (a[i,j]>max) then max:= a[i,j];
end;
write(' MAx = ',max:5);
writeln;
end;
Решение в один проход,
с анализом задачи
Предполагаем, что самое большое число - 10, левая граница исходного интервала.
Перебираем строки
Заполняем элемент массива и выводим его на экран
Если в строке встречается элемент больше максимального, то он становится максимальным
Выводим наибольший элемент в строке
j , 1, N
Вывод a i , j
i , 1, N
a i , j=
случайное[-10;10]
Ввод N
Мах = - 10
a i , j > Max
Max = a i , j
Вывод Max
Да
Нет
Нахождение максимального элемента в каждой строке в один проход
Конец
ClrScr;
Write(‘Введи N = ');Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
Заполняем массив и выводим его на экран
For i:=1 to n do begin
max:=a[i,1];
For j:=2 to n do if (a[i,j]>max) then
max:= a[i,j];
writeln('В ',i,' строке max = ',max:5);
end;
Перебираем строки
Предполагаем, что наибольший элемент в каждой строке стоит на первом месте
Идем по строке и если находим элемент больший чем максимальный, то он становится максимальным
Вывод наибольшего элемента в строке
Стандартным способом,
первый проход – заполнение,
второй проход – поиск
максимального в строках