Rss
Виртуальный кабинет МАТЕМАТИКУС
Календарь
«    Май 2026    »
ПнВтСрЧтПтСбВс
 123
45678910
11121314151617
18192021222324
25262728293031
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

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

Интернет с пользой
Интернет с пользой
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 19
Моделирование положения железнодорожной станции. Pascal В районе расположены 3 населенных пункта. Даны их координаты. по территории района проходит прямолинейный участок железной дороги. Решено построить железнодорожную станцию и проложить прямолинейные автомобильные дороги от станции к населенным пунктам. Найдите положение станции, при котором общая длина автомобильных дорог была бы минимальной. Координаты населенных пунктов: А(1;4), В(2;-3), С(7;3).
pas27.pas [709 b] (cкачиваний: 2)
Найдите решение задачи о выборе положения железнодорожной станции, если известны затраты на строительство 1 км автомобильной дороги до каждого населенного пункта: ZA=530, ZB=180, ZC=940.
pas27_4.pas [721 b] (cкачиваний: 0)
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 40
  • Дата: 16-04-2026, 11:53
  • Категория: 5 класс
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 27
  • Дата: 16-04-2026, 11:49
  • Категория: 5 класс
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 67
Подготовка к контрольной работе "Действия с дробными числами"
  • Дата: 30-03-2026, 12:36
  • Категория: 5 класс
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 54
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 67
Все действия с обыкновенными дробями
  • Дата: 25-03-2026, 11:52
  • Категория: 5 класс
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 44
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 261
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.
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 212
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.
  • Опуликовал: admin
  • |
  • Коментариев: 0
  • |
  • Просмотров: 241
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.

Облако Тегов

{links}