Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 08.03.2014
Сообщений: 6
1

Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице?

23.05.2015, 14:16. Просмотров 382. Ответов 1
Метки нет (Все метки)


Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице размером 5х4 ?

Cтолкнулся с проблемой, что если последний элемент матрицы (нижний, правый) является минимальным, то оно его и выводит как минимальный в независимости от заданной строчки. Я понимаю, что просто неправильно присвоил начальный елемент перед поиском... Как тут быть? В целом программа работает.

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
 var
 a : array [1..10,1..10] of real;
 i,j,l,k: integer;
 min,max: real;
 begin
 
 for i:=1 to 5 do
 for j:=1 to 4 do
 a[i,j]:=random(0,100);
 
 writeln('В матрице:'); writeln;
 for i:=1 to 5 do begin
 for j:=1 to 4 do
 write(a[i,j]:7:2,' ');
 writeln;
 end;
 writeln;
 
 Writeln('Выберите K-ый столбец и L-ую строку'); 
  readln(k,l);
 
 max:=a[i,j]-1;
 min:=a[i,j]+1;
 for i:=1 to l do
  for j:=1 to k do
   begin
   
     if A[i,j]>max then max:=A[i,k];
    if min>A[l,j] then min:=A[l,j];
   end;
   
    
Writeln('Максимальный элемент = ',max:4:2);
 Writeln('Минимальный элемент = ',min:4:2);
 writeln;
 if min<max then writeln('Min элемент L-ой строки Меньше') else
 writeln('Max элемент K-ой строки Меньше')
 
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2015, 14:16
Ответы с готовыми решениями:

В матрице найти сумму элементов столбца, в котором расположен наибольший элемент
Заданная квадратная матрица A размером N x N (N &lt;= 10), состоящая из действительных элементов ....

В матрице заменить наибольший элемент строки наименьшим
Как в матрице (двухмерный массив) заменить наибольший элемент строки наименьшим?

Найдите ее наибольший элемент и номера строки и столбца
дана матрица A(N,M). Найдите ее наибольший элемент и номера строки и столбца на пересечени которых...

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

1
Модератор
62928 / 46949 / 32354
Регистрация: 18.05.2008
Сообщений: 113,762
23.05.2015, 14:57 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
const m=5;
      n=4;
var  a : array [1..m,1..n] of real;
     i,j,l,k: integer;
     min,max: real;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
Writeln('Выберите K-ый столбец и L-ую строку');
readln(k,l);
min:=a[l,1];
for i:=2 to n do
if a[l,i]<min then min:=a[l,i];
writeln('Минимальный элемент в строке ',l,'=',min:0:2);
max:=a[1,k];
for i:=2 to m do
if a[i,k]>max then max:=a[i,k];
writeln('Максимальный элемент в столбце ',k,'=',max:0:2);
if min<max then writeln('Min элемент L-ой строки Меньше') else
writeln('Max элемент K-ой строки Меньше')
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2015, 14:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить наименьший элемент каждой четной строки в заданной квадратной матрице
1) Определить наименьший элемент каждой четной строки в заданной квадратной матрицы А и сумму этих...

Найти сумму элементов строки, в которой расположен наименьший элемент в матрице
Найти сумму элементов строки, в которой расположен наименьший элемент в матрице размеров 4х4 с...

Определить, что наибольший элемент первой последовательности меньше наименьшего элемента второй
Помогите написать программу на Паскале Даны две последовательности:С1,С2...,С10...

Двумерный массив. Найти наибольший элемент. Заменить все элементы первого столбца на максимальный элемент
Помогите пожалуйста, контрольную надо исправить, вот эти задачи решить дали: 1. дан двумерный...


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

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

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