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

Обработка матриц.В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением.

26.04.2012, 17:49. Показов 1043. Ответов 4
Метки нет (Все метки)

В матрице а(3х5) поменять местами элементы с наибольшим и наименьшим значением.

Кто поможет, буду признательна.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2012, 17:49
Ответы с готовыми решениями:

В матрице размером NxM поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением.
Помогите пожалуйста!!!

Поменять местами столбец с наибольшим значением со столбцом с наименьшим значением
в массиве В(3,3) поменять местами столбец , содержащий наиб. значение со столбцом, содержащим наим....

Поменять местами в матрице строки с наименьшим и наибольшим элементами
Дана матрица целых чисел А (n×n). Поменять в ней местами строки с наименьшим и наибольшим...

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

4
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
26.04.2012, 18:04 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
var a: array [1..3,1..5] of integer;
    i, j, maxI, maxJ, minI, minJ, t: integer;
begin
     randomize;
     for i:=1 to 3 do begin
         for j:=1 to 5 do begin
             a[i,j]:=random(10);
             write(a[i,j]:3);
         end;
         writeln;
     end;
     maxi:=1; maxj:=1; mini:=1; minj:=1;
     for i:=1 to 3 do
         for j:=1 to 5 do begin
             if a[mini,minj]>a[i,j] then begin mini:=i; minj:=j; end;
             if a[maxi,maxj]<a[i,j] then begin maxi:=i; maxj:=j; end;
         end;
     t:=a[maxi,maxj];
     a[maxi,maxj]:=a[mini,minj];
     a[mini,minj]:=t;
     writeln;
     for i:=1 to 3 do begin
         for j:=1 to 5 do write(a[i,j]:3);
         writeln;
     end;
     readln;
end.
2
1 / 1 / 0
Регистрация: 25.12.2011
Сообщений: 14
26.04.2012, 18:17  [ТС] 3
Спасибо!!!!
0
0 / 0 / 0
Регистрация: 27.05.2013
Сообщений: 4
15.08.2013, 23:23 4
Добавлено через 1 минуту
Цитата Сообщение от Krot-buterbrod Посмотреть сообщение
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
var a: array [1..3,1..5] of integer;
    i, j, maxI, maxJ, minI, minJ, t: integer;
begin
     randomize;
     for i:=1 to 3 do begin
         for j:=1 to 5 do begin
             a[i,j]:=random(10);
             write(a[i,j]:3);
         end;
         writeln;
     end;
     maxi:=1; maxj:=1; mini:=1; minj:=1;
     for i:=1 to 3 do
         for j:=1 to 5 do begin
             if a[mini,minj]>a[i,j] then begin mini:=i; minj:=j; end;
             if a[maxi,maxj]<a[i,j] then begin maxi:=i; maxj:=j; end;
         end;
     t:=a[maxi,maxj];
     a[maxi,maxj]:=a[mini,minj];
     a[mini,minj]:=t;
     writeln;
     for i:=1 to 3 do begin
         for j:=1 to 5 do write(a[i,j]:3);
         writeln;
     end;
     readln;
end.
скажи пожалуйста, как заменить рандом вводом матрицы вручную, 2 часа пытаюсь не могу понять
0
94 / 94 / 32
Регистрация: 29.06.2013
Сообщений: 252
15.08.2013, 23:38 5
Pascal
1
2
3
4
5
6
7
8
randomize;
     for i:=1 to 3 do begin
         for j:=1 to 5 do begin
             a[i,j]:=random(10);
             write(a[i,j]:3);
         end;
         writeln;
     end;
поменяй на
Pascal
1
2
for i:=1 to 3 do
    for j:=1 to 5 do Read(a[i,j]);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.08.2013, 23:38

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Поменять столбец матрицы А с наибольшим значением со столбцом матрицы В с наименьшим значением
Даны две целочисленные матрицы A и B размером M на N, все элементы которых различны. Поменять...

Найти слова, с наибольшим и наименьшим количеством заглавных латинских букв, и поменять их местами
Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Слова могут...

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

Поменять местами строки текста с наибольшим и наименьшим весом (вес-сумма ASCII-кодов символов)
uses crt; var a : array of string; i,n,x, sum : integer; begin clrscr; write('введите...


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

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

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