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

Поменять столбец с наибольшим элементом, со столбцом с наименьшим (исправьте задачу)

11.05.2012, 09:58. Показов 1801. Ответов 6
Метки нет (Все метки)

В действительной матрице размером n x m (n, m <10) поменять местами столбец, содержащий
элемент с наибольшим значением, со столбцом, содержащим элемент с наименьшим
значением (предположить, что эти элементы единственны). Размер матрицы и ее элементы
вводятся с клавиатуры. Оформить ввод и вывод матрицы.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.05.2012, 09:58
Ответы с готовыми решениями:

В матрице поменять столбец с наибольшим элементом со столбцом с наименьшеим элементом
ПОМОГИТЕ, ПОЖАЛУЙСТА (нужны только программы ,без блок-схем) 4)в массиве В (3,3) поменять...

В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим
В матрице А(6,6) найти строку с наименьшем элементом и поменять его со столбцом с наибольшим числом...

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

Скалярное произведение строки с наибольшим элементом матрицы на столбец с наименьшим элементом
Дана матрица целых чисел X(n, п). Вывести матрицу и скалярное произведение строки с наибольшим...

6
0 / 0 / 0
Регистрация: 05.01.2012
Сообщений: 53
11.05.2012, 10: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
Uses CRT;
Const n=10;
var a:array[1..n] of integer;
    i,max,undex,p:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(15)-8;
          write(' a[',i,']=',a[i]);
     end;
max:=a[1];
     for i:=1 to n do
      begin
           if abs(a[i])> abs(max) then
           begin
                max:=a[i];
                undex:=i;
           end;
      end;
if undex=0 then inc(undex);
writeln('');
writeln('Max=',max,' ','Index=',undex);
0
1 / 1 / 1
Регистрация: 04.01.2012
Сообщений: 62
11.05.2012, 10:36  [ТС] 3
фигня.
0
1 / 1 / 1
Регистрация: 04.01.2012
Сообщений: 62
11.05.2012, 13:47  [ТС] 4
В действительной матрице размером n x m (n, m <10) поменять местами столбец, содержащий
элемент с наибольшим значением, со столбцом, содержащим элемент с наименьшим
значением (предположить, что эти элементы единственны). Размер матрицы и ее элементы
вводятся с клавиатуры. Оформить ввод и вывод матрицы.
Матрица готова, надо только поменять местами столбцы.
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
program zadanie3;
uses crt;
Var
X:Array [1..10, 1..10] Of integer;
m,n, in1, in2:integer;
P:Real;
buf:real;
i,j,max,min: Integer;
Begin
clrscr;
WriteLn ('');
Write ('vvedite raznomernost:  N = ');
ReadLn (N);
write('vvedite raznomernost:   M=');
readln(m);
WriteLn ('vvedite elementy');
For i := 1 To N Do
    For j := 1 To M Do
    Begin
    Write ('X[', i, ',', j, '] = ');
    ReadLn (X [i, j]);
    End;
for i:=1 to n do
    begin
    for j:=1 to m do
     write(x[i,j]:3);
    writeln;
end;
Max:=x[1,1];
For i:=1 to n do
for j:=1 to m do
Begin
  If x[i,j] > Max then Max:=x[i,j];
  begin
  in1:=j;
  in2:=j;
  end;
  if x[i,j] < min then min:=x[i,j];
End;
Writeln('max',Max);
min:=x[1,1];
For i:=1 to n do
for j:=1 to m do
Begin
  If x[i,j] < min then min:=x[i,j]
End;
Writeln('min',min);
readln;
end.
0
8 / 8 / 1
Регистрация: 28.03.2012
Сообщений: 126
11.05.2012, 14:31 5
1. Находим наименьший и наибольший эллементы в столбцах, алгоритм таков:
Записываем в переменную 1 число матрицы.
Прокручиваем матрицу по столбцам.
(Т.е переменные-счетчики в цикле, который вы используете для ввода матрицы меняете местами.)
Сравниваем эллемент, который находится в нашей переменной с эллементами матрицы по очереди.
Если нашли меньший/больший - записываем его и координаты.
2. После того как нашли нужные столбцы делаем цикл по любому из них.
Записываем первый эллемент первого столбца в любую переменную, записываем значение второго столбцы на место первой. Записываем значение из нашей переменной во второй стобец.

Код нужен, или способ реализации нужна была?
0
1 / 1 / 1
Регистрация: 04.01.2012
Сообщений: 62
11.05.2012, 15:30  [ТС] 6
код если можно.)
0
1 / 1 / 1
Регистрация: 04.01.2012
Сообщений: 62
15.05.2012, 15:46  [ТС] 7
В действительной матрице размером n x m (n, m <10) поменять местами столбец, содержащий
элемент с наибольшим значением, со столбцом, содержащим элемент с наименьшим
значением (предположить, что эти элементы единственны). Размер матрицы и ее элементы
вводятся с клавиатуры. Оформить ввод и вывод матрицы. Изменения сделал, нужно просто вывести конечную матрицу.
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
program zadanie3;
uses crt;
Var
X:Array [1..10, 1..10] Of integer;
m,n, in1, in2:integer;
P:Real;
buf:integer;
i,j,max,min: Integer;
Begin
clrscr;
WriteLn ('');
Write ('vvedite raznomernost:  N = ');
ReadLn (N);
write('vvedite raznomernost:   M=');
readln(m);
WriteLn ('vvedite elementy');
For i := 1 To N Do
    For j := 1 To M Do
    Begin
    Write ('X[', i, ',', j, '] = ');
    ReadLn (X [i, j]);
    End;
for i:=1 to n do
    begin
    for j:=1 to m do
     write(x[i,j]:3);
    writeln;
end;
Max:=x[1,1];
min:=x[1,1];
For i:=1 to n do
for j:=1 to m do
Begin
  If x[i,j] > Max then
  begin
   Max:=x[i,j];
  in1:=j;
    end;
  if x[i,j] < min then
  begin
  min:=x[i,j];
  in2:=j;
  end;
End;
for i:=1 to n do
 begin
 buf:=x[i,in1];
 x[i,in2]:=x[i,in1];
 x[i,in1]:=buf;
 end;
readln;
 
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.05.2012, 15:46

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

Заменить столбец матрицы с наибольшим элементом строкой с наименьшим элементом
Помогите решить! 1)Дана квадратная матрица. Заменить столбец с наибольшим элементом строкой с...

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

Столбец матрицы с максимальным элементом поменять местами со столбцом с нулевым элементом
Как столбец с максимальным элементом поменять местами со столбцом с нулевым элементом

Поменять местами столбец, с минимальным элементом, со столбцом, с максимальным элементом
Задана матрица размером N*M. Поменять местами столбец, содержащий элемент с минимальным значением,...

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

Поменять местами столбцы с наибольшим и наименьшим элементом.
С помощью датчика случайных чисел сформировать матрицу n x m. Поменять местами столбцы с наибольшим...


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

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

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