- Р2О B: Bilimlände Scratch
Кегль-ринг. Урок 1
В каких случаях робот повернёт направо на 90°?
1
2
Мотор1 Мотор2 Обороты
100 - 100 0.5
100 0
4
100 50
8
50
-50 0.5
Я
санаа
DES
раараа
а не
ва
Верных ответов: 2
1.
2
3
4.​

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

uses GraphABC;

begin
  var p1:=Arr((220,100),(260,100),(300,140),(240,140),(240,180),
    (280,220),(280,280),(220,320),(160,320),(100,260),(140,260),
    (180,220),(220,220),(200,180),(200,140));
  DrawPolygon(p1); FloodFill(200,300,clYellow); // тело
  p1:=Arr((160,320),(160,340),(200,340),(180,360),(160,340));
  Polyline(p1); FloodFill(180,350,clDarkOrange); // лапа 1
  p1:=Arr((220,320),(220,340),(260,340),(240,360),(220,340));
  Polyline(p1); FloodFill(240,350,clDarkOrange); // лапа 2
  Line(260,140,280,120); FloodFill(280,130,clRed); // клюв
  Brush.Color:=clWhite; Circle(260,120,5); // контур глаза
  Brush.Color:=clBlack; Circle(260,120,2) // зрачок
end.

Алгоритм
1) Начало
2) Объявление матрицы A(124,218)
3) Цикл по i от 1 до 62 (строки)
3.1) Цикл по k от 1 до 218 (столбцы)
3.1.1) Если k нечетное, то A(i,k)=2; иначе A(i,k)=3
3.1.2) Конец цикла по k
3.2) Второй цикл по k от 1 до 218
3.2.1) Если k нечетное, то A(i,k)=3; иначе A(i,k)=2
3.2.2) Конец второго цикла по k
3.3) Конец цикла по i (матрицу заполнили)
4) S = 0 (сумма элементов фрагмента)
5) Цикл по i от 20 до 124
5.1) Цикл по k от 30 до 218
5.1.1) S = S+A(i,k)
5.1.2) Конец цикла по k
5.2) Конец цикла по i
6) Вывод S
7) Конец.
При заполнении матрицы в каждом цикле по строке я заполняю 2 строки: одну начиная с 2, вторую начиная с 3. Поэтому цикл по i не от 1 до 124, а от 1 до 124/2=62.
Сумму я считаю внутри прямоугольника от A(20,30) до A(124,218), то есть до правого нижнего угла.