Исходники и листинги ::: 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

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

program grafika_01;

uses graph;

var gr1, gr2, x, y : integer;

begin

   gr1:= detect;

   gr2:= vgahi;

   initgraph (gr1, gr2, 'C:PascalBGI');

   SetFillStyle (1, 1);

   Bar (0, 0, 400, 400);

   SetFillStyle (1, 6);

   Bar (80, 260, 200, 380);

   Bar (85, 190, 115, 240);

   Bar (300,300,310,380);

   SetFillStyle (1, 9);

   Bar (120, 300, 160, 340);

   SetColor (0);

   Rectangle (120, 300, 160, 340);

   Line (140, 300, 140, 340);

   Line (140, 320, 160, 320);

   Line (60, 260, 140, 200);

   line (140, 200, 220, 260);

   Line (220, 260, 60, 260);

   SetFillStyle (1,6);

   FloodFill (140,230,0);

   SetFillStyle (1, 9);

   Sector (140, 245, 0, 180, 20, 20);

   line (140, 245, 140, 225);

   Line (140, 245, 154, 231);

   Line (140, 245, 126, 231);

   SetFillStyle (1, 14);

   FillEllipse (320, 60, 40, 40);

   SetFillStyle (1, 7);

   FillEllipse (322, 64, 4, 4);

   FillEllipse (318, 46, 6, 6);

   FillEllipse (330, 35, 2, 3);

   FillEllipse (310, 80, 4, 2);

   FillEllipse (350, 50, 2, 2);

   SetFillStyle (1, 15);

   Arc (80, 100, 40, 320, 20);

   Arc (120, 100, 40, 140, 20);

   Arc (120, 100, 220, 320, 20);

   Arc (160, 100, 220, 480, 20);

   Arc (100, 100, 45, 135, 30);

   Arc (140, 100, 45, 135, 30);

   Arc (100, 100, 225, 320, 30);

   Arc (140, 100, 225, 320, 30);

   FloodFill (120,100,0);

   SetFillStyle (1, 2);

   Arc (265, 300, 40, 320, 20);

   Arc (305, 300, 40, 140, 20);

   Arc (305, 300, 220, 320, 20);

   Arc (345, 300, 220, 500, 20);

   Arc (285, 300, 75, 135, 30);

   Arc (325, 300, 45, 105, 30);

   Arc (285, 300, 225, 315, 30);

   Arc (325, 300, 225, 320, 30);

   Arc (305, 280, 20, 160, 25);

   FloodFill (305, 300, 0);

   Bar (0, 380, 400, 400);

   x:=0; y:=380; SetColor(2);

   repeat

      Line (x, y, x+10, y-10);

      Line (x+10, y, x+30, y-20);

      x:=x+20;

   until x>380;

   readln;

end.

<<< Предыдущая работа

Вернуться в галерею исходников

Картинка

Автор: Sanek_xXx

Город: Казань

Дата: 31.01.2007 19:47

Комментариев: 2

Просмотров: 235

Оценка: 3 (0|1|1|0|1) [1]

Следующая работа >>>

Вернуться на главную

Авторский комментарий к работе: Листинг проги, которая рисует картнку

Вы не можете оценивать

КОММЕНТАРИИ К РАБОТЕ:

zergant* ::: комментарий от 03.03.2008 \| 15:13
	Сведущий (ур.9) Очки: 2123 Город: Ирбит Тв. работ: 25 Рег: 27.10.2007 (5995)	Прикольная вещь !!!!!!!!!!!!!1 -------------------- Жизнь всегда хороша - если смотреть на нее с нужной стороны !!!

vitja-ru* ::: комментарий от 19.02.2008 \| 14:52
	Перспективный (ур.8) Очки: 1528 Город: п.Клюквинка Тв. работ: 17 Рег: 14.02.2008 (7007)	Хотелось бы скачать -------------------- Трудно в ученье легко в бою!