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

вещ x=0,y=0,x0=0,y0=0,d=1,dmin=0.001,dmax=1000,t
лит д="",к="",п="",t1,t2
цел н,с=1,р=0
лог в=нет,т=да,е=да
цел ш = 0 |код нажатой клавиши

алг
нач
вывод "КУРСОР,ПРОБЕЛ(точка),П/О(подн/опуст.перо),ENTER(конец),-/=(масштаб)",нс
выбрать чернила(чёрный)
поднять перо
движ
метка

нц
ш:=0
если сигнал клав то ш:=код клав всё
выбор
при ш=КЛ_ВВОД: если в то подн всё; вывод "кон",нс; выход
при ш=КЛ_ВВЕРХ: y:=y+d; движ
при ш=КЛ_ВНИЗ: y:=y-d; движ
при ш=КЛ_ВПРАВО: x:=x+d; движ
при ш=КЛ_ВЛЕВО: x:=x-d; движ
при ш=КЛ_П: подн
при ш=КЛ_О: опуст
при ш=КЛ_ПРОБЕЛ: точка
при ш=45: дельта |клавиша минус (нижн.подчёрк.)
при ш=61: дельта |клавиша равно (плюс)
|при ш=КЛ_Я: отмена /Z -отменить последний шаг (тогда надо сделать вывод текста при окончании)
всё

ждать(60) |100
кц

кон


алг дельта
нач
t:=d/10**(int(lg(d)+0.1)+0.0)
выбор
при ш=45:
t1:="51342"
t2:="10340"
d:=Вещ(t1[int(t)],1)*10**(int(lg(d)+0.1)-Вещ(t2[int(t)],0))
при ш=61:
t1:="25341"
t2:="00341"
d:=Вещ(t1[int(t)],1)*10**(int(lg(d)+0.1)+Вещ(t2[int(t)],0))
всё
если d<dmin то d:=dmin; выход всё
если d>dmax то d:=dmax; выход всё
движ
кон

алг движ
нач
t:=10**(int(lg(dmin)+0.1)+0.0)
выбор
при ш=КЛ_ВВЕРХ или ш=КЛ_ВНИЗ: y:=int(y/t+0.5)*t
при ш=КЛ_ВПРАВО или ш=КЛ_ВЛЕВО: x:=int(x/t+0.5)*t
всё
|вывод "(",x,", ",y,")  d=",d,нс
поднять перо
сместиться в точку(x,y)
если в то опустить перо всё
отжат_клав
кон

алг метка
нач
если т
то выбрать чернила(синий)
иначе выбрать чернила(красный)
всё
сместиться в точку (x-d/20,y-d/20)
опустить перо
сместиться в точку (x+d/20,y+d/20)
поднять перо
сместиться в точку (x+d/20,y-d/20)
опустить перо
сместиться в точку (x-d/20,y+d/20)
сместиться в точку(x,y)
выбрать чернила(чёрный)
если не в то поднять перо всё
т:=не т
кон

алг подн
нач
если е то нач_текст всё
поднять перо
вывод("поднять перо"),нс
в:=нет
отжат_клав
кон

алг опуст
нач
если е то нач_текст всё
опустить перо
вывод("опустить перо"),нс
в:=да
отжат_клав
кон

алг точка
нач
если е то нач_текст всё
если x=x0 и y=y0 то выход всё
поднять перо
сместиться в точку(x0,y0)
если в то опустить перо всё
сместиться в точку(x,y)
метка
t1:=вещ_в_лит(x-x0)
если t1[длин(t1)-1:длин(t1)]=".0" то t1:=t1[1:длин(t1)-2] всё
t2:=вещ_в_лит(y-y0)
если t2[длин(t2)-1:длин(t2)]=".0" то t2:=t2[1:длин(t2)-2] всё
вывод "сместиться на вектор (",t1,", ",t2,")",нс
|вывод "(",x,", ",y,") -точка №",с,нс
с:=с+1
x0:=x
y0:=y
отжат_клав
кон

алг отжат_клав
нач
нц
сброс клав
ждать (20) |50
кц при не сигнал клав
кон

алг нач_текст
нач
вывод "использовать Чертежник",нс
вывод "алг",нс
вывод "нач",нс
е:=нет
кон