Пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк и M столбцов.Выполните поворот рисунка вправо на 90 градусов: Паскаль
Answers & Comments
vlados400125
Program povorot; var a, b: array [1..9] of integer; i: integer; begin for i := 1 to 9 do read(a[i]); b[3] := a[1]; b[6] := a[2]; b[9] := a[3]; b[2] := a[4]; b[5] := a[5]; b[8] := a[6]; b[1] := a[7]; b[4] := a[8]; b[7] := a[9]; writeln(b[1], b[2], b[3]); writeln(b[4], b[5], b[6]); writeln(b[7], b[8], b[9]);end.
3 votes Thanks 2
vlados400125
Неудачно вставилось, но на работу программы это не повлияет . Она абсолютно рабочая
Answers & Comments
var a, b: array [1..9] of integer; i: integer;
begin for i := 1 to 9 do read(a[i]); b[3] := a[1]; b[6] := a[2]; b[9] := a[3]; b[2] := a[4]; b[5] := a[5]; b[8] := a[6]; b[1] := a[7]; b[4] := a[8]; b[7] := a[9]; writeln(b[1], b[2], b[3]); writeln(b[4], b[5], b[6]); writeln(b[7], b[8], b[9]);end.