Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Botinok
0 / 0 / 0
Регистрация: 06.02.2012
Сообщений: 10
1

Дана вещественная матрица размерности m*n. Расположить все элементы матрцицы по убыванию. Обход матрицы осуществлять по строкам.

06.02.2012, 23:30. Просмотров 1051. Ответов 1
Метки нет (Все метки)

Дана вещественная матрица размерности m*n. Расположить все элементы матрцицы по убыванию. Обход матрицы осуществлять по строкам.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.02.2012, 23:30
Ответы с готовыми решениями:

29. Дана квадратная вещественная матрица размерности n. Транспонировать матрицу
29. Дана квадратная вещественная матрица размерности n. Транспонировать матрицу.

Дана вещественная матрица А(12.12). Если под главной диагональю матрицы нет ни одного нулевого элемента, то упорядочить элементы побочной диагонали по
Дана вещественная матрица А(12.12). Если под главной диагональю матрицы нет ни одного нулевого...

Дана вещественная матрица. Удалить k столбец матрицы
1. Дана вещественная матрица размерности n * m. Удалить k столбец матрицы. Значения n, m, k –...

Дана вещественная матрица. Удалить k столбец матрицы
Дана вещественная матрица размерности n * m. Удалить k столбец матрицы. Значения n, m, k – вводятся...

Дана вещественная матрица. Элементы главной диагонали записать в одномерный массив
Данна вещественная матрица A(5x5). Элименты главной диагонали записать в массив B.

1
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
07.02.2012, 10:13 2
Лучший ответ Сообщение было отмечено Botinok как решение

Решение

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;
type matr=array[1..10,1..10] of real;
procedure Swap(var a,b:real); {процедура обмена двух элементов}
var tmp:real;
begin
tmp:=a;
a:=b;
b:=tmp;
end;
var a:matr;
    n,m,i,j,k,v:integer;
begin
clrscr;
randomize;
repeat
writeln('Введите количество строк до 10 n=');
readln(n);
until n in [1..10];
repeat
write(' Введите количество столбцов до 10 m=');
readln(m);
until m in [1..10];
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;{заполним матрицу случайными числами в инт(0,10)}
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln;
{сортировка матрицы по убыванию пузырьком по строкам}
for k:=1 to n*m do  {повторяем сколько элементов в матрице}
for i:=1 to n do
for j:=1 to m do
   begin
    if j<>m then {если элемент в строке не последний}
      begin
       if a[i,j+1]>a[i,j]
       then Swap(a[i,j+1],a[i,j]){обмен элементов}
      end
    else
     if (a[i+1,1]>a[i,j])and(i<>n) {если строка не последняя}
     {меняем первый элемент в следущей строке с последним элементом в текущей строке}
     then Swap(a[i+1,1],a[i,j]);
   end;
writeln('Отсортированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:5:2);
  writeln;
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 10:13

Вещественная матрица размерности m*n
Разработать алгоритм и программу решения задачи: Дана вещественная матрица размерности m*n...

Дана матрица размерности m*n упорядочить элементы каждой чётной строки по возростанию
Дана вещественная матрица размерности m*n. Упорядочить элементы каждой четной строки по возрастанию.

Дана матрица целых чисел размером 5x3. Заменить все отрицательные элементы матрицы на нули
Данная матрица целых чисел размером 5x3. Заменить все отрицательные элементы матрицы на нули....


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

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

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