Информатика » Страница 12

Категории

Полезные ссылки

Материалы

Популярное

Информатикус

Информатикус. РАЗНОЕ

О Свислочи

Электронные пособия

Microsoft Excel: теория, практика, контроль

Раскраски онлайн для самых маленьких

Календарь

« Апрель 2025 »
Пн	Вт	Ср	Чт	Пт	Сб	Вс
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30

Журнал "Математика"

Портфолио ученика

Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика"

Открытый урок

Учительский фестиваль педагогических идей

Счетчик посещений

Опросы

Оцените работу сайта

Интернет с пользой

Знаток » Информатика » Страница 12

ПРИМЕР 10. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 770

uses graphABC;
begin;
rectangle(80, 260, 200, 370);
rectangle(200, 100, 350, 400);
rectangle(350, 180, 650, 400);
circle(275, 400, 60);
circle(550, 400, 60);
floodfill(260, 150, clyellow);
floodfill(370, 185, clgreen);
floodfill(300, 350, clblack);
floodfill(550, 400, clblack);
floodfill(100, 300, clgray);
rectangle(220, 110, 280, 330);
end.
Подготовил Томашевич Вадим.

Дата: 22-10-2019, 15:22
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 9. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 949

uses GraphABC;
begin
rectangle(80,260,200,370);
rectangle(200,100,350,400);
FloodFill(195,300,clBlack);
rectangle(350,180,650,400);
FloodFill(250,200,clSilver);
circle(275,400,60);
FloodFill(275,400,clGray);
circle(550,400,60);
FloodFill(550,400,clGray);
rectangle(205,285,280,102);
FloodFill(210,280,clSkyBlue);
rectangle(205,105,350,80);
end.
Подготовил Яковенко Матвей.

Дата: 22-10-2019, 15:17
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 8. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 932

uses GraphABC;
begin
rectangle(80,260,200,370);
rectangle(200,100,350,380);
rectangle(350,180,650,380);
circle(275,400,60);
circle(550,400,60);
FloodFill(85,265,clMoneyGreen);
FloodFill(205,105,clSilver);
FloodFill(355,185,clTeal);
FloodFill(280,405,clMedGray);
FloodFill(560,405,clSkyBlue);
rectangle(250,170,300,300);
FloodFill(355,185,clLime);
circle(550,400,20);
FloodFill(555,405,clTeal);
circle(275,400,20);
FloodFill(275,405,clTeal);
rectangle(400,100,630,180);
FloodFill(405,165,clBrown);
rectangle(410,110,630,180);
FloodFill(415,115,clBrown);
end.
Подготовил Журавель Егор.

Дата: 22-10-2019, 15:15
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 7. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 866

uses graphabc;
begin
rectangle(80,260,200,370);
rectangle(200,100,350,380);
rectangle(350,210,700,380);
circle(275,400,60);
circle(550,400,60);
floodfill(82,262,clred);
floodfill(202,102,clyellow);
floodfill(352,212,clblue);
rectangle(250,150,300,260);
floodfill(252,152,claqua);
circle(275,400,20);
circle(550,400,20);
floodfill(278,402,clgray);
floodfill(558,402,clgray);
floodfill(235,360,clblack);
floodfill(510,360,clblack);
rectangle(400,150,650,210);
rectangle(450,165,675,210);
floodfill(402,152,clbrown);
floodfill(452,167,clbrown);
rectangle(375,175,625,210);
floodfill(377,177,clbrown);
end.
Составил Грико Игнат.

Дата: 22-10-2019, 15:12
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 6. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 889

uses graphabc;
begin
moveto(200,200);
lineto(600,200);
lineto(400,400);
lineto(200,200);
floodfill(200,209,clred);
floodfill(206,201,clgreen);
circle(400,300,50);
floodfill(400,300,clblack);
circle(400,300,20);
end.
Составил Грико Игнат.

Дата: 16-10-2019, 08:49
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 5. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 872

uses GraphABC;
begin
MoveTo(200,200);
LineTo(600,200);
LineTo(400,400);
LineTo(200,200);
FloodFill(500,203,clblack);
end.
Составил Яковенко Матвей.

Дата: 16-10-2019, 08:47
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 4. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 936

uses GraphABC;
begin;
Rectangle(100,100,700,500);
line (300,100,300,500);
line (100,250,700,250);
circle(200,175,50);
circle(500,175,75);
circle(200,390,70);
circle (500,390,70);
FloodFill(200,175,clGreen);
FloodFill(500,170,clBlue);
FloodFill(200,390,clPurple);
FloodFill(500,390,clYellow);
Floodfill(102,102,clRed);
Floodfill(500,300,clBrown);
Floodfill(300,100,clBlue);
end.
Составил Томашевич Вадим

Дата: 16-10-2019, 08:42
Категория: Информатика / Рисуем в ABCPascal

ПРИМЕР 3. РИСУЕМ В ABCPASCAL

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 911

uses GraphABC;
begin
rectangle(100,100,700,500);
LINE(300,100,300,500);
line(100,250,700,250);
circle(200,175,50);
circle(500,175,70);
circle(200,320,50);
circle(500,390,90);
floodfill(200,175,clblue);
floodfill(500,390,clsilver);
floodfill(200,320,clmoneygreen);
floodfill(500,175,clyellow);
floodfill(102,102,clgray);
floodfill(302,102,clmedgray);
floodfill(102,252,cllime);
floodfill(302,498,clteal);
end.
Составил Грико Игнат

Дата: 16-10-2019, 08:40
Категория: Информатика / Рисуем в ABCPascal

Пример 2. Рисуем в ABCPascal

Опуликовал: 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.
Подготовила Синица Юлия

Дата: 15-10-2019, 15:10
Категория: Информатика / Рисуем в ABCPascal

Пример 1. Рисуем в ABCPascal

Опуликовал: admin
|
Коментариев: 0
|
Просмотров: 869

Пример 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,cllime);
Floodfill(309,407,clSkyblue);
Floodfill(309,120,clOlive);
Circle(510,250,50);
Floodfill(513,258,clyellow);
end.
Подготовила Волонсевич Яна

Дата: 15-10-2019, 15:07
Категория: Информатика / Рисуем в ABCPascal

Предыдущая Следующая

{links}