Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 20:08
4705
Ребят как нарисовать сердце в кумире пжжжж срочно
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
·
Хороший ответ
16 декабря 2022 20:08
Остались вопросы?
Еще вопросы по категории Информатика
Выберите форматы текстовых файлов: ODT GIF TXT JPEG DOC PDF RTF HTML EXE BMP...
Необходимо решить задачу! Помогите пожалуйста! Пять букв английского алфавита закодированы кодами различной длины. Эти коды представлены в таблице....
Кого считают изобретателем W W W и когда это произошло...
Сообщение о том,что ваш друг живет на 10 этаже,несёт 4 бита информации.Сколько этажей в доме?...
Назовите все способы восприятия информации...