Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
pahan72835
1 / 1 / 0
Регистрация: 18.01.2010
Сообщений: 48
1

Программа для упорядочивания элементов каждого столбца матрицы по убыванию любым методом

02.05.2013, 09:08. Просмотров 940. Ответов 1
Метки нет (Все метки)

Программа (Pascal) для упорядочивания элементов каждого столбца матрицы по убыванию любым методом.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2013, 09:08
Ответы с готовыми решениями:

Для каждого столбца матрицы с чётным номером вычислить сумму квадратов элементов этого столбца
. Создать матрицу 4х4. Для каждого столбца с четным номером вычислить сумму квадратов элементов...

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

Количество отрицательных элементов для каждого столбца матрицы
Подсчитать количество отрицательных элементов для каждого столбца двумерных таблиц A(m,n) и B(k,t)

Упорядочить элементы каждого столбца матрицы по убыванию их модулей
Упорядочить элементы каждого столбца матрицы X(K,L), K ≤ 50, L ≤ 30 по убыванию их модулей.

Массив: Определить суммы элементов каждого столбца левой половины и каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

1
Puporev
Модератор
56619 / 43299 / 29935
Регистрация: 18.05.2008
Сообщений: 103,019
02.05.2013, 09:21 2
Лучший ответ Сообщение было отмечено pahan72835 как решение

Решение

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
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10+random(41);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Нажмите Enter для продолжения');
readln;
for j:=1 to m do
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i,j]<a[k,j] then
 begin
  x:=a[i,j];
  a[i,j]:=a[k,j];
  a[k,j]:=x
 end;
writeln('Сортировка столбцов по убыванию');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:3);
  writeln
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2013, 09:21

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

Для каждого столбца матрицы найти произведение его элементов
Matrix20. Дана матрица размера M *N. Для каждого столбца матрицы найти произведение его...

Для каждого столбца матрицы найти произведение его элементов
дана матрица случайных чисел в диапазоне от 1 до 9 размера МхN. для каждого столбца матрицы найти...


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

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

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