Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
14 декабря 2022 20:08
3106
Ребят как нарисовать сердце в кумире пжжжж срочно
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
Остались вопросы?
Еще вопросы по категории Информатика
. Что является результатом выполнения оператора? а) write (a) б) write ('a') в) write ('a=', a)...
Укажите через запятую в порядке возрастания все десятичные числа, не превосходящие 30, запись которых в системе счисления с основанием 5 начинается на...
В каком соотношении находятся следующие единицы измерения информации: Бит, Байт, Килобайт?...
Расшифруй ребусы номер 7...
Чему равен десятичный эквивалент чисел 1111 в 2степени...
Все предметы