Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 22.10.2014
Сообщений: 42
1

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

05.11.2014, 08:26. Показов 572. Ответов 1
Метки нет (Все метки)

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
 var    b:matrix;
 i, j, jmin: integer;
 k:char;
Procedure App (var a:matrix);
begin
clrscr;
randomize;
writeln('исходная матрица');
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
   a[i,j]:=readkey;
    app:=a;
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  jmin:=1;
  for j:=2 to n do
  if a[i,j]<a[i,jmin] then jmin:=j;
  k:=a[1,i];
  a[1,i]:=a[i,jmin];
  a[i,jmin]:=k;
 end;
writeln('измененная матрица');
app(b);
for i:=1 to n do begin
 
 for j:=1 to n do begin
 write (a[i,j]:3);
 end;
 writeln;
end;
readln;
end.
Вроде бы все правильно. Но выдает ошибку. В процедуре дело.
Что не так? Помогите..

Добавлено через 4 минуты
Pascal
1
2
3
uses crt;
const n = 5;
type matrix= array[1..n,1..n] of char;
'
начало потерял. Но не в этом суть.
0

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

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

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

поменять первые элементы столбцов матрицы с минимальными элементами строк
собственно сабж. вот, что я наделал, но не робит... const n=3; m=3; type mas1=array of...

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

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

1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
05.11.2014, 09:50 2

Не по теме:

смешались в кучу кони, люди :)


Не смог найти конца процедуры. =) Процедурное программирование предполагает разделение отдельных действий на отдельные подпрограммы. Вот разбил вашу программу на процедуры init() - инициализация матрицы, output_arr() - вывод матрицы на экран, change() - изменение исходной матрицы:
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
uses
  crt;
 
const
  n = 5;
 
type
  matrix = array[1..n, 1..n] of char;
 
procedure init(var a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := chr(97 + random(26));
end;
 
procedure output_arr(a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
procedure change(var a: matrix);
var
  i, j, jmin: integer;
  k: char;
begin
  for i := 1 to n do
  begin
    jmin := 1;
    for j := 2 to n do
      if a[i, j] < a[i, jmin] then jmin := j;
    k := a[1, i];
    a[1, i] := a[i, jmin];
    a[i, jmin] := k;
  end;
end;
 
var
  b: matrix;
 
begin
  init(b);
  writeln('Matrix');
  output_arr(b);
  change(b);
  writeln('New Matrix');
  output_arr(b);
  readln;
end.
Добавлено через 58 секунд
p.s.: в алгоритм изменения матрицы не вникал - взял ваш, а матрицу создал рандомно, можете изменить при необходимости
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.11.2014, 09:50

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

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

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

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


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

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

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