Составьте алгоритм для построения рисунка средствами графического исполнителя Чертёжник, но так, чтобы рисунок можно было масштабировать, то есть пропорционально увеличивать или уменьшать в несколько раз. Для выполнения задания используйте параметр. На проверку нужно прислать алгоритмы и результаты работы алгоритмов в виде скриншотов окна с отображением кода и результата работы

использовать Чертежник

алг

нач

вещ i

выбрать чернила(синий)

вывод "Масштаб "

ввод i

нц 4 раз

опустить перо

сместиться на вектор (0,i*2)

сместиться на вектор (i*4,0)

сместиться на вектор (0,-(i*2))

сместиться на вектор (-(i*4),0)

поднять перо

сместиться на вектор (1.2*i,-1.2*i)

кц

кон

Объяснение:

скрины

решение для pascal abc

uses graphabc;

vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.

третье, там где пять

5> 4 и не 5> =6