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

Программа должна находить минимальный элемент в столбцах матрицы которые упорядочены

13.01.2015, 13:18. Просмотров 310. Ответов 3
Метки нет (Все метки)

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
var a:array[1..100,1..100] of integer;
var i,j,n,m,t,min,f,f1,f2:integer;
 
begin
write('M='); read(m);
write('N='); read(n);
for i:=1 to m do
  for j:=1 to n do begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
end;
writeln('Ishodnaya matrica');
for i:=1 to m do begin
  for j:=1 to n do 
  write(a[i,j],' ');
  writeln;
end; 
for j:=1 to n do begin
f1:=0;f2:=0;t:=a[1,j];
for i:=2 to m do begin
if a[i,j]<t then t:=a[i,j];
if a[i,j]<=a[i-1,j] then f1:=1;
if a[i,j]>=a[i-1,j] then f2:=1;
end;
if (f1=0) or (f2=0) then 
if f=0 then begin
f:=1; min:=t;
end
else
if min>t then t:=min;
end; 
if f=0 then writeln('Net elementa')
else writeln('Minimalnii element');
     writeln(min);
readln;
end.
Программа должна находить минимальный элемент в столбцах матрицы которые упорядочены(по возрастанию и по убыванию)
Однако если в матрице есть столбец упорядоченный по убыванию и столбец упорядоченный по возрастанию то программа выводит минимальный элемент столбца который упорядочен по возрастанию.В связи с этим выводимый результат не всегда правильный!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2015, 13:18
Ответы с готовыми решениями:

программа должна находить минимальный элемент массива среди элементов с нечетными индексами!
лЮДИ ХЕЛП! Массив заполняется с клавиатуры!

Найти min и max в тех строках и столбцах матрицы, которые упорядочены
Дана матрица n на m. Найти максимальный среди элементов тех строк, которые...

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

Найти минимальный элемент в упорядоченных столбцах матрицы
uses crt; const nmax=5000; type mas=array of real; const glav:array of...

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

3
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
13.01.2015, 14:09 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
var a:array[1..100,1..100] of integer;
    i,j,n,m,t,min,f:integer;
begin
write('M='); readln(m);
write('N='); readln(n);
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
end;
writeln('Ishodnaya matrica');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
t:=0;
for j:=1 to n do
 begin
  f:=0;
  i:=2;
  while(i<m)and(f=0) do
  if((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
  or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then f:=1
  else i:=i+1;
  if f=0 then
   begin
    t:=1;
    min:=a[1,j];
    for i:=2 to m do
    if a[i,j]<min then min:=a[i,j];
    writeln('V stolbce ',j,' min=',min);
   end;
 end;
if t=0 then writeln('Net uporyadochennyh stolbcov');
readln;
end.
0
g0hst
0 / 0 / 1
Регистрация: 03.12.2014
Сообщений: 29
13.01.2015, 15:14  [ТС] 3
А как теперь вывести минимальный элемент среди тех которые выведены на экран?
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
13.01.2015, 15:25 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
t:=0;
for j:=1 to n do
 begin
  f:=0;
  i:=2;
  while(i<m)and(f=0) do
  if((a[i,j]<a[i-1,j])and(a[i,j]<a[i+1,j]))
  or((a[i,j]>a[i-1,j])and(a[i,j]>a[i+1,j]))then f:=1
  else i:=i+1;
  if f=0 then
   begin
    t:=t+1;
    min:=a[1,j];
    for i:=2 to m do
    if a[i,j]<min then min:=a[i,j];
    writeln('V stolbce ',j,' min=',min);
   end;
  if t=1 then min1:=min
  else if min<min1 then min1:=min;
 end;
if t=0 then writeln('Net uporyadochennyh stolbcov')
else writeln('Iz nih min=',min1);
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2015, 15:25

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

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

Программа должна находить наибольшую цифру во вводимом числе
Дан код, нужно найти и исправить ошибку. Program Prog1; var m, x, ost:...


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

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

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