Ответ:
использовать Рисователь
алг
нач
цел х,у,о
х:=50
у:=50
вывод "Введите номер отметки "
ввод о
если о=3 то о3 (х,у) все
если о=4 то о4 (х,у) все
если о=5 то о5 (х,у) все
кон
алг о3 (цел х,у)
цел а,б
а:=х
б:=у
нц 5 раз
р (а,б)
б:=б+20
кц
алг о4 (цел х,у)
нц 2 раз
а:=а+20
б:=у+20
алг о5 (цел х,у)
нц 3 раз
а:=а-20
б:=б-40
алг р (цел х,у)
кисть(синий)
в точку (х,у)
линия в точку (х+10,у+10)
линия в точку (х,у+20)
линия в точку (х-10,у+10)
линия в точку (х,у)
залить(х,у+10)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
использовать Рисователь
алг
нач
цел х,у,о
х:=50
у:=50
вывод "Введите номер отметки "
ввод о
если о=3 то о3 (х,у) все
если о=4 то о4 (х,у) все
если о=5 то о5 (х,у) все
кон
алг о3 (цел х,у)
нач
цел а,б
а:=х
б:=у
нц 5 раз
р (а,б)
б:=б+20
кц
кон
алг о4 (цел х,у)
нач
цел а,б
а:=х
б:=у
нц 2 раз
нц 5 раз
р (а,б)
а:=а+20
кц
а:=х
б:=у+20
кц
кон
алг о5 (цел х,у)
нач
цел а,б
а:=х
б:=у
нц 3 раз
нц 3 раз
р (а,б)
б:=б+20
кц
а:=а-20
б:=б-40
нц 3 раз
р (а,б)
а:=а+20
кц
а:=а+20
б:=у
кц
кон
алг р (цел х,у)
нач
кисть(синий)
в точку (х,у)
линия в точку (х+10,у+10)
линия в точку (х,у+20)
линия в точку (х-10,у+10)
линия в точку (х,у)
залить(х,у+10)
кон