Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Alexey0
1 / 1 / 4
Регистрация: 11.12.2014
Сообщений: 28
#1

Не находится максимальный элемент второй матрицы, вместо него выдаётся максимальный элемент первой

26.05.2015, 15:44. Просмотров 183. Ответов 2
Метки нет (Все метки)

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

Условие:
Заданы матрицы А и В третьего порядка. Переменной S присвоить -1, если максимальный элемент матрицы А больше максимального элемента матрицы В; 0 если максимальные элементы матрицы равны; 1, если максимальный элемент матрицы А меньше максимального элемента матрицы В. Поиск максимального элемента оформить в виде процедуры.

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
43
44
45
program P2_V13_Litenkov;
uses crt;
const n=3;
type mas=array[1..n, 1..n] of integer;
var A,B:mas; i,j,o,p,s:integer;
 
procedure wwod(n:integer; var x:mas);
begin
writeln ('ââåäèòå äåâÿòü ÷èñåë');
for i:=1 to n do
      for j:=1 to n do
         read (x[i,j]);
end;
procedure wiwod(x:mas; n:integer);
begin
for i:=1 to n do
begin
      for j:=1 to n do
         write (x[i,j]:4,' ');
         writeln;
end;
end;
procedure max_el(x:mas; n:integer; var max:integer);
begin
max:=-32768;
for i:=1 to n do
    for j:=1 to n do
if max<A[i,j] then
            max:=A[i,j];
            Writeln ('Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ Г¬Г*òðèöû =',max);
end;
begin
wwod(n,a);
wwod (n,b);
max_el(a,n,o);
max_el(b,n,p);
wiwod (a,n);
wiwod (b,n);
begin
if o>p then s:=-1 else
       if o=p then s:=0 else
              s:=1;
              writeln('S=',s);
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 15:44
Ответы с готовыми решениями:

В массиве найти максимальный элемент в первой половине и максимальный элемент во второй
Доброго времени суток! НЕ могу написать код программы к задаче все не удачные попытки написания...

Даны три матрицы A (5 на 6) B (7 на 8) и С (4 на 5). Распечатать ту, в которой находится максимальный элемент
Даны три матрицы A (5 на 6) B (7 на 8) и С (4 на 5). Распечатать ту, в которой находится...

Найти максимальный элемент матрицы и записать нули в строку, в которой он находится
задана матрица целых чисел определить максимальный элемент этой матрицы и записать нули в строку в...

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

Поменять местами столбец матрицы, в котором находится максимальный элемент, с первым столбцом
Написать программу, включающую следующие процедуры:  Создать матрицу В(7х7) случайных чисел в...

2
ВаЛерика
121 / 26 / 27
Регистрация: 17.04.2013
Сообщений: 105
26.05.2015, 16:54 #2
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
43
44
45
46
47
48
49
program P2_V13_Litenkov;
uses crt;
const n=3;
type mas=array[1..n, 1..n] of integer;
var A,B:mas; i,j,o,p,s:integer;
 
procedure wwod(n:integer; var x:mas);
var j, i: integer;
begin
writeln ('ââåäèòå äåâÿòü ÷èñåë');
for i:=1 to n do
      for j:=1 to n do
         read (x[i,j]);
end;
procedure wiwod(x:mas; n:integer);
var j, i: integer;
begin
for i:=1 to n do
begin
      for j:=1 to n do
         write (x[i,j]:4,' ');
         writeln;
end;
end;
procedure max_el(x:mas; n:integer; var max:integer);
var j, i: integer;
begin
max:=-32768;
for i:=1 to n do
    for j:=1 to n do
if max<x[i,j] then
            max:=x[i,j];
            Writeln ('Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ Г¬Г*òðèöû =',max);
end;
begin
wwod(n,a);
wwod (n,b);
max_el(a,n,o);
max_el(b,n,p);
wiwod (a,n);
writeln;
wiwod (b,n);
begin
if o>p then s:=-1 else
       if o=p then s:=0 else
              s:=1;
              writeln('S=',s);
end;
end.
Добавлено через 1 минуту
ошибка в 28 и 29 строках
1
Alexey0
1 / 1 / 4
Регистрация: 11.12.2014
Сообщений: 28
26.05.2015, 17:52  [ТС] #3
Цитата Сообщение от ВаЛерика Посмотреть сообщение
ошибка в 28 и 29 строках
Понял, огромное вам спасибо.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2015, 17:52

В целочисленном массиве M(n) найти максимальный элемент среди четных элементов массива и максимальный элемент
В целочисленном массиве M(n) найти максимальный элемент среди четных элементов массива и...

Какой из элементов больше: максимальный элемент главной или максимальный элемент побочной диагонали
Для матрицы размерностью n×n (n – нечетное значение) определить, какой из элементов больше:...

Составить подпрограмму заменяющую каждый элемент матрицы на максимальный элемент в пересечении которых он находится
Нужно написать подпрограмму которая каждый элемент таблицы заменяет на максимальный элемент строки...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru