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

Дана матрица целых чисел A(mxn).Вывести на экран строку и столбец, содержащие её наименьший элемент...

11.01.2011, 11:16. Просмотров 933. Ответов 3
Метки нет (Все метки)


Дана матрица целых чисел A(mxn).Вывести на экран строку и столбец, содержащие её наименьший элемент, а также номера этих строки и столбца.

вот,сделал матрицу 4x4, рандомировнанные элементы:
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
Program  5;
uses crt;
const n=4;m=4;
Var a:array[1..n,1..m]  of integer;
min,i,j:integer;
Begin
randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(5); 
write(a[I,j]:4);
end;
writeln;
end;
min:=a[1,1];
For i:=1 to n do
For j:=1 to m do
If min> a[i,j] then 
min:=a[i,j];
Writeln('наименьший элемент=',min);
Readln;
End.
но не могу "Вывести на экран строку и столбец,содержащие её наименьший элемент,а также номер этих строк и столбца",подскажите пожалуйста...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.01.2011, 11:16
Ответы с готовыми решениями:

Дана матрица из целых чисел А размерности MxN. Упорядочить элементы матрицы так, чтобы
Дана матрица из целых чисел А размерности MxN. Упорядочить элементы матрицы так, чтобы А>=A, если...

Найти наименьший элемент списка целых чисел. Вывести на экран все множители этого элемента
Найти наименьший элемент списка целых чисел. Вывести на экран все множители этого элемента.

Дана матрица целых чисел размером 4x4. Повернуть матрицу на 90 градусов и вывести содержимое матрицы на экран
Дана матрица целых чисел размером 4x4. Повернуть матрицу на 90 градусов и вывести содержимое...

Дана матрица. Вывести k-ю строку и p-й столбец матрицы
Дана матрица. Вывести k-ю строку и p-й столбец матрицы.

3
65 / 62 / 63
Регистрация: 15.12.2010
Сообщений: 150
11.01.2011, 11: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
29
30
31
32
33
34
uses crt;
const n=4;m=4;
Var a:array[1..n,1..m] of integer;
min,i,j,b,c:integer;
Begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to m do
begin
a[i,j]:=random(5);
write(a[I,j]:4);
end;
writeln;
end;
min:=a[1,1];
For i:=1 to n do
For j:=1 to m do
If min> a[i,j] then
min:=a[i,j];
Writeln('minim el = ',min);
for i:=1 to n do begin
    for j:=1 to m do begin
        if a[i,j]=min then begin
           writeln('stolbec');
           for b:=1 to m do writeln(a[b,j]:4);writeln;
           writeln('stroka');
           for c:=1 to n do write(a[i,c]:4);writeln;
        end;
    end;
end;
Readln;
End.
0
2855 / 1984 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
11.01.2011, 11:58 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
uses
 crt;
const
 n=4;
 m=4;
Var
 a:array[1..n,1..m] of integer;
 jmin,imin,i,j:integer;
Begin
randomize;
imin:=1;
jmin:=1;
For i:=1 to n do
 begin
  For j:=1 to m do
   begin
    a[i,j]:=random(10)-3;
    write(a[I,j]:4);
    If a[i,j]<a[imin,jmin] then
    begin
     imin:=i;
     jmin:=j;
    end;
   end;
  writeln;
 end;
writeln;
Writeln('MIN[',imin,',',jmin,']:=',a[imin,jmin]);
Readln;
End.
про столбец со строкой не дочитал:
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
uses
 crt;
const
 n=4;
 m=4;
Var
 a:array[1..n,1..m] of integer;
 jmin,imin,i,j:integer;
Begin
randomize;
imin:=1;
jmin:=1;
For i:=1 to n do
 begin
  For j:=1 to m do
   begin
    a[i,j]:=random(10)-3;
    write(a[I,j]:4);
    If a[i,j]<a[imin,jmin] then
    begin
     imin:=i;
     jmin:=j;
    end;
   end;
  writeln;
 end;
writeln;
For i:=1 to n do
 Write(a[imin,i]:3);
writeln;
For j:=1 to m do
 Writeln(a[j,jmin]);
Writeln('MIN[',imin,',',jmin,']:=',a[imin,jmin]);
Readln;
End.
0
0 / 0 / 0
Регистрация: 10.01.2011
Сообщений: 7
11.01.2011, 12:24  [ТС] 4
Оу,спасибо большое,просто огромное!Оба варианта очень даже неплохи)ещё раз спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2011, 12:24

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

Дана матрица F 7,7. Вывести с каждого столбца наименьший элемент в textbox1
Дана матрица F 7,7. Вывести с каждого столбца наименьший элемент в textbox1.

Ввести одномерный массив из 7 целых чисел с клавиатуры и вывести его на экран. Найти его наименьший элемент
вывести одномерный массив из 7 целых чисел с клавиатуры и вывести его на экран. найти его...

Дана матрица целых чисел размером 4x4. Определите произведение минимальных элементов каждой строки матрицы. Результат вывести на экран монитор
Дана матрица целых чисел размером 4x4. Определите произведение минимальных элементов каждой...

Дана матрица целых чисел размером 4x4. Определите сумму элементов, расположенных выше главной диагонали. Результат вывести на экран монитора
Дана матрица целых чисел размером 4x4. Определите сумму элементов, расположенных выше главной...


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

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

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