Кто сможет, ! все выполнять на языке с++ в программе code : : blocks. заранее . 1.даны координаты двух полей шахматной доски. координаты клетки - это два числа от 1 до 8: номер столбца и номер строки. одного ли цвета эти клетки на шахматной доске? формат входных данных в первой строке заданы: столбец первого поля, затем строка первого поля, затем столбец второго поля, затем строка второго поля. формат выходных данных вывести сообщение "yes если они одного цвета, и "no иначе. 2.даны координаты левого и правого концов отрезка, а также точка на целочисленной оси. опре- делить, лежит ли точка внутри отрезка или на его границе. формат входных данных в первой строке заданы числа a, b и c - координаты левого, правого концов отрезка и координата точки соответственно. формат выходных данных вывести сообщение "yes если точка лежит внутри отрезка или на его границе, и "no иначе. 3.даны координаты левого нижнего и правого верхнего вершин прямоугольника, а также точка на плоскости. определить, лежит ли точка внутри прямоугольника или на его границе. формат входных данных в первой строке заданы числа x1, y1, x2, y2, x3, y3 - координаты левого нижнего, правого верхнего вершин прямоугольника и точки соответственно. формат выходных данных вывести сообщение "yes если точка лежит внутри прямоугольника или на его границе, и "no- иначе.
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.