Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 декабря 2022 19:42
582
Как по икт сделать снеговика в 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
·
Хороший ответ
16 декабря 2022 19:42
Остались вопросы?
Еще вопросы по категории Информатика
Сообщение, состоящее из 4096 знаков (с пробелами), занимает в памяти 3,5 Кбайт. Какова мощность алфавита, который использовался при кодировании этого...
EXCEL!!! В ячейке B2 находится формула =С2+1 c относительными ссылками. 1)Запишите результат копирования формулы из ячейки B2 в ячейки диапазона (A1:...
В каком случае разные файлы могут иметь одинаковые имена? 1) если они имеют разный размер; 2)если они созданы в разное время; 3) если они находятся в...
Для какого из приведённых значений числа X ложно высказывание: НЕ (X < 6) ИЛИ (X < 5)? 1) 7 2) 6 3) 5 4) 4 Для какого из приведённых...
Иногда выводит ошибку: Ошибка времени выполнения, индекс находится вне границ массива. PascalABC.NET вот само задание: Дан массив А(n). Поменять места...