Question

Описать необходимые процедуры и составить программу для рисования пенсне.

Answer 1

Процедура окружности (правильный 360-угольник с длиной стороны, заданной переменной А):
TO OKR :A
REPEAT 360 [FD :A RT 1]
END
Обращение к процедуре окружности, например такого размера:
OKR 0,7
Процедура рисования дуги (половина окружности 180-угольника с длиной стороны, заданной параметром):
TO DUGA :B
REPEAT 180 [FD :B LT 1]
END
Обращение к процедуре дуги: DUGA 0,5
Составим программу для пенсне:
TO PENSNE :A :B
OKR :A DUGA :B OKR :A RT 180
END
PENSNE 0,7 0,5