Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
1

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

18.10.2009, 23:26. Показов 1195. Ответов 4
Метки нет (Все метки)

собственно сабж.

вот, что я наделал, но не робит...

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
const
 n=3;
 m=3;
type
 mas1=array[1..n, 1..m] of real;
 mas2=array[1..n] of real;
var
 i,j:integer;
 m1:mas1;
 m2:mas2;
 m3:mas2;
begin
 writeln('Заполним массив');
 for i:=1 to n do
  begin
   for j:=1 to m do
    read(m1[i,j]);
  end;
 for i:=1 to n do
  m2[i]:=m1[i,1];
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if m1[i,j]<m2[i] then
      begin
       m3[i]:=m2[i];  
       m2[i]:=m1[i,j];
       m1[i,1]:=m1[i,j];
       m1[i,j]:=m3[i];
      end;
    end;
  end;
 writeln('Получаем масиив');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     write(m1[i,j]:5);
    end;
   writeln;
  end;
  readln;
  readln;
end.
прошу помочь...пожаааааааааааааааалуйста
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2009, 23:26
Ответы с готовыми решениями:

Поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы
uses crt; const n = 4; m = 5; var matrix: array of integer; max, min, i, j, k:...

Через процедуру поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы
var b:matrix; i, j, jmin: integer; k:char; Procedure App (var a:matrix); begin clrscr;...

Сформировать вектор В, элементы которого являются минимальными элементами строк матрицы А
Помогите решить пожалуйста)) Сформировать вектор В, элементы которого являются минимальными...

Сформировать вектор, элементы которого являются минимальными элементами строк матрицы
Помогите пожалуйста исправить программу. Нужно сформировать вектор В, элементы которого являются...

4
Реальность Нереальна!
352 / 127 / 7
Регистрация: 02.08.2009
Сообщений: 3,213
Записей в блоге: 1
18.10.2009, 23:33 2
oinari, ну у меня вроде что-то выводиться. Напишите полностью задание, тогда будет легче понять где ошибка
1
5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
18.10.2009, 23:39  [ТС] 3
PAZITIV,
поменять первые элементы столбцов матрицы с минимальными элементами строк
собсвенно задание и есть название темы.
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
19.10.2009, 09:41 4
Это не правильное, или не полное задание. Возьмем первый столбец, с минимальным в какой строке его нужно поменять?
0
5 / 4 / 0
Регистрация: 18.10.2009
Сообщений: 69
25.10.2009, 18:50  [ТС] 5
Возьмём матрицу:
3 4 6
1 0 4
9 3 1

Сравниваем число 3 с другими элементами 1ой строки 3, 4, 6, они больше, чем 3, поэтому замена не нужна.
Сравниваем число 4 с другими элементами 2ой строки 1, 0, 4, 0 меньше чем 4, заменяем!
и т.д

в итоге должны получить:
3 0 1
1 4 4
9 3 6
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
58
59
60
61
62
63
64
65
66
67
program lab21;
 uses crt; {подключение библиотечного модуля Crt}
 const
 n=3; {кол-во строк в матрице}
 m=3; {кол-во столбцов в матрице}
type {раздел описания типов переменных}
 mas1=array[1..n, 1..m] of integer; {1..n, 1..m - тип индекса,
 для индекса выбран интервальный тип, т.е интервал целых чисел, 
 которые определены в разделе const}
 mas2=array[1..n] of integer; 
var {раздел объявления переменных, выделение для них памяти}
 i,j,min:integer; {переменные хранящие индексы элементов массива}
 m1:mas1; {m1 - двумерный массив, его тип определён как mas1}
 m2,m3,m4,m5:mas2; {m2,m3,m4,m5 - одномерные массивы, их типы определёны как mas2}
begin {раздел действия}
 clrscr; {очистка экрана}
 writeln('Введем массив целых чисел, размерностью 3х3');
 for i:=1 to n do {заполняем массив}
  begin
   for j:=1 to m do 
    read(m1[i,j]);
    write;
   end;
writeln;
for i:=1 to n do  {присваиваем первую строчку матрицы, массиву m2}
  begin
  m2[i]:=m1[1,i];
  end;
for i:=1 to n do  {присваиваем первый столбец матрицы, в массиву 2}
m5[i]:=m1[i,1];
for i:=1 to n do {определяем минимальные элементы строк}
  begin
   for j:=1 to m do
    if m1[i,j]<m5[i] then
    m4[i]:=m1[i,j];
    begin
    if m4[i]=0 then
    m4[i]:=m5[i]
    end;
  end;
writeln;
 for i:=1 to n do {заменяем минимальные элементы первой строки,
 с минимальными элементами строк}
  begin
   for j:=1 to m do
      begin
      if m1[i,j]=m4[i] then
      begin
       m3[i]:=m2[i];
       m2[i]:=m4[i];
       m1[1,i]:=m1[i,j];
       m1[i,j]:=m3[i];
       end;
    end;
  end;
writeln('полученный массив');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     write(m1[i,j]:3);
    end;
   writeln;
  end;
  readln; {пустой оператор readln,
  чтобы программа сразу не закрывалась после окончания вычислений}
end. {завершение работы программы}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2009, 18:50

Заменить диагональные элементы матрицы минимальными элементами соответствующих столбцов
Заданная матрица. Заменить диагональные элементы матрицы минимальными элементами соответствующих...

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

Поменять первые элементы каждого столбца матрицы с элементами главной диагонали
Дана целочисленная квадратная матрица. Определить : 1) произведение элементов в тех строках,...

Поменять местами строки с минимальными и максимальными элементами матрицы
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ, ПОЖАЛУЙСТА! В заданной матрице размерность которой указывает пользователь,...

В матрице заменить знакочередующиеся элементы максимальными и минимальными элементами строк
Всем привет! Дали задачку в универе по Паскалю, не могу решить... Вот ее текст: &quot;Двумерный...

Поменять местами первые положительные элементы матрицы
Пожалуйста помогите решить задачу! Дано: прямоугольные матрицы A и B. Поменять местами первые...


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

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

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