Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 3
- Дата: 25-03-2026, 12:25
- Категория: 5 класс / Контрольные
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 10
Все действия с обыкновенными дробями
- Дата: 25-03-2026, 11:52
- Категория: 5 класс
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 3
- Дата: 25-03-2026, 11:17
- Категория: Олимпиады / Электронные ресурсы
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 245
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
- |
- Просмотров: 196
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
- |
- Просмотров: 224
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
- |
- Просмотров: 206
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
- |
- Просмотров: 544
https://learningapps.org/
Выполнил Чернецкий Кирилл
Выполнил Чернецкий Кирилл
- Дата: 22-03-2023, 12:07
- Категория: Кроссворды
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 568
- Дата: 2-02-2023, 07:20
- Категория: Информатика
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 745
- Дата: 14-01-2022, 08:56
- Категория: Информатика / Рисуем в ABCPascal
Предыдущая
Следующая
