Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Alexey0
1 / 1 / 4
Регистрация: 11.12.2014
Сообщений: 28
#1

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

26.05.2015, 15:44. Просмотров 179. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2015, 15:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Не находится максимальный элемент второй матрицы, вместо него выдаётся максимальный элемент первой (Pascal ABC):

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

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

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

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

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

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

2
ВаЛерика
121 / 26 / 20
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Обнулить все элементы строки и столбца матрицы, на пересечении которых находится максимальный элемент матрицы - Pascal
Определить максимальный элемент в произвольно заданной матрице Z размером m x n и обнулить все элементы строки и столбца, на пересечении...

Найти произведение элементов строки в которой находится максимальный элемент матрицы - Pascal
Дана вещественная матрица А(5,5).Найти произведение элементов строки в которой находится максимальный элемент матрицы.

Удалить из матрицы строку и столбец, на перекрестье которых находится максимальный элемент - Pascal
дан двумерный массив размером n*m и заполненный случайным образом: 2 задача)удалить из него строку и столбец, на перекрестье которых...


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

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

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