Информатика

Помогите Кумир информатика

нужно нарисовать эту картинку, но у меня почему то она рисуется, и когда я заключаю цикл программа выполняется бесконечно вот какая получилась программа у меня: использовать Чертежник алг квадрат нач цел x x:=1 цел y y:=1 нц 5 раз опустить перо сместиться на вектор (-1,1) сместиться на вектор(-1,-1) сместиться на вектор(1,-1) сместиться на вектор(1,1) нц 3 раз поднять перо сместиться на вектор (1,0) опустить перо сместиться на вектор(0,y) сместиться на вектор(-1,1) сместиться на вектор(-x,0) сместиться на вектор(-x,0) сместиться на вектор(-1,-1) сместиться на вектор(0,-y) сместиться на вектор(0,-y) сместиться на вектор(1,-1) сместиться на вектор(x,0) сместиться на вектор(x,0) сместиться на вектор(1,1) сместиться на вектор(0,y) y:=y+1 x:=x+1 поднять перо кц сместиться на вектор (6,0) квадрат кц кон
Ответы
кумир это ко мне обращение
У вас в конце программы идет вызов алгоритма Квадрат, образуется рекурсия, поскольку алгоритм вызывает сам себя. Правильно будет так:
 использовать Чертежник 
алг квадрат  
нач  
цел x  
цел y  
 
нц 5 раз  
x:=1  
y:=1  
 
опустить перо  
сместиться на вектор (-1,1)  
сместиться на вектор(-1,-1)  
сместиться на вектор(1,-1)  
сместиться на вектор(1,1)  
нц 3 раз  
поднять перо  
сместиться на вектор (1,0)  
опустить перо  
сместиться на вектор(0,y)  
сместиться на вектор(-1,1)  
сместиться на вектор(-x,0)  
сместиться на вектор(-x,0)  
сместиться на вектор(-1,-1)  
сместиться на вектор(0,-y)  
сместиться на вектор(0,-y)  
сместиться на вектор(1,-1)  
сместиться на вектор(x,0)  
сместиться на вектор(x,0)  
сместиться на вектор(1,1)  
сместиться на вектор(0,y)  
y:=y+1  
x:=x+1  
поднять перо  
кц  
 
 
сместиться на вектор (6,0)  
кц  
кон