В системе программирования Pascal ABC составьте программки творенья последующих изображений с
В системе программирования Pascal ABC составьте программки творения последующих изображений с использованием двух процедур.
Мне надобно нарисовать вишню
Пожалуйста!!!
1 ответ
Pavel Pankov Kozachkin
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.
Zheka
Спасибо,но я ещё такового не проходила
Колька Качев
Спасибо,но я ещё такого не проходила
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Облако тегов