Использовать Чертежник алг нач | 3 сместиться на вектор (1,4) опустить перо сместиться на вектор (2,0) сместиться на вектор (-2,-2) сместиться на вектор (2,0) сместиться на вектор (-2,-2) поднять перо | 0 Исп.вспом.алг. и цикл нц 3 раз Ноль кц | 4 сместиться на вектор (3,4) опустить перо сместиться на вектор (0,-2) сместиться на вектор (2,0) поднять перо сместиться на вектор (0,2) опустить перо сместиться на вектор (0,-4) поднять перо | 5 сместиться на вектор (3,4) опустить перо сместиться на вектор (-2,0) сместиться на вектор (0,-2) сместиться на вектор (2,0) сместиться на вектор (0,-2) сместиться на вектор (-2,0) поднять перо кон
алг Ноль нач | 0 сместиться на вектор (3,0) опустить перо сместиться на вектор (0,4) сместиться на вектор (2,0) сместиться на вектор (0,-4) сместиться на вектор (-2,0) поднять перо кон
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); var k,p:integer; Write('Строки с какими номерами поменять? '); Read(k,p); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.SwapRows(k-1,p-1); Writeln('*** Матрица-результат ***'); a.Println(4) end.
алг
нач
| 3
сместиться на вектор (1,4)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
поднять перо
| 0 Исп.вспом.алг. и цикл
нц 3 раз
Ноль
кц
| 4
сместиться на вектор (3,4)
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (0,2)
опустить перо
сместиться на вектор (0,-4)
поднять перо
| 5
сместиться на вектор (3,4)
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
поднять перо
кон
алг Ноль
нач
| 0
сместиться на вектор (3,0)
опустить перо
сместиться на вектор (0,4)
сместиться на вектор (2,0)
сместиться на вектор (0,-4)
сместиться на вектор (-2,0)
поднять перо
кон