Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить является ли матрица симметричной относительно главной диагонали https://www.cyberforum.ru/ turbo-pascal/ thread225068.html
дана матрица B:array of real.определить является ли данная матрица симметричной относительно главной диагонали.
в каждой матрице вычислить минимум из элементов, кратных 5, и найти сумму этих минимумов. Turbo Pascal
очень надо( даны две матрицы. в каждой матрице вычислить минимум из элементов, кратных 5, и найти сумму этих минимумов.
Turbo Pascal Сформировать массив из 15 простых чисел
экзамен, очень вас прошу помочь( сформировать массив из 15 простых чисел.
Turbo Pascal Вычислить сумму тех из них, порядковые номера(индексы) которых не являются простыми числами дана последовательность натуральных чисел. вычислить сумму тех из них, порядковые номера(индексы) которых- не являются простыми числами. https://www.cyberforum.ru/ turbo-pascal/ thread225065.html
Turbo Pascal Найти и вывести на экран все четные положительные элементы массива стоящие после максимального элемента массива https://www.cyberforum.ru/ turbo-pascal/ thread225063.html
скоро экзамен) дан массив А из К целых чисел. найти и вывести на экран все четные положительные элементы массива стоящие после максимального элемента массива.
Turbo Pascal Сколько раз первая цифра встречается в натуральном числе.
очень надо))) дано натуральное число.сколько раз первая цифра встречается в данном числе.
Определить является ли заданная последовательность возрастающей Turbo Pascal
надежда только на вас) определить является ли заданная последовательность возрастающей.признак окончания ряда считать появление нулевого числа.
Turbo Pascal Найти и вывести первое число, большее M решите, пожалуйста))) среди членов последоваетельности 1+n, 2+n(в квадрате), 3+n(в кубе), 4+n(в 4 степени)....найти и вывести первое число, большее M. https://www.cyberforum.ru/ turbo-pascal/ thread225060.html
Turbo Pascal Число Фибоначчи https://www.cyberforum.ru/ turbo-pascal/ thread225058.html
помогите решить, пожалуйста, одна надежда на вас)))) вводится натуральное число N.выводиться N-е число Фибоначчи.(числа Фибоначчи представляют собой последовательность:0,1,1,2,3,5,8......,т.е,каждое...
Turbo Pascal Составить алгоритм для определения падежа по вопросу. 1. Выполнить на ЭВМ программу обработки символьных данных в соответствии с вариантом, указанным в таблице. Предусмотреть ввод исходных данных как с клавиатуры, так и из файла. 2. Проверить... https://www.cyberforum.ru/ turbo-pascal/ thread225041.html
Модератор
62928 / 46949 / 32353
Регистрация: 18.05.2008
Сообщений: 113,760
07.01.2011, 10:04 0

Упорядочить столбцы матрицы по убыванию сумм их элементов.

07.01.2011, 10:04. Просмотров 1648. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено amikulia как решение

Решение


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
uses crt;
const n=4;
var a:array[1..n+1,1..n] of real;
    i,j,k:byte;
    sm,x:real;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10*random;
{считаем сумму в столбце}
for j:=1 to n do
 begin
  sm:=0;
  for i:=1 to n do
  sm:=sm+a[i,j];
  a[n+1,j]:=sm;{и записываем в дополнительную строку}
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  write(' ':6);{5 пробелов в начале строки}
  for j:=1 to n do
  write(a[i,j]:6:2);{элементы строки}
  writeln;
 end;
writeln;
write('Сумма ');{дополнительная строка с суммами}
for j:=1 to n do
write(a[n+1,j]:6:2);
writeln;
writeln;
{перестановка столбцов по убыванию значений в последней строке}
for j:=1 to n-1 do
for k:=j+1 to n do
if a[n+1,j]<a[n+1,k] then
for i:=1 to n+1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=x;
 end;
writeln('Столбцы упорядочены:');
for i:=1 to n do
 begin
  write(' ':6);
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
writeln;
write('Сумма ');
for j:=1 to n do
write(a[n+1,j]:6:2);
readln
end.


Вернуться к обсуждению:
Упорядочить столбцы матрицы по убыванию сумм их элементов.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.01.2011, 10:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Упорядочить столбцы матрицы по возрастанию сумм элементов столбца
Путь дана матрица А(n x m).Разработать программу,позволяющую упорядочить столбцы матрицы по...

Переставляя столбцы заданной матрицы расположить их по убыванию сумм элементов
Здравствуйте можете пожалуйста составить программу в паскале. Переставляя столбцы заданной...

Упорядочить строки матрицы по убыванию сумм элементов строк
Пожалуйста помогите сделать так, чтобы программа работала так, как требуется: Дана матрица n*m....

Упорядочить столбцы матрицы по убыванию элементов в k строке
Дана матрица А(n,m). Упорядочить столбцы матрицы по убыванию элементов в k строке, где k – номер...

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