Помогите прошу с меня 20 баллов, только помогите!!!

Помогите прошу с меня 20 баллов, только помогите!!!

Задать свой вопрос
Ванек Бибкин
Через чертёжник.
1 ответ
Вот тебе один ромб, проделывай в последовательности изменив пару координат.

Program rs_3;
Uses Drawman;
Begin
Field (11,12);
ToPoint (2,1);
Pen Down;
ToPoint(2,1); ToPoint(5,1);
ToPoint(5,1); ToPoint(6,2);
ToPoint(6,2); ToPoint(6,5);
ToPoint(6,5); ToPoint(5,6);
ToPoint(5,6); ToPoint(2,6);
ToPoint(2,6); ToPoint(1,5);
ToPoint(1,5); ToPoint(1,2);
ToPoint(1,2); ToPoint(2,1);
Pen Up;
ToPoint(3,2);
PenDown;
ToPoint(3,2); ToPoint(2,3);
ToPoint(2,3); ToPoint(2,4);
ToPoint(2,4); ToPoint(3,5);
ToPoint(3,5); ToPoint(4,5);
ToPoint(4,5); ToPoint(5,4);
ToPoint(5,4); ToPoint(5,3);
ToPoint(5,3); ToPoint(4,2);
ToPoint(4,2); ToPoint(3,2);
End.
Тимур Шупа
Ошибка в Drawman на смартфоне - плюс ToPoint нет в сохрах (живописал на листе) :)
Виолетта
Грустно, что не на "кумир"е
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт