Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1705 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 860 б
15 декабря 2022 22:58
647
Ребят как нарисовать сердце в кумире пжжжж срочно
1
ответ
Например, вот две программы
1) сердечко, только контур:
использовать Чертежник
цел з,т=1871
вещ а,б
алг
нач
выбрать чернила (красный)
нц для з от -1 до 1 шаг 2
нц для т от -т до т
а:=т/500
б:=0.8*((а*а)**(1/3)+з*sqrt(max(14-а*а,0)))
сместиться в точку (а,б)
опустить перо
кц
поднять перо
кц
сместиться в точку (0,10)
кон
2) сердечко с закраской:
использовать Чертежник
цел т=1871
вещ а,б,в
алг
нач
выбрать чернила (красный)
нц для т от -т до т
а:=т/500
б:=0.8*(а*а)**(1/3)
в:=0.8*sqrt(max(14-а*а,0))
сместиться в точку (а,б-в)
опустить перо
сместиться в точку (а,б+в)
поднять перо
кц
сместиться в точку (0,10)
кон
1) сердечко, только контур:
использовать Чертежник
цел з,т=1871
вещ а,б
алг
нач
выбрать чернила (красный)
нц для з от -1 до 1 шаг 2
нц для т от -т до т
а:=т/500
б:=0.8*((а*а)**(1/3)+з*sqrt(max(14-а*а,0)))
сместиться в точку (а,б)
опустить перо
кц
поднять перо
кц
сместиться в точку (0,10)
кон
2) сердечко с закраской:
использовать Чертежник
цел т=1871
вещ а,б,в
алг
нач
выбрать чернила (красный)
нц для т от -т до т
а:=т/500
б:=0.8*(а*а)**(1/3)
в:=0.8*sqrt(max(14-а*а,0))
сместиться в точку (а,б-в)
опустить перо
сместиться в точку (а,б+в)
поднять перо
кц
сместиться в точку (0,10)
кон
0
·
Хороший ответ
17 декабря 2022 22:58
Остались вопросы?
Еще вопросы по категории Информатика
ABC PASCAL нарисовать квадрат в котором будет двигаться по диагонали круг...
Напишите программу, которая по данному натуральному числу N вычисляет сумму следующего выражения: 12 + 2 2 + 33 + … + n2. Входные данны...
Приведите примеры текстов, отличающихся по размеру, по оформлению, по назначению.зарание спасибо....
На месте преступления были обнаружены четыре обрывка бумаги. Следствие установило, что на них написаны фрагменты одного IP-адреса. Криминалисты обозна...
Внесите недостающие надписи в схему «информационные потоки»...
Все предметы