- Дата:
- Категория: Электронные ресурсы, Рисуем в ABCPascal, Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 435
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 560
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 543
Составил Лавринович Дмитрий.
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 549
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 1017
uses graphabc;
begin
circle(100,100,40);
rectangle(300,100,400,200);
line(139,110,300,150);
circle(600,100,40);
line(400,150,560,100);
circle(300,350,30);
circle(400,350,30);
line(310,200,300,320);
line(390,200,400,320);
rectangle(320,110,340,120);
rectangle(380,110,360,120);
rectangle(330,170,370,180);
floodfill(302,102,clyellow);
floodfill(332,172,clblue);
floodfill(322,112,clblue);
floodfill(361,111,clblue);
floodfill(100,100,cllime);
floodfill(600,100,cllime);
floodfill(300,350,clred);
floodfill(400,350,clred);
end.
Подготовил Грико Игнат
begin
circle(100,100,40);
rectangle(300,100,400,200);
line(139,110,300,150);
circle(600,100,40);
line(400,150,560,100);
circle(300,350,30);
circle(400,350,30);
line(310,200,300,320);
line(390,200,400,320);
rectangle(320,110,340,120);
rectangle(380,110,360,120);
rectangle(330,170,370,180);
floodfill(302,102,clyellow);
floodfill(332,172,clblue);
floodfill(322,112,clblue);
floodfill(361,111,clblue);
floodfill(100,100,cllime);
floodfill(600,100,cllime);
floodfill(300,350,clred);
floodfill(400,350,clred);
end.
Подготовил Грико Игнат
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 848
uses GraphABC;
begin
circle (120,120,120);
floodfill (75,10,clyellow);
circle (159,80,30);
circle (60,80,30);
TextOut (10,250, 'Смайлик');
circle (150,80,20);
floodfill( 150,80,clblack);
circle (70,80,20);
floodfill( 70,80,clblack);
rectangle (190,150,60,180);
floodfill (62,172,clred);
end.
Подготовил Томашевич Вадим.
begin
circle (120,120,120);
floodfill (75,10,clyellow);
circle (159,80,30);
circle (60,80,30);
TextOut (10,250, 'Смайлик');
circle (150,80,20);
floodfill( 150,80,clblack);
circle (70,80,20);
floodfill( 70,80,clblack);
rectangle (190,150,60,180);
floodfill (62,172,clred);
end.
Подготовил Томашевич Вадим.
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 793
uses graphABC;
begin
circle(50,100,20);
circle(75,100,20);
circle(100,100,20);
circle(125,100,20);
circle(150,100,20);
circle(175,75,30);
floodfill(50,100,clteal);
floodfill(75,100,clteal);
floodfill(100,100,clteal);
floodfill(125,100,clteal);
floodfill(150,100,clteal);
floodfill(175,75,CLteal);
Circle(160,70,7);
circle(190,70,7);
arc(175,90,11,0,180);
circle(250,100,20);
circle(275,100,20);
circle(300,100,20);
circle(325,100,20);
circle(350,100,20);
circle(375,75,30);
floodfill(250,100,clteal);
floodfill(275,100,clteal);
floodfill(300,100,clteal);
floodfill(325,100,clteal);
floodfill(350,100,clteal);
floodfill(375,75,CLteal);
Circle(360,70,7);
circle(390,70,7);
arc(375,90,11,0,180);
end.
Подготовила Синица Юлия.
begin
circle(50,100,20);
circle(75,100,20);
circle(100,100,20);
circle(125,100,20);
circle(150,100,20);
circle(175,75,30);
floodfill(50,100,clteal);
floodfill(75,100,clteal);
floodfill(100,100,clteal);
floodfill(125,100,clteal);
floodfill(150,100,clteal);
floodfill(175,75,CLteal);
Circle(160,70,7);
circle(190,70,7);
arc(175,90,11,0,180);
circle(250,100,20);
circle(275,100,20);
circle(300,100,20);
circle(325,100,20);
circle(350,100,20);
circle(375,75,30);
floodfill(250,100,clteal);
floodfill(275,100,clteal);
floodfill(300,100,clteal);
floodfill(325,100,clteal);
floodfill(350,100,clteal);
floodfill(375,75,CLteal);
Circle(360,70,7);
circle(390,70,7);
arc(375,90,11,0,180);
end.
Подготовила Синица Юлия.
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 804
uses graphabc;
begin
circle(50,100,20);
circle(75,100,20);
circle(100,100,20);
circle(125,100,20);
circle(150,100,20);
circle(175,75,30);
floodfill(45,90,clgreen);
floodfill(70,90,clgreen);
floodfill(90,90,clgreen);
floodfill(110,90,clgreen);
floodfill(140,90,clgreen);
floodfill(160,70,clgreen);
circle(170,70,5);
circle(180,70,5);
arc(175,90,10,0,180);
circle(250,100,20);
circle(275,100,20);
circle(300,100,20);
circle(325,100,20);
circle(350,100,20);
circle(375,75,30);
floodfill(245,90,clgreen);
floodfill(270,90,clgreen);
floodfill(290,90,clgreen);
floodfill(310,90,clgreen);
floodfill(340,90,clgreen);
floodfill(360,70,clgreen);
circle(370,70,5);
circle(380,70,5);
arc(375,90,10,0,180);
end.
Подготовила Волонсевич Яна.
begin
circle(50,100,20);
circle(75,100,20);
circle(100,100,20);
circle(125,100,20);
circle(150,100,20);
circle(175,75,30);
floodfill(45,90,clgreen);
floodfill(70,90,clgreen);
floodfill(90,90,clgreen);
floodfill(110,90,clgreen);
floodfill(140,90,clgreen);
floodfill(160,70,clgreen);
circle(170,70,5);
circle(180,70,5);
arc(175,90,10,0,180);
circle(250,100,20);
circle(275,100,20);
circle(300,100,20);
circle(325,100,20);
circle(350,100,20);
circle(375,75,30);
floodfill(245,90,clgreen);
floodfill(270,90,clgreen);
floodfill(290,90,clgreen);
floodfill(310,90,clgreen);
floodfill(340,90,clgreen);
floodfill(360,70,clgreen);
circle(370,70,5);
circle(380,70,5);
arc(375,90,10,0,180);
end.
Подготовила Волонсевич Яна.
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 803
uses graphabc;
begin
circle(200,200,30);
circle(250,200,30);
circle(300,200,30);
circle(350,200,30);
circle(400,200,30);
circle(450,170,50);
floodfill(202,202,clgreen);
floodfill(252,202,clgreen);
floodfill(302,202,clgreen);
floodfill(352,202,clgreen);
floodfill(402,202,clgreen);
floodfill(452,202,clgreen);
line(425,130,410,80);
line(480,130,500,80);
circle(410,80,10);
circle(500,80,10);
floodfill(410,80,clgreen);
floodfill(500,80,clgreen);
circle(440,160,10);
circle(485,160,10);
floodfill(440,160,clyellow);
floodfill(485,160,clyellow);
line(440,190,465,210);
line(465,210,485,190);
line(485,190,465,200);
line(465,200,440,190);
end.
Подготовил Грико Игнат.
begin
circle(200,200,30);
circle(250,200,30);
circle(300,200,30);
circle(350,200,30);
circle(400,200,30);
circle(450,170,50);
floodfill(202,202,clgreen);
floodfill(252,202,clgreen);
floodfill(302,202,clgreen);
floodfill(352,202,clgreen);
floodfill(402,202,clgreen);
floodfill(452,202,clgreen);
line(425,130,410,80);
line(480,130,500,80);
circle(410,80,10);
circle(500,80,10);
floodfill(410,80,clgreen);
floodfill(500,80,clgreen);
circle(440,160,10);
circle(485,160,10);
floodfill(440,160,clyellow);
floodfill(485,160,clyellow);
line(440,190,465,210);
line(465,210,485,190);
line(485,190,465,200);
line(465,200,440,190);
end.
Подготовил Грико Игнат.
- Дата:
- Категория: Информатика » Рисуем в ABCPascal
Предыдущая
Следующая