помогите, пожалуйста, нужно три задания для исполнителя чертежник. (6 класс) Ну чтобы слишком трудно не было.
Answers & Comments
сергей989
Program sergo; uses Drawman; begin Task('a1'); ToPoint(2,3); PenDown; ToPoint(3,5); PenUp; ToPoint(0,0); end. алг квадрат1 нач . сместиться в точку(2,1) . опустить перо . сместиться в точку(2,4) . сместиться в точку(5,4) . сместиться в точку(5,1) . сместиться в точку(2,1) . поднять перо . сместиться в точку(0,0) кон использовать Чертежник алг квадрат2 нач . сместиться на вектор(2,1) . опустить перо . сместиться на вектор(0,3) . сместиться на вектор(3,0) . сместиться на вектор(0,-3) . сместиться на вектор(-3,0) . поднять перо . сместиться на вектор(-2,-1) кон
Answers & Comments
uses Drawman;
begin
Task('a1');
ToPoint(2,3);
PenDown;
ToPoint(3,5);
PenUp;
ToPoint(0,0);
end.
алг квадрат1
нач
. сместиться в точку(2,1)
. опустить перо
. сместиться в точку(2,4)
. сместиться в точку(5,4)
. сместиться в точку(5,1)
. сместиться в точку(2,1)
. поднять перо
. сместиться в точку(0,0)
кон использовать Чертежник
алг квадрат2
нач
. сместиться на вектор(2,1)
. опустить перо
. сместиться на вектор(0,3)
. сместиться на вектор(3,0)
. сместиться на вектор(0,-3)
. сместиться на вектор(-3,0)
. поднять перо
. сместиться на вектор(-2,-1)
кон