Массивы - Форум
Понедельник, 05.12.2016, 07:23
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Массивы (упорядочить строки)
Массивы
ЯрославаДата: Понедельник, 24.05.2010, 19:50 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
дана матрица целых чисел x(n,m).упорядочить ее строки по возрастанию сумм их элеменов.вывести исходную и полученную матрицы.

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

CLS
RANDOMIZE TIMER

PRINT "vvedite shirinu";
INPUT m

PRINT "vvedite visotu";
INPUT n

PRINT "vvedite maxialnoe chislo max = ";
INPUT max

DIM a(n, m) AS INTEGER ' ishodniy massiv
DIM r(n, m) AS INTEGER ' massiv resultat
DIM s(n) AS INTEGER ' massiv summ strok
DIM ind(n) AS INTEGER ' massiv indeksov strok

FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = RND * max
PRINT a(i, j); "; ";
NEXT
s(i) = 0
ind(i) = i
PRINT
NEXT

' nahodim summi strok
FOR i = 1 TO n
FOR j = 1 TO m
s(i) = s(i) + a(i, j)
NEXT
NEXT

FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF s(i) > s(j) THEN
t = s(i)
ti = ind(i)
s(i) = s(j)
ind(i) = ind(j)
s(j) = t
ind(j) = ti
END IF
NEXT
NEXT

FOR i = 1 TO n
FOR j = 1 TO m
r(i, j) = a(ind(i), j)
NEXT
NEXT

PRINT "-----------------------------------"
' vivod otsortirovannogo massiva
FOR i = 1 TO n
FOR j = 1 TO m
PRINT r(i, j); "; ";
NEXT
PRINT
NEXT

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Массивы (упорядочить строки)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016