Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
saphiro12
04.01.2020 15:25 •
Информатика
Всистеме программирования pascal abc составьте программы создания следующих изображений с использованием двух процедур. мне надо нарисовать вишню !
Показать ответ
Ответ:
ооррр3
08.10.2020 19:39
Uses graph; var gd,gm,c,i:integer; p:array[1..12] of Pointtype; begin gd:=detect; initgraph(gd,gm,''); setcolor(10); circle(340,105,50); Setfillstyle(1,10); fillellipse(340,105,50,50); setcolor(12); circle(290,170,50); Setfillstyle(1,12); fillellipse(290,170,50,50); setcolor(13); circle(390,190,50); Setfillstyle(1,13); fillellipse(390,190,50,50); p[1].x:=240;p[1].y:=190; p[2].x:=440;p[2].y:=190; p[3].x:=440;p[3].y:=240; p[4].x:=345;p[4].y:=265; p[5].x:=345;p[5].y:=365; p[6].x:=440;p[6].y:=390; p[7].x:=240;p[7].y:=390; p[8].x:=335;p[8].y:=365; p[9].x:=335;p[9].y:=265; p[10].x:=240;p[10].y:=240; p[11].x:=p[1].x;p[11].y:=p[1].y; setcolor(11); moveto(p[1].x,p[1].y); for i:=1 to 11 do lineto(p[i].x,p[i].y); Setfillstyle(1,11); fillpoly(11,p); readln end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Starshine2007
10.06.2022 16:13
Прлнумеруй по ёмкости, ничиная с наименьшого(1) и заканчивая наибольшим (5).еденицы измерения ...
supervalad
07.05.2020 06:24
Определите,при каких целочисленных значениях переменной w логическая формула ¬w( 7)v (w 0) примет значение ложь¬ -лог.отрицаниеv-лог.сложение^-лог.умножение...
Margarita11mm
05.07.2021 14:18
Сколько байт памяти занимает цветное изображение шириной 1000 точек и высотой 400 точек в цветовой модели rgb? ...
ЕхоBts97
07.09.2020 17:01
4. придумайте тему игры и описание что надо делать. игра должно быть в командой строке. ...
vkristinav06
04.04.2022 01:06
Как называется единица измерения, в которой указывается форм-фактор?...
ангел809
08.03.2021 21:46
8. Составь скрипт в результате которого автоматически поменяются фоны, указанные с несколькими рисунками и произвучит музыка. *В буду очень благодарен...
LuzuVloks
17.01.2022 08:10
Умоляю вас,решите это ,заполните таблицу заранее огромное тому кто напишет❤️❤️❤️...
nastyayudina21
17.05.2021 20:12
Составьте формулу соединения кремния с кислородом и определите массовые доли этих элементов в полученном оксиде....
polisorb2
17.04.2020 09:59
Сколько целых чисел расположено между числами между: 0и24; -12и-3; -20и7....
lНанамиТянl
17.05.2021 20:12
Скласти діалог про улюблену телепередачу (іть)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота