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

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

22.10.2014, 08:41. Показов 1060. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const    n = 4; m = 5;
 
var
    matrix: array[1..n,1..m] of integer;
    max, min, i, j, k: integer;
 
begin
    clrscr;
    randomize;
    for i := 1 to n do begin
        for j := 1 to m do begin
            matrix[i,j] := random(100);
            write(matrix[i,j]:3);
        end;
        writeln;
Вывожу рандомно матрицу на экран, а вот поменять местами первые элементы столбцов матрицы с минимальными элементами строк матрицы не получается. Помогите, пжл.
0

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

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

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

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

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

Поменять местами элементы второго и четвертого столбцов матрицы
Очень нужна помощ... в разборе 2х задач на массивы. 1) Задан массив K (7;7). Вычислить сумму...

1
Модератор
64058 / 47473 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
22.10.2014, 08:55 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
35
uses crt;
const n = 5;//матрица должна быть квадратной
var matrix: array[1..n,1..n] of integer;
    i, j, k, jmin: integer;
begin
clrscr;
randomize;
writeln('Исходная матрица');
for i := 1 to n do
 begin
  for j := 1 to n do
   begin
    matrix[i,j] := random(100);
    write(matrix[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  jmin:=1;
  for j:=2 to n do
  if matrix[i,j]<matrix[i,jmin] then jmin:=j;
  k:=matrix[1,i];
  matrix[1,i]:=matrix[i,jmin];
  matrix[i,jmin]:=k;
 end;
writeln('Измененная матрица');
for i := 1 to n do
 begin
  for j := 1 to n do
  write(matrix[i,j]:3);
  writeln;
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2014, 08:55

Образовать и напечатать вектор a, элементами которого являются максимальные элементы строк матрицы
Напишите мне 2 кода сделаю что захотите :-* 2. Дано матрицу C: 5х6. Образовать и напечатать вектор...

Найти количество строк, столбцов матрицы, все элементы которых различны
Дана целочисленная матрица M x N . Найти колличество ее строк ,столбцов, все элементы которых...

Поменять местами столбец матрицы с номером один и первый из столбцов, содержащий только положительные элементы
Дана матрица размера 5 x 10. Поменять местами столбец с номером один и первый из столбцов,...

Удаление строк и столбцов матрицы, где все элементы являются числами Фибоначчи
Здравствуйте, помогите написать программу! Удалить строки и столбцы матрицы, где все элементы...


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

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

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