Рандомные фигуры

@artdizain · Регистрация: 31.05.2011

Author24 — интернет-сервис помощи студентам

Всем привет
Нужно написать программу которая выводит на экран несколько фигур (например 5), и с каждым разом фигуры должны быть в разных местах
Т.е насколько я понимаю надо сделать рандомные координаты этих фигур, вот только идей как это провернуть у меня нет

@DIGS · 24.05.2012, 23:41

Сорри, код дал для делфи))
на паскале работать не будет

Delphi

1 2	randomize; var shape:Tshape;

ставишь в начале...
потом:

Delphi

for i:=1 to 5 do
begin
shape.create;
shape.top:=50+random(form1.height);
shape.left:=50+random(form1.width);
end;

Kodzaev · 25.05.2012, 00:39

Ну вот, что-то наляпал...

Pascal

Uses Crt,Graph;
Var
gd,gm: Integer;
BEGIN
Randomize;
gd:=Detect;
Initgraph(gd,gm,' ');
Repeat
ClearDevice;
Circle(Random(100),Random(500),Random(500));
Rectangle(Random(500),Random(500),Random(500),Random(500));
Line(Random(500),Random(500),Random(500),Random(500));
Arc(Random(100),Random(500),Random(500),Random(500),Random(500));
Delay(1000);
until Keypressed;
Closegraph;
Readln
END.

@artdizain 0 / 0 / 0 Регистрация: 31.05.2011 Сообщений: 3
		1
	Рандомные фигуры 24.05.2012, 20:42. Показов 5504. Ответов 2 Метки нет (Все метки) Всем привет Нужно написать программу которая выводит на экран несколько фигур (например 5), и с каждым разом фигуры должны быть в разных местах Т.е насколько я понимаю надо сделать рандомные координаты этих фигур, вот только идей как это провернуть у меня нет 0

	25.05.2012, 00:39

Рандомные фигуры

Решение