Исходники и листинги ::: Pascal ::: Графические линни
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  uses graph, crt;
  var gd,gm:integer;
      c,n,x,y:integer;
  begin
       gd:=Detect;
       initgraph(gd,gm,'c:bpbgi');
       randomize;
       for n:=1 to 1000 do
  begin
 
       y:=random(450);
       x:=random(650);
       c:=random(20);
       SetColor(white);
       line(300,250,x,y);
       delay(1000);
       Setcolor(c);
       line(300,250,x,y);
       floodfill(x,y,0);
       setcolor(0);
       setfillstyle(9,c);
 
  end;
      readkey;
      closegraph;
  end.
<<< Предыдущая работа

Вернуться в галерею исходников 		Графические линни
Автор: ReKill*
Город: Чита
 Дата: 28.02.2007  20:00
Комментариев: 1
Просмотров: 401
Оценка: 3 (0|1|0|1|1) [1]
Вернуться на главную
Авторский комментарий к работе: Простая работа с графикой
Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:
Boland* ::: комментарий от 22.04.2007 | 11:53
Boland Приверженец (ур.6)
Очки: 540
Город: Томск
Тв. работ: 7
Рег: 05.05.2006 (81)
Не вижу тут ничего сложного!скучная,так сажем(


--------------------
Мысль изречённая,есть ложь.