Trở về đầu

foto1 foto2 foto3 foto4 foto5
Nguyễn Tô Sơn - Giảng viên Đại học Sư phạm Hà Nội. SĐT: 091.333.2869

HỌC TIN CÙNG THỦ KHOA

Thành tích hôm nay, Thành công ngày mai !

Tìm kiếm

Đây là code của bạn Vũ Văn Thưởng, học trò của mình, viết năm 2010 (Khi đó bạn Thưởng đang là sinh viên năm ba, hệ cử nhân Tài năng của Đại học Bách Khoa)

Chương trình được viết trên Turbo 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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
Program ChuongTrinh;
uses crt, graph;
const Xmin = 80;         rong = 10;            delays = 30;
      Ymin = 80;         buoc = 10;
      Xmax = 501;        kho = 6;
      Ymax = 362;
      color1 = blue;        { mau cua diem ngau nhien  }
      color2 = blue;        { mau cua ran }
      color3 = 2;           { mau xung quanh nen }
      color4 = yellow;      { mau nen }
type  CC = record
                 xx, yy: word;
           end;
var a, rao: Array[1..200] of CC;    c: cc;
    Dokho: shortint;
 
    x, y: word; j:char;  b, k: byte;   ddm, ddm2: integer; ch: string;
    stop: boolean ;
 
          procedure graphx(driver, mode: integer; dcgraph: string);
          { khoi tao do hoa }
          begin
               initgraph(driver, mode, dcgraph);
               cleardevice;
               setfillstyle(11, color3);
               bar(1, 1, getmaxx, getmaxy);
               settextstyle(2, 0, 5);
               outtextxy(10, getmaxy - 50, 'Press ESC to exit...');
               outtextxy(20, getmaxy - 70,'Vu Van Thuong');
          end;
 
          procedure khung;            { tao khung }
          begin
               setfillstyle(1, color4);
               bar(xmin, ymin, xmax, ymax);
          end;
 
          procedure raocan;           { tao vat can }
          var i, j: byte;
          begin
          end;
 
          procedure diem;
          { tao ngau nhien o vuong[rong x rong] trong khung }
          var x0, y0: word; i: word; zz: byte;
          begin
               randomize;
               zz:= abs(rong - buoc) div 2  ;
               x:= buoc*random((Xmax - buoc - Xmin) div buoc) + Xmin;
               { tao ngau nhien tao do x }
               y:= buoc*random((Ymax - buoc - Ymin) div buoc) + Ymin;
               { tao ngau nhien tao do y }
               setfillstyle(14, color1);          { tao mau }
               bar(x + zz + 1, y + zz + 1, x + zz + rong, y + zz + rong);
               { ve hcn rong x rong }
          end;
 
          procedure dong(var k: byte);   { tao su di chuyen }
          var i: byte; zz: byte;   sss: byte;
          begin
               zz:= abs(rong - buoc) div 2    ;
               for i:= b + 1 downto 2 do a[i]:= a[i - 1]; { doi toa do diem }
               with a[1] do
               begin
                    case k of
                         1: dec(yy, buoc);
                         2: dec(xx, buoc);
                         3: inc(xx, buoc);
                         4: inc(yy, buoc);
                    end;
 
                    setfillstyle(1, color4);
 
                    with a[b + 1] do
                         bar(xx + zz + 1, yy + zz + 1, xx + zz + rong, yy + zz + rong);
                         { ve hcn trang trong khung -- xoa hcn }
                    setfillstyle(1, color2);
                    bar(xx + zz + 1, yy + zz + 1, xx + zz + rong, yy + zz + rong);
                    {ve hcn tai a[1] }
               end;
               if (ddm = -dokho) or ((x = A[1].xx) and (y = A[1].yy)) then
               begin
                    ddm:= ddm + dokho;
                    diem;
                    if b < 255 then b:= b + 1;
                    if (b = trunc(b/10)*10) and (dokho < 10) then
                    begin
                         inc(dokho);
                    end;
               end      { kt toa do dau va toa do ngau nhien }
               else  if  (ddm = -dokho) or ((x = A[b + 1].xx) and (y = A[b + 1].yy))
               then
               begin
                    ddm:= ddm + dokho;
                    diem;
                    if b < 255 then b:= b + 1;
                    if (b = trunc(b/10)*10) and (dokho < 10) then
                    begin
                         inc(dokho);
                    end;
               end;
               stop:= false;
               for i:= 2 to b do
               if (A[1].xx = A[i].xx) and (A[1].yy = A[i].yy) then stop:= true;
               if (a[1].xx < xmin) or (a[1].xx > xmax - buoc) or (a[1].yy < ymin)
                  or (a[1].yy > ymax - buoc) then stop:= true;
          end;
 
          procedure tudong;      { tu dong chay khi khong su dung phim }
          var i: byte;
          begin
               repeat
                     if not (keypressed) then
                     begin
                          dong(k);
                          for i:= 1 to 10 - dokho do { tao muc do kho }
                          delay(delays);
                          delay(delays);
                     end
                        else j:= readkey;
                        if j = #27 then halt;
                        if ddm2 <> ddm then
                        begin
                             ddm2:= ddm;
                             str(ddm, ch);
                             ch:= 'Diem: ' + ch;
                             setfillstyle(11, color3);
                             bar(1, 14, 200, ymin - 10);
                             outtextxy(16, 8, ch);
                        end;
               until (j in [#72, #75, #77, #80, #27]) or (stop);
          end;
 
          procedure ct;           { kt lenh tu ban phim }
          var i: byte;
          begin
               repeat
                     tudong;
                     case j of
                          #72, '8': if not (k = 4) then k:= 1;     {}
                          #75, '4': if not (k = 3) then k:= 2;     {<}
                          #77, '6': if not (k = 2) then k:= 3;     {>}
                          #80, '2': if not (k = 1) then k:= 4;     {}
                     end;
               until (j = #27) or (stop);
               outtextxy(80, 360, 'Press Enter to restart...');
          end;
 
Begin { Chuong Trinh Chinh }
     j:= #13;
     repeat
           if j = #13 then
           begin
                clrscr;
                stop:= false;
                k:= 0;
                graphx(0, 0, '');
                settextstyle(1, 0, 2);
                dokho:= kho;
                ddm:= -dokho;
                ddm2:= ddm;
                khung;
                b:= 0;
                a[1].xx:= Xmin;
                a[1].yy:= ymin + ((ymax - ymin) div 2 div buoc)*buoc;
                ct;
           end;
           j:= readkey;
           closegraph;
     until j = #27;
end.

Bản quyền thuộc về thầy Nguyễn Tô Sơn, Đại học Sư phạm Hà Nội. Điện thoại: 091.333.2869