Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 28
1

В каждой строке матрицы выбрать элемент с наименьшим значением

13.01.2012, 08:55. Показов 1387. Ответов 9
Метки нет (Все метки)

дана действ. матрица размерностью mxn, все элементы которой различны. В каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. Указать индексы элемента с найденным значением.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2012, 08:55
Ответы с готовыми решениями:

В каждой строке матрицы выбрать элемент с наименьшим значением
Дана матрица порядка n*m, все элементы которой различны. В каждой строке выбирается элемент с...

В каждой строке матрицы выбрать элемент с минимальным значением
В каждой строке матрицы размера N*M выбрать элимент с минимальным значением, затем среди этих чисел...

В каждой строке матрицы выбрать элемент с наименьшим значением
Помогите написать программу Дана действительная матрица размером n x m, все элементы которой...

В каждой строке матрицы выбрать элемент с наибольшим значением, затем среди этих чисел выбрать наименьшее
Данна действительна матрица размером n * m, все элементы которой различны. В каждой строке...

__________________
9
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,087
13.01.2012, 09:15 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
50
51
52
53
54
55
56
57
uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of real;
    m,n,i,j,jmn,imx,jmx:byte;
    mn,mx:real;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=20*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
mx:=a[1,1];
{найдем мин в строке 1 и его индекс, он пока будет максимальным}
jmx:=1;
imx:=1;
for j:=1 to n do
if a[1,j]<mx then
 begin
  mx:=a[1,j];
  jmx:=j;
 end;
writeln('Минимальный в строке 1=',mx:0:2);
for i:=2 to m do
 begin
  mn:=a[i,1];
  jmn:=1;
  for j:=1 to n do
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    jmn:=j;
   end;
  writeln('Минимальный в строке ',i,'=',mn:0:2);
  if mn>mx then
   begin
    mx:=mn;
    imx:=i;
    jmx:=jmn;
   end;
 end;
writeln('Максимальный из минимумов=',mx:0:2,' его индексы [',imx,',',jmx,']');
end.
1
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 28
13.01.2012, 09:45  [ТС] 3
а дальше))
0
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,087
13.01.2012, 09:46 4
Что дальше?
0
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 28
13.01.2012, 09:50  [ТС] 5
продолжение программы. У меня с матрицами проблемы(
0
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,087
13.01.2012, 09:54 6
golevkolya, Это вся программа, выполнены все условия задачи.

Добавлено через 45 секунд
Вы наверное с телефона и у Вас код полностью не входит, но это уже Ваша проблема.

Добавлено через 1 минуту
На какой строке у Вас заканчивается?
0
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 28
13.01.2012, 10:01  [ТС] 7
да, с телефона, все верно. Спасибо за помощь.
0
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,087
13.01.2012, 10:04 8
Если не все вошло, напишите последнюю строку, я напишу еще раз дальше.
0
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 28
13.01.2012, 10:10  [ТС] 9
30 строчка. Спасибо заранее.
0
Модератор
63373 / 47069 / 32443
Регистрация: 18.05.2008
Сообщений: 114,087
13.01.2012, 10:18 10
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Со стр 28.
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
{найдем мин в строке 1 и его индекс, он пока будет максимальным}
jmx:=1;
imx:=1;
for j:=1 to n do
if a[1,j]<mx then
 begin
  mx:=a[1,j];
  jmx:=j;
 end;
writeln('Минимальный в строке 1=',mx:0:2);
for i:=2 to m do
 begin
  mn:=a[i,1];
  jmn:=1;
  for j:=1 to n do
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    jmn:=j;
   end;
  writeln('Минимальный в строке ',i,'=',mn:0:2);
  if mn>mx then
   begin
    mx:=mn;
    imx:=i;
    jmx:=jmn;
   end;
 end;
writeln('Максимальный из минимумов=',mx:0:2,' его индексы [',imx,',',jmx,']');
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2012, 10:18

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

Выбрать в каждой строке матрицы из символов символ с наименьшим кодом и поставить его первым в строке матрицы.
Помогите написать программую Дана матрица размером M x N, состоящая из символов. Выбрать в...

В каждой строке матрицы выбрать элемент с наименьшим значением
Дана действительная матрица размера N x M, все элементы которой различны. В каждой строке...

В каждой строке матрицы выбрать элемент с наименьшим значением
Парни плз умляю помогите с зада4ей: Дана действительная матрица n*m, все элементы которой...

В каждой строке матрицы выбрать элемент с наименьшим значением
Дана действительная матрица размера N*M, все элементы которой различны. В каждой строке выбирается...


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

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

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