Использование вспомогательных алгоритмов

ИГРАЕМ

СОСТАВЛЯЕМ АЛГОРИТМЫ

uses drawman;

procedure kv;
begin
 pendown;
 onvector(0,2);
 onvector(2,0);
 onvector(0,-2);
 onvector(-2,0);
 penup;
end;

procedure romb;
begin
  pendown;
  onvector(1,1);
  onvector(1,-1);
  onvector(-1,-1);
  onvector(-1,1);
  penup;
end;

begin
 field(30,5);
 topoint(1,1);
 kv;
 topoint(5,1);
 kv;
 topoint(9,1);
 kv;
 topoint(13,1);
 kv;
 topoint(17,1);
 kv;
 topoint(3,2);
 romb;
 topoint(7,2);
 romb;
 topoint(11,2);
 romb;
 topoint(15,2);
 romb;
 topoint(19,2);
 romb;
end.

Задание 2. 1 строка

Задание 3. 2 строка

Задание 4. 3 строка

Задание 5. 4 строка на выбор

ДОМАШНЕЕ ЗАДАНИЕ

параграф 20

придумать рисунок с повторяющимися элементами и составить программу для построения изображения

Как установить PascalABC.Net 

Скачайте установщик программы Pascal ABCNET по ссылке

https://cloud.mail.ru/public/57pf/EpHq6zMNY

2. Запустите скачанный файл и установите программу Pascal ABCNET

3. Учебник по информатике скачать (если нет бумажного варианта)

https://uchebniki.by/rus/skachat/id01430s

Сдать работу