0 / 0 / 0
Регистрация: 18.03.2014
Сообщений: 2
1

В квадратной матрице А(7,7) поменять местами минимальные элементы первой и третьей строк, максимальные элементы главной и побочной диагоналей

19.03.2014, 13:51. Показов 1055. Ответов 1
Метки нет (Все метки)

Составил программу, но похоже неправильно. При вводе пишет ошибка проверки диапазона и курсор мигает на строчке if (i=j).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program Legion3;
 Var A:array[1..7,1..7] of integer;
 i,j,min1j,min3j,maxGd,maxPd,n,t:integer;
 Begin
 writeln('Введите матрицу A[7,7]');
 for i:=1 to 7 do
 Begin
 for j:=1 to 7 do
 Begin
 Read(A[i,j]);
 writeln;
 end;
 end;
 n:=7;
 if (i=1) and (A[i,j]<A[i,min1j]) then
 min1j:=j;
 if (i=3) and (A[i,j]<A[i,min3j]) then
 min3j:=j;
 if (i=j) and (A[i,j]>A[maxGd,maxGd]) then
 maxGd:=i;
 if (i=n+1-j) and (A[i,j]>A[maxPd,n+1-maxPd]) then
 maxPd:=i;
 write(A[i,j]:6);
 writeln;
 
 t:=A[1,min1j];
 A[1,min1j]:=A[3,min3j];
 A[3,min3j]:=t;
 
 t:=A[maxGd,maxGd];
 A[maxGd,maxGd]:=A[maxPd,n+1-maxPd];
 A[maxPd,n+1-maxPd]:=t;
 
 writeln('Измененная матрица');
 for i:=1 to 7 do
 begin
 for j:=1 to 7 do
 write(A[i,j]:6);
 writeln;
 readln;
 end;
 End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.03.2014, 13:51
Ответы с готовыми решениями:

Поменять местами элементы первой и третьей строк, максимальные элементы главной и побочной диагонали матрицы
Помогите пожалуйста с решением двумерного массива В квадратной матрице А(7,7) поменять местами...

В квадратной матрице А(5,5) поменять местами минимальные элементы первой и третьей строк
Не знаю как решить, помогите. В квадратной матрице А(5,5) поменять местами минимальные элементы...

В квадратной матрице поменять местами элементы главной и побочной диагоналей
В квадратной матрицы Е поменять местами элементы главной и побочной диагоналей, предварительно...

В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей
В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей.

1
905 / 232 / 100
Регистрация: 21.10.2012
Сообщений: 565
20.03.2014, 10:20 2
Странно! По идее, ошибка должна была появиться еще в 15 строке.

В строках 15,17,19,21 Вы используете в качестве индексов переменные, которым до этого не были присвоены значения: min1j, min3j, maxGd, maxЗd.
Переменные i и j имеют на тот момент максимально допустимые значения 7.

Получается, что после ввода:
Вы сравниваете последний элемент матрицы непонятно с чем.
Строки с 14 по 32 вообще не имеют смысла, в данном тексте. Эти строки должны работать внутри циклов.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2014, 10:20
Помогаю со студенческими работами здесь

В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей
В квадратной матрице поменять местами наибольшие элементы главной и побочной диагоналей.

Поменять местами максимальные элементы главной и побочной диагоналей.
В заданном целочисленном массиве Ann поменять местами максимальные элементы главной и побочной...

Найти максимальные элементы главной и побочной диагоналей матрицы и поменять их местами
Дана матрица nxn. Найти максимальные элементы главной и побочной диагоналей матрицы и поменять их...

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

Для заданной квадратной матрицы порядка n поменять местами элементы главной и побочной диагоналей
1. В однородном массиве, состоящем из n элементов, вычислить: - номер минимального элемента...

В квадратной матрице, находящейся в файле, найти максимальные и минимальные элементы диагоналей
РЕБЯТА, помогите, кто может, плиззз:) Нужно написать на паскале программу по задаче: в квадратной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru