|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.12.2018, 13:08 | #1 |
Пользователь
Регистрация: 09.03.2018
Сообщений: 77
|
Проверить упорядочены ли элементы строк матрицы. Если нет, то упорядочить их в порядке возрастания методом стандартного обмена pascal abc
Дана действительная матрица размерности (n*n). Проверить упорядочены ли элементы строк матрицы. Если нет, то упорядочить их в порядке возрастания методом стандартного обмена. Помогите переделать, чтобы размерности матрицы и ее элементы выводились на экран, а также полученная матрица и другие элементы также выводились на экран. Вот исходный код:
const LIM = 99; W = 8; D = 2; n = 4; var a: array [1..n, 1..n] of real; t: real; i, j: integer; swp1, swp2: boolean; begin Randomize; WriteLn('A ='); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random * LIM; Write(a[i, j]:W:D); end; WriteLn; end; for i := 1 to n do begin swp1 := true; for j := 2 to n do if a[i, j - 1] > a[i, j] then begin swp1 := false; break; end; swp2 := true; for j := 2 to n do if a[i, j - 1] < a[i, j] then begin swp2 := false; break; end; if swp1 xor swp2 then Write('да':W) else begin Write('нет':W); repeat swp1 := true; for j := 2 to n do if a[i, j - 1] > a[i, j] then begin swp1 := false; t := a[i, j - 1]; a[i, j - 1] := a[i, j]; a[i, j] := t; end; until swp1; end; end; WriteLn; WriteLn('A'' ='); for i := 1 to n do begin for j := 1 to n do Write(a[i, j]:W:D); WriteLn; end; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Упорядочить элементы строк матрицы по убыванию методом поиска последовательных минимумов (MFC) | ChristopherF | Visual C++ | 2 | 27.05.2018 15:07 |
[PASCAL]: Вывести элементы побочной диагонали квадратной матрицы в порядке возрастания | Dr Rainman | Помощь студентам | 6 | 14.10.2016 19:57 |
Упорядочить в порядке возрастания элементы векторов | sasha_virtus95 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 01.12.2015 17:22 |
расположить элементы матрицы в порядке возрастания. | Cer)I(ik | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 07.04.2011 00:29 |
Проверить, упорядочены ли по возрастанию элементы каждой строки матрицы (Pascal). | cosa nostra | Помощь студентам | 1 | 11.12.2009 21:26 |