Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Ответ
 
Опции темы
Старый 06.12.2018, 14:08   #1
Enotik_1998
Пользователь
 
Регистрация: 09.03.2018
Сообщений: 10
Репутация: 10
По умолчанию Проверить упорядочены ли элементы строк матрицы. Если нет, то упорядочить их в порядке возрастания методом стандартного обмена 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Упорядочить элементы строк матрицы по убыванию методом поиска последовательных минимумов (MFC) ChristopherF Visual C++ 2 27.05.2018 16:07
[PASCAL]: Вывести элементы побочной диагонали квадратной матрицы в порядке возрастания Dr Rainman Помощь студентам 6 14.10.2016 20:57
Упорядочить в порядке возрастания элементы векторов sasha_virtus95 Паскаль 5 01.12.2015 18:22
расположить элементы матрицы в порядке возрастания. Cer)I(ik Паскаль 2 07.04.2011 00:29
Проверить, упорядочены ли по возрастанию элементы каждой строки матрицы (Pascal). cosa nostra Помощь студентам 1 11.12.2009 22:26


23:03.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru