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

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

Пусть дана символьная квадратная матрица порядка 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.

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

Назад