Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 740 б
- kirill_shatsov 705 б
15 декабря 2022 22:41
895
Как по икт сделать снеговика в ABC паскаль Напишите программу
1
ответ
Program sneg;
uses graphABC;
beginsetpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
line(170,90,230,90);
line(160,180,240,180);
line(170,90,160,180);
line(230,90,240,180);
floodfill(200,173,clblack);
floodfill(200,123,clblack);
setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
arc(200,230,10,180,0);
line(70,320,170,250);
line(230,250,330,300);
line(300,450,350,200);
line(350,200,320,140);
line(350,200,340,140);
line(350,200,360,140);
line(350,200,380,140);
line(350,200,400,140);
end.
uses graphABC;
beginsetpenwidth(3);
setwindowsize(400,500);
ellipse(120,350,280,480);
circle(200,300,60);
circle(200,210,40);
line(170,90,230,90);
line(160,180,240,180);
line(170,90,160,180);
line(230,90,240,180);
floodfill(200,173,clblack);
floodfill(200,123,clblack);
setbrushcolor(clblack);
circle(190,200,5);
circle(210,200,5);
line(200,210,220,220);
line(200,220,220,220);
line(200,210,200,220);
floodfill(204,214,clblack);
setpenwidth(5);
arc(200,230,10,180,0);
line(70,320,170,250);
line(230,250,330,300);
line(300,450,350,200);
line(350,200,320,140);
line(350,200,340,140);
line(350,200,360,140);
line(350,200,380,140);
line(350,200,400,140);
end.
0
·
Хороший ответ
17 декабря 2022 22:41
Остались вопросы?
Еще вопросы по категории Информатика
Укажите расширение файла informatika.docx 1..docx 2.нет расширения 3.docx 4.informatika ...
При уменьшении растрового изображения a) Качество не изменяется b) Качество улучшается c)Теряются мелкие детали d) Появляется ступенчатый эф...
В системе счисление с некоторым основанием десятичное число 129 записывается как 1004. Укажите это основание если тут надо что-то расписать, решите по...
Алфавит содержит восемь букв: А, Б, В, Г, Д, Е, Ж, З. Устройство заменяет каждую букву последовательностью из трех двоичных символов так, что одинаков...
N =5 A=[0]*N for i in range(N): A[i]=i+3...
Все предметы