ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 30.11.2023
Просмотров: 217
Скачиваний: 1
СОДЕРЖАНИЕ
Ввод элементов двумерного массива с клавиатуры
writeln (‘Введите элементы массива’);
write (‘a[‘, i, ’,’, j, ’]=‘);
Вывод элементов двумерного массива в виде таблицы
writeln (‘Вывод массива по строкам’);
for j:= 1 to m do write (a[ i, j] :5);
Заполнение двумерного массива случайными числами
Массив заполняется случайными целыми числами из интервала [2,12]
Суммирование элементов двумерного массива
write(‘Количество строк > ‘); readln(n);
write(‘Количество столбцов > ‘); readln(m);
sum:=0; for i:=1 to n do for j:=1 to m do sum:=sum+a[i,j]; writeln('Сумма=',sum);
Найти сумму элементов каждой строки массива
write(‘Введите количество строк‘); readln(n);
write(‘Введите количество столбцов‘); readln(m);
for j:=1 to m do a[i , j]:=random(11)+2;
sum:=0; for j:=1 to m do sum:=sum+a[i,j]; writeln('Сумма=',sum);
… {Вставить - ввод размерности, ввод элементов массива и вывод в виде таблицы}
sum:=0; for i:=1 to n do sum:=sum+a[i,i]; writеln ('Сумма=',sum);
Var a:array [1..n,1..m] of integer;
… {Вставить - ввод элементов массива и вывод в виде матрицы}
Двумерные массивы
В Паскале двумерный массив трактуется как одномерный массив, каждый элемент которого также является массивом (массив массивов) Если количество строк равно количеству столбцов, то матрица называется квадратной.A Главная диагональПобочная диагональКвадратная матрица размером 3*3Матрица, состоящая из 3 строк и 4 столбцов – элемент расположен в первой строке второго столбца. Элементы первой строкиЭлементы второго столбцаОписание двумерного массива
Описание двумерного массива в разделе Var аналогично описанию одномерного массива, только необходимо указывать диапазон изменения двух индексов - столбцов и строк.
Var b:array [1..15,1..20] of real;ИлиConst n=15; m=20;Var a:array [1..n, 1..m] of integer;Обращение к элементам двумерного массива в Паскале имеет вид: a [ i , j ],где a - имя массива, описанного в блоке VAR,i - номер строки, j - номер столбца. a [1 , 2 ] – обращение к элементу 1-й строки 2-го столбца массива a.Обращение к элементамВвод элементов двумерного массива с клавиатуры
writeln (‘Введите элементы массива’);
for i:=1 to n do
for j:= 1 to m do
begin
write (‘a[‘, i, ’,’, j, ’]=‘);
readln (a[i , j]);
end;
{Цикл по номерам строк - перебирает строки}{Цикл по номерам столбцов}Вывод элементов двумерного массива в виде таблицы
writeln (‘Вывод массива по строкам’);
for i:=1 to n do
begin
for j:= 1 to m do write (a[ i, j] :5);
writeln;
end;
{Перебор строк}{Перебор столбцов и вывод элемента}{Переход на новую строку}Заполнение двумерного массива случайными числами
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i , j]:=random(11)+2;
write(a[i , j],’ ‘);
end;
writeln;
end;
Массив заполняется случайными целыми числами из интервала [2,12]
Суммирование элементов двумерного массива
Program summa_1;
Const n1=100; m1=100;
Begin
randomize;
write(‘Количество строк > ‘); readln(n);
write(‘Количество столбцов > ‘); readln(m);
for i:=1 to n do
for j:=1 to m do
a[i , j]:=random(11)+2;
for i:=1 to n do
begin
writeln;
end;
sum:=0; for i:=1 to n do for j:=1 to m do sum:=sum+a[i,j]; writeln('Сумма=',sum);
end.
Найти сумму элементов каждой строки массива
Program summa_2;
Const n1=100; m1=100;
Begin
randomize;
write(‘Введите количество строк‘); readln(n);
write(‘Введите количество столбцов‘); readln(m);
for i:=1 to n do
for j:=1 to m do a[i , j]:=random(11)+2;
for i:=1 to n do
begin
writeln;
end;
for i:=1 to n do
begin
sum:=0; for j:=1 to m do sum:=sum+a[i,j]; writeln('Сумма=',sum);
end; end.
Program sum;
Const n1=10; m1=12;
i, j, sum : integer;
Begin
… {Вставить - ввод размерности, ввод элементов массива и вывод в виде таблицы}
sum:=0; for i:=1 to n do sum:=sum+a[i,i]; writеln ('Сумма=',sum);
end.
На главной диагонали номер строки равен номеру столбца, т.е. элементами главной диагонали являютсяa11, a22, a33 и т.д.Program sum;
Const n=10; m=12;
Var a:array [1..n,1..m] of integer;
zum:array [1..m] of integer;
I, j, sum : integer;
Begin
… {Вставить - ввод элементов массива и вывод в виде матрицы}
for j:=1 to m do begin sum:=0; for i:=1 to n do sum := sum +x[i,j]; zum[ j ]: =sum end; for j:=1 to m do write (zum[ j ]:4);
End.
