Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
15 декабря 2022 22:58
702
Ребят как нарисовать сердце в кумире пжжжж срочно
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
Остались вопросы?
Еще вопросы по категории Информатика
Что будет выведено на экран после выполнения фрагмента программы? s := 'фоксфорд'; s1 := 'крокодил'; s := copy(s,1,4) + 'т' + copy(s1,2,2) +...
В штате работают 20 сотрудников. Даны 2 таблицы. В первой таблице: ФИО, должность, стаж работы, количество выходов на работу в выходные, зарплата в те...
Срочно дам 50 балов Задача 6: Странное устройство По приезде Василий с Петром обнаружили в своем номере в гостинице странный прибор. Он был оснащен д...
Задача 1. С клавиатуры вводится целое число. Напишите программный код, который будет определять делимость этого числа на 17 и организует вывод результ...
Считая что каждый символ кодируется в кодировке Unicode, оцените информационный объем следующей фразы: В шести литрах 6000 миллилитров. а)1024 байта б...