Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 870
Пример 1.
uses GraphABC;
begin
line(100,100,500,100);
line(100,100,300,400);
line(300,400,500,100);
line(300,100,300,400);
floodfill(200,120,clblue);
floodfill(450,120,clnavy);
floodfill(1,1,clsilver);
circle(400,160,20);
floodfill(401,160,claqua);
circle(200,160,20);
floodfill(201,160,claqua);
setpencolor(clwhite);
arc(300,299,60,0,180);
end.
Подготовила Синица Юлия
uses GraphABC;
begin
line(100,100,500,100);
line(100,100,300,400);
line(300,400,500,100);
line(300,100,300,400);
floodfill(200,120,clblue);
floodfill(450,120,clnavy);
floodfill(1,1,clsilver);
circle(400,160,20);
floodfill(401,160,claqua);
circle(200,160,20);
floodfill(201,160,claqua);
setpencolor(clwhite);
arc(300,299,60,0,180);
end.
Подготовила Синица Юлия
- Дата: 15-10-2019, 15:10
- Категория: Информатика / Рисуем в ABCPascal
