//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) function Transpose(a: array[,] of integer): array[,] of integer; //Поворот на 90гр по часовой стрелке begin var m := Length(a, 0); var n := Length(a, 1); Result := new integer[n, m]; for var i := 0 to n-1 do begin for var j := 0 to m-1 do Result[i, j] := a[m-1-j, i]; end; end;
begin var n := ReadInteger('Введите n:'); //Заполнение матрицы NxN сл. числами и вывод на экран var a :=MatrixRandom(n, n); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); println; end; println;
Println('поворот влево на 90 гр'); var b := Transpose(a); b:=Transpose(b); b:=Transpose(b); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; println;
Println('поворот вправо на 90гр'); b := Transpose(a); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; println;
Println('поворот на 180 гр'); b := Transpose(a); b := Transpose(b); for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(b[i,j]); println; end; end.
Форматирование часто применяется по отношению к абзацу.
Абзац — фрагмент текста, процесс ввода которого закончился нажатием на клавишу ввода Enter. Абзац является ключевым элементом в структуре документа для многих текстовых процессоров (хотя имеются и другие, например, в Microsoft Word — разделы).
Операции форматирования абзацев включают установку границ абзацев и абзацных отступов, выравнивание, а также включение переноса слов.
Установку границ абзацев производят с маркеров отступов, находящихся на координатной линейке, или соответствующими командами меню.
Выравнивание (выключка). Различают четыре вида горизонтального (влево, вправо, по центру, по ширине) и три вида вертикального выравнивания (вверх, вниз, по высоте).
Перенос. При выключенном режиме автоматического переноса слово, не поместившееся на строке, полностью переносится на следующую строку. Это не придаст элегантности тексту; его правый край остается неровным. Для улучшения внешнего вида текста используют режим переноса. При ручном варианте переноса пользователь сам определяет место переноса, вводя дефис, и жестким переводом каретки (нажатием на клавишу Enter) переходит на следующую строку. Использование такого режима переноса приводит к необходимости удаления дефисов при повторном форматировании текста документа.
При включенном режиме автоматического переноса реализуется мягкий вариант переноса: текстовый процессор сам делит слово на слот и переносит его наилучшим Этот режим не создает никаких трудностей при повторном форматировании.
function
Transpose(a: array[,] of integer): array[,] of integer;
//Поворот на 90гр по часовой стрелке
begin
var m := Length(a, 0);
var n := Length(a, 1);
Result := new integer[n, m];
for var i := 0 to n-1 do begin
for var j := 0 to m-1 do
Result[i, j] := a[m-1-j, i];
end;
end;
begin
var n := ReadInteger('Введите n:');
//Заполнение матрицы NxN сл. числами и вывод на экран
var a :=MatrixRandom(n, n);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do
Print(a[i,j]);
println;
end;
println;
Println('поворот влево на 90 гр');
var b := Transpose(a);
b:=Transpose(b);
b:=Transpose(b);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do
Print(b[i,j]);
println;
end;
println;
Println('поворот вправо на 90гр');
b := Transpose(a);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do
Print(b[i,j]);
println;
end;
println;
Println('поворот на 180 гр');
b := Transpose(a);
b := Transpose(b);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do
Print(b[i,j]);
println;
end;
end.
Форматирование часто применяется по отношению к абзацу.
Абзац — фрагмент текста, процесс ввода которого закончился нажатием на клавишу ввода Enter. Абзац является ключевым элементом в структуре документа для многих текстовых процессоров (хотя имеются и другие, например, в Microsoft Word — разделы).
Операции форматирования абзацев включают установку границ абзацев и абзацных отступов, выравнивание, а также включение переноса слов.
Установку границ абзацев производят с маркеров отступов, находящихся на координатной линейке, или соответствующими командами меню.
Выравнивание (выключка). Различают четыре вида горизонтального (влево, вправо, по центру, по ширине) и три вида вертикального выравнивания (вверх, вниз, по высоте).
Перенос. При выключенном режиме автоматического переноса слово, не поместившееся на строке, полностью переносится на следующую строку. Это не придаст элегантности тексту; его правый край остается неровным. Для улучшения внешнего вида текста используют режим переноса. При ручном варианте переноса пользователь сам определяет место переноса, вводя дефис, и жестким переводом каретки (нажатием на клавишу Enter) переходит на следующую строку. Использование такого режима переноса приводит к необходимости удаления дефисов при повторном форматировании текста документа.
При включенном режиме автоматического переноса реализуется мягкий вариант переноса: текстовый процессор сам делит слово на слот и переносит его наилучшим Этот режим не создает никаких трудностей при повторном форматировании.