Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Дата: 12-12-2019, 13:37
- Категория: Электронные ресурсы / Рисуем в ABCPascal / Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 252
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
- |
- Просмотров: 203
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
- |
- Просмотров: 234
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
- |
- Просмотров: 215
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
- |
- Просмотров: 582
- Дата: 2-02-2023, 07:20
- Категория: Информатика
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 750
- Дата: 14-01-2022, 08:56
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 815
- Дата: 13-12-2021, 13:14
- Категория: Информатика
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 678
Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника
#include(stdio.h)
#include(iostream)
#include (math.h)
using namespace std;
main(){
int x1,x2,x3,y1,y3,y2;
double d1,d2,d3;
cin>>x1 >>y1 >>x2 >>y2 >>x3 >>y3;
d1=sqrt(pow((x1-x2),2)+pow((y1-y2),2));
cout<< "d1=" <<d1 << "\n";
d2=sqrt(pow((x1-x3),2)+pow((y1-y3),2));
cout<< "d2=" <<d2 << "\n";
d3=sqrt(pow((x3-x2),2)+pow((y3-y2),2));
cout<< "d3=" <<d3 << "\n";
}
#include(stdio.h)
#include(iostream)
#include (math.h)
using namespace std;
main(){
int x1,x2,x3,y1,y3,y2;
double d1,d2,d3;
cin>>x1 >>y1 >>x2 >>y2 >>x3 >>y3;
d1=sqrt(pow((x1-x2),2)+pow((y1-y2),2));
cout<< "d1=" <<d1 << "\n";
d2=sqrt(pow((x1-x3),2)+pow((y1-y3),2));
cout<< "d2=" <<d2 << "\n";
d3=sqrt(pow((x3-x2),2)+pow((y3-y2),2));
cout<< "d3=" <<d3 << "\n";
}
- Дата: 17-09-2021, 08:45
- Категория: Информатика / Алгоритмы: 3 уровень (Си ++)
- Дата: 10-09-2021, 08:34
- Категория: Информатика / Алгоритмы: 3 уровень (Си ++)
Предыдущая
Следующая
