Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Дата: 12-12-2019, 13:37
- Категория: Электронные ресурсы / Рисуем в ABCPascal / Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 28
uses GraphABC;
const
n=10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clred);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
circle(x[i],y[i],20);
end;
while 1=1 do
begin
sleep(100);
ClearWindow;
for var i:= 1 to n do
begin
a:= Random(11) - 5;
b:= Random(11) - 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
circle(x[i],y[i],20);
end;
Redraw;
end;
end.
const
n=10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clred);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
circle(x[i],y[i],20);
end;
while 1=1 do
begin
sleep(100);
ClearWindow;
for var i:= 1 to n do
begin
a:= Random(11) - 5;
b:= Random(11) - 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
circle(x[i],y[i],20);
end;
Redraw;
end;
end.
- Дата: 25-11-2024, 12:40
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 23
uses GraphABC;
const
n =10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clgreen);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
circle(x[i],y[i],20);
end;
while 1=1 do
begin
sleep(100);
ClearWindow;
for var i:= 1 to n do
begin
a:= Random(8) + 5;
b:= Random(11) - 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
circle(x[i],y[i],20);
end;
Redraw;
end;
end.
const
n =10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clgreen);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
circle(x[i],y[i],20);
end;
while 1=1 do
begin
sleep(100);
ClearWindow;
for var i:= 1 to n do
begin
a:= Random(8) + 5;
b:= Random(11) - 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
circle(x[i],y[i],20);
end;
Redraw;
end;
end.
- Дата: 25-11-2024, 12:39
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 26
uses GraphABC;
const
n=10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clRandom);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
rectangle(x[i],y[i],x[i]+50, y[i]+ 50);
end;
while 1=1 do
begin
sleep(100);
ClearWindow;
for var i:= 1 to n do
begin
a:= Random(11) - 5;
b:= Random(11)- 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
rectangle(x[i],y[i],x[i]+50, y[i]+ 50);
SetBrushColor(clRandom);
end;
Redraw;
end;
end.
const
n=10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clRandom);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
rectangle(x[i],y[i],x[i]+50, y[i]+ 50);
end;
while 1=1 do
begin
sleep(100);
ClearWindow;
for var i:= 1 to n do
begin
a:= Random(11) - 5;
b:= Random(11)- 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
rectangle(x[i],y[i],x[i]+50, y[i]+ 50);
SetBrushColor(clRandom);
end;
Redraw;
end;
end.
- Дата: 25-11-2024, 12:39
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 22
uses GraphABC;
const
n=10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clRandom);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
circle(x[i],y[i],2);
end;
while 1=1 do
begin
for var i:= 1 to n do
begin
a:= Random(11) - 5;
b:= Random(11) - 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
circle(x[i],y[i],2);
SetBrushColor(clRandom);
end;
ReDraw;
end;
end.
const
n=10;
var
x, y: array[1..n] of integer;
a,b : integer;
begin
LockDrawing;
SetWindowSize(600,400);
SetBrushColor(clRandom);
for var i:= 1 to n do
begin
x[i] := Random(600);
y[i] := Random(400);
circle(x[i],y[i],2);
end;
while 1=1 do
begin
for var i:= 1 to n do
begin
a:= Random(11) - 5;
b:= Random(11) - 5;
x[i]:= x[i] + a;
y[i]:= y[i] + b;
circle(x[i],y[i],2);
SetBrushColor(clRandom);
end;
ReDraw;
end;
end.
- Дата: 25-11-2024, 12:37
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 452
- Дата: 14-01-2022, 08:56
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 574
Составил Савко Егор.
- Дата: 19-05-2020, 12:46
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 557
Составил Лавринович Дмитрий.
- Дата: 19-05-2020, 12:43
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 563
Алгоритм составил Томашевич Вадим.
- Дата: 19-05-2020, 10:48
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 1 031
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.
Подготовил Грико Игнат
- Дата: 22-11-2019, 08:57
- Категория: Информатика / Рисуем в ABCPascal
Предыдущая
Следующая
