"justify" > n на n . Вводимо значення P
Далі при дотримання умови потрапляння P в діапазон матриці виконуємо цикл, тіло якого міняє місцями значення стовпця зі значенням рядка.
Після виконання циклу виводимо вміст матриці.
6. Лістинг програми
change; crt; a: array [1.50,1.50] of integer;, p, swap: integer;
i, j: byte;
{n - кількість рядків і стовпців квадратної матриці-змінна для хранененія зміни місцями-номер рядка або стовпця для зміни місцями
i, j - лічильники циклів}
function randoMatr (k: integer): integer;
{Функція заповнення матриці випадковими числами}: = random (k); {Діапазон дійсних чисел}
end; outputM;
{Висновок матриці на екран} i: = 1 to n doj: = 1 to n doi = p then textcolor (11); {рядок P виводимо блакитним кольором} j = p then textcolor (8) ; {стовпець P сірим кольором} (a [i, j]: 2, ''); (15); {інші білим};;
end;;
{----------- Основний блок програми ---------------------};; ('Введіть розмірність квадратної матриці n <50 = ');
readln (n);
for i: = 1 to n do
for j: = 1 to n do
a [i, j]: = randoMatr (99); {заповнюємо матрицю елементами} ('Вихідна матриця:');; {Висновок матриці на екран} ('Введіть ціле P ='); (p);
{Перевірка входімості числа в матрицю}
if (P> n) or (P <1) then exit;
{Міняємо місцями стовпець з рядком}
for i: = 1 to n do: = a [i, p]; [i, P]: = a [p, i]; [p, i]: = swap;; ( 'Отримана матриця:');; {Висновок матриці на екран} ('Для виходу натисніть Enter');;.
7. Екрани роботи програми і налагодження програми
Починаємо з основного блоку програми як заповнення матриці.
В
Пишемо функцію заповнення матриці випадковими числами:
В
Процедуру виведення на екран:
Тестуємо запуск:
програма алгоритм програма матриця
В
Пишемо решту коду, пробуємо запуском програми:
В
Надамо декілька варіантів виконання програми:
В
В
Список літератури
1. В.М. Пітеркін "Основи програмування мовою високого рівня", М. - 2002
2.
