Примеры задач

Двумерные массивы


Пусть дана символьная квадратная матрица порядка 5. Замените буквой А все её элементы, расположенные выше главной диагонали.

Методика решения

Пример:
n=4;
А= .

Используемые переменные:
n - размерность матрицы;
A - матрица;
I,j – индексы элементов матрицы.

Элементы, лежащие на главной диагонали – это такие элементы, у которых индексы I=j .
Элементы, расположенные выше главной диагонали берутся из промежутка (1, n - 1) - для i , ( i , n - 1) - для j высчитываются по формуле а[i, j+1].
Для начала при помощи циклов считываем с экрана элементы массива и выводим массив на экран.
Затем с помощью циклов перебираем элементы матрицы, цикл от 1 до n - 1 для i и цикл от i до n - 1 для j ; вычисляем элемент, лежащий выше главной диагонали, по формуле а[i, j+1] и присваиваем ему символ ‘A’.
Выводим полученную матрицу на экран.

Листинг программы

Program ex3_6;
Uses crt;
Const n=5;
Type mas=Array [1..n,1..n] Of char;
Var a:mas;
i,j:integer;
Begin clrscr;
Writeln('Введите элементы');
For i:=1 To n Do
For j:=1 To n Do
Readln(a[i,j]);
Writeln('Матрица');
For i:=1 To n Do
Begin
For j:=1 To n Do
Write(a[i,j]:3);
Writeln;
End;
{Замена элементов матрицы,расположенных выше главной диагонали,буквой A}
For i:=1 To n-1 Do
Begin
For j:=i To n-1 Do
a[i,j+1]:='A';
End;
Writeln('Матрица A:');
For i:=1 To n Do
Begin
For j:=1 To n Do
Write(a[i,j]:3);
Writeln;
End;
Readkey;
End.

Запустить программу






Назад

Закрыть