Вывести на экран снежинки и шарики

@SpeedySpeedovsk · Регистрация: 17.09.2015

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

Выведите на экран 60 снежинок в левой части экрана и 60 пузырьков в правой:
скриншот во вложении

вот что я смог сделать

Pascal

uses
  graphabc;
 
var i:integer; ran:byte;
 
procedure st(x, y: integer);
begin
  setpencolor(clrandom);;
  MoveTo(x, y);
  Lineto(x + 5, y - 10);
  MoveTo(x, y);
  Lineto(x - 5, y - 10);
  MoveTo(x, y);
  Lineto(x + 5, y + 10);
  MoveTo(x, y);
  Lineto(x - 5, y + 10);
  MoveTo(x, y);
  Lineto(x + 10, y - 5);
  MoveTo(x, y);
  Lineto(x - 10, y - 5);
  MoveTo(x, y);
  Lineto(x + 10, y + 5);
  MoveTo(x, y);
 Lineto(x - 10, y + 5);
end;
 
procedure shar(x, y: integer);
begin
  setpencolor(clrandom);;
  circle (x,y,10);
end;
 
begin
  setbrushcolor (color.Empty);
  clearwindow (clblack);
  for i:=1 to 60 do
  begin
  st(random(320),random (460));
  end;
end.

@JuriiMW · 08.10.2015, 11:53

А в чём, собственно, заключается вопрос?

Добавлено через 2 минуты

Pascal

  …
st(random(320),random (460));
  shar(random(321, Window.Width), Random(460));
  end;
…

Добавлено через 1 минуту
Даже лучше вот так:

Pascal

...
  st(random(0, Window.Width div 2),random (Window.Height));
  shar(Random(Window.Width div 2, Window.Width), Random(Window.Height));
  end;
...

	08.10.2015, 11:53