Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2018, 13:08   #1
Enotik_1998
Пользователь
 
Регистрация: 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.
Enotik_1998 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Упорядочить элементы строк матрицы по убыванию методом поиска последовательных минимумов (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