Исходники и листинги ::: Pascal ::: Шарики, в-5
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  program circle;
  uses graph, crt;
  var gd,gm:integer;
      c,x,y:integer;
      n:longint;
  begin
       gd:=Detect;
       initgraph(gd,gm,'c:bpbgi');
       randomize;
       for n:=1 to 100000000 do
  begin
       y:=random(479);
       c:=random(30);
       x:=random(639);
       fillellipse(x,y,10,10);
       floodfill(x,y,0);
       setcolor(0);
       setfillstyle(7,c);
  end;
      readkey;
      closegraph;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Шарики, в-5
Автор: ReKill*
Город: Чита
 Дата: 27.02.2007  23:12
Комментариев: 1
Просмотров: 351
Оценка: 0 (0|0|0|0|0) [0]
Вернуться на главную
Авторский комментарий к работе: Работа, помню давали по паскалю, вапще не сложная, но может каму пригодится.
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
d9k ::: комментарий от 30.05.2007 | 19:54
d9k Перспективный (ур.8)
Очки: 1546
Город: Псков
Тв. работ: 11
Рег: 26.05.2007 (4725)
Какой бред тут публикуют! Это же детский сад! ((


--------------------
Life is the game, that's will never be the same.