Question

Написать программу, использую в помощь образец (см. выше), с подпрограммой процедурой для исполнителя Чертежник для типа задания р4.

Answer 1

Ответ:

uses Drawman;

procedure win;

begin

pendown;

onvector(0, 12);

onvector(9, 0);

onvector(0, -12);

onvector(-9, 0);

penup;

onvector(1, 1);

pendown;

onvector(0, 10);

onvector(3, 0);

onvector(0, -10);

onvector(-3, 0);

penup;

onvector(4, 0);

pendown;

onvector(0, 6);

onvector(3, 0);

onvector(0, -6);

onvector(-3, 0);

penup;

onvector(0, 7);

pendown;

onvector(0, 3);

onvector(3, 0);

onvector(0, -3);

onvector(-3, 0);

penup

end;

procedure BigHouse;

begin

pendown;

onvector(-2, 0);

onvector(0, 2);

onvector(37, 0);

onvector(0, -2);

onvector(-35, 0);

onvector(0, -56);

onvector(33, 0);

onvector(0, 56);

penup;

onvector(-15, -18);

win;

onvector(-17, -8);

win;

onvector(-5, -24);

win;

onvector(7, -8);

win;

onvector(-5, -24);

win;

onvector(-17, -8);

win

end;

begin

Task('p4');

topoint(4, 60);

BigHouse;

topoint(46, 60);

BigHouse;

topoint (0,0)

end.