Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Дата: 12-12-2019, 13:37
- Категория: Электронные ресурсы / Рисуем в ABCPascal / Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 18
В районе расположены 3 населенных пункта. Даны их координаты. по территории района проходит прямолинейный участок железной дороги. Решено построить железнодорожную станцию и проложить прямолинейные автомобильные дороги от станции к населенным пунктам. Найдите положение станции, при котором общая длина автомобильных дорог была бы минимальной. Координаты населенных пунктов: А(1;4), В(2;-3), С(7;3).Найдите решение задачи о выборе положения железнодорожной станции, если известны затраты на строительство 1 км автомобильной дороги до каждого населенного пункта: ZA=530, ZB=180, ZC=940.
- Дата: 28-04-2026, 12:20
- Категория: Информатика / Алгоритмы: 1 уровень
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 260
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
- |
- Просмотров: 211
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
- |
- Просмотров: 240
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
- |
- Просмотров: 233
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
- |
- Просмотров: 594
- Дата: 2-02-2023, 07:20
- Категория: Информатика
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 756
- Дата: 14-01-2022, 08:56
- Категория: Информатика / Рисуем в ABCPascal
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 827
- Дата: 13-12-2021, 13:14
- Категория: Информатика
- Опуликовал: admin
- |
- Коментариев: 0
- |
- Просмотров: 698
Треугольник задан координатами своих вершин. Вычислить длины сторон треугольника
#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 уровень (Си ++)
Предыдущая
Следующая
