Задание 1 ( ). Средствами графического редактора создайте рисунок, предложенный ниже.

28.png

Иллюстрация создана с MS Word

Рисунок нужно создать полностью самостоятельно, не используя функцию копирования. При создании рисунка необходимо использовать графические примитивы редактора и основные инструменты. Приведите промежуточные варианты создания изображения в виде скриншотов экрана с отображением используемого редактора (не менее 5 скриншотов).

На проверку нужно прислать скриншоты с промежуточными этапами создания изображения и готовое изображение.

Для выполнения задания можно использовать:

Microsoft Paint, Corel Photo-Paint, Corel Painter, Microsoft GIMP, Paint.NET, Tux Paint, Krita, Inkscape, CorelDRAW, MS Word или OpenOffice Writer.

умоляю

//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.

Ошибка находится в 3 строке, где указано "a, b, c, x: ineger" вместо "a, b, c, x: integer". Слово "inEger" должно быть "integer".

Обоснование: Внимательно прочитаем условие задачи и обратим внимание на строчку 3. Здесь создаются переменные a, b, c, x, которые должны быть типа integer. Однако, вместо слова "integer" было написано "inEger", что является не правильным написанием типа данных. Правильное написание типа данных - "integer".

Пошаговое решение:
1. Внимательно прочитать код и выделить строку, в которой возникла ошибка.
2. Прочитать строку с ошибкой - "a, b, c, x: ineger;".
3. Обратить внимание на написание типа данных "inEger" и понять, что это является ошибкой.
4. Заменить "inEger" на "integer", чтобы правильно указать тип данных для переменных a, b, c, x.
5. Исправленный код в строке 3 должен выглядеть так: "a, b, c, x: integer;".
6. Продолжить анализ кода и решение задачи.

В результате, после исправления ошибки, код будет выглядеть следующим образом:
1 program z1;

2 var

3 a, b, c, x: integer;

4

5 procedure test (x, c: integer; var t: integer);

6 begin

7 t := x + c;

8 end;

9

10 begin

11 readln (x, c);

12 a := x + test(x, c, x);

13 end.