Изучение языка программирования
Турбо Паскаль
На этом сайте можно: скачать среду программирвания Турбо Пакаль, изучить язык программирования Турбо Паскаль, а так же скачать программы на языке Турбо Паскаль!
Решенные задачи на языке Паскаль
Условие задачи прислали на e-mail.
Сформировать матрицу B путём вычёркивания строки и столбца на пересечении которых расположен минимальный элемент матрицы A. Матрица A (5*5). |
VAR a:array[1..5,1..5]of integer; b:array[1..4,1..4]of integer; i,j,i1,j1,x,y:word; min_a:integer; BEGIN randomize; { 1). Создание матрицы A из случайных чисел, вывод ее на экран} writeln('Матрица A:'); for i:=1 to 5 do begin writeln; for j:=1 to 5 do begin a[i,j]:=10+random(90); write(' ',a[i,j]); end; end; { 2). Нахождение минимального элемента в матрице A} min_a:=a[1,1]; x:=1; y:=1; for i:=1 to 5 do for j:=1 to 5 do begin if min_a>a[i,j] then begin min_a:=a[i,j]; x:=i; y:=j; end; end; writeln; writeln('Минимальный элемент и его положение в матрице A:'); writeln('min=',min_a,' x=',x,' y=',y); { 3). Создание матрицы B} j1:=0; i1:=1; for i:=1 to 5 do for j:=1 to 5 do begin if (i<>x)and(j<>y)then begin j1:=j1+1;if j1>4 then begin j1:=1; i1:=i1+1;if i1>4 then i1:=1; end; b[i1,j1]:=a[i,j]; end; end; { 4). Вывод матрицы B:} writeln; writeln('Матрица B:'); for i1:=1 to 4 do begin writeln; for j1:=1 to 4 do write(' ',b[i1,j1]); end; END.* переменная a - исходная матрица, размером 5*5
Решение этой задачи я разбил на 4 части: создание матрицы A, нахождение минимального элемента в матрице A, создание матрицы B, вывод матрицы B. Я расскажу только о второй и третьей частях т.к. они являются основой решения этой задачи.
Нахождение минимального элемента в матрице A
Для хождения минимального элемента проверяем условие min>a[i,j] т.е. сравниваем один элемент матрицы с другим и тот элемент, который меньше присваиваем переменной min. Так же в условии задачи сказано, что матрица B сформирована путём вычёркивания строки и столбца на пересечении которых расположен минимальный элемент матрицы A. Поэтому для формирования матрицы B нужно знать какую строку и какой столбец из матрицы A нужно вычеркнуть. Для этого используем переменные x - строка, y - столбец, которые легко узнаются при определении минимаьного элемента матрицы A.
Создание матрицы B
Самая трудная часть это создать матрицу B, когда уже известно какуюстроку и какой столбец не будет содержаться в матрице B. Так как матрица A была размером 5*5, то матрица B, будет размером 4*4 т.к. вычеркиваем одину строчку и столбец. Матрицу B создаем перебирая все элементы матрицы A и записываем их в матрицу B, только в том случае, если элемент из матрицы A не расположен по той строке и по тому столбцу, где находится минимальный элемент матрицы A т.е. если (i<>x) и (j<>y).