Question

Составить алгоритм написания слова ОКО (используя вспомогательный алгоритм)

Answer 1

Ответ:

uses Drawman;

procedure o (x,y: integer);

begin

topoint(x, y);

pendown;

onvector(0, 4);

onvector(2, 0);

onvector(0, -4);

onvector(-2, 0);

penup

end;

begin

field (10,6);

o (1,1);

topoint (4,1);

pendown;

onvector(0, 4);

onvector(0, -2);

onvector(2, 2);

onvector(-2, -2);

onvector(2, -2);

penup;

o (7,1);

topoint (0,0)

end.