Tin Học - Game Rắn Săn Mồi Bằng Pascal - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install Tin họcGame Rắn săn mồi bằng Pascal

• Thread starter HưngMC2007
• Ngày gửi 5 Tháng ba 2021
• Replies 0
• Views 2,403

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học cấp II

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

HưngMC2007

Học sinh mới

Thành viên 5 Tháng ba 2021 4 1 6 18 Bình Định THCS Bình Thuận [TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

uses tcvn, crt, dos; var c, i, x, y, d, a, b, j, v, wx, wy : integer; ye, mo, da, tim, ou, ol, od, ori : word; xx, yy : array[0..9999] of byte; tsp : text; st, ten, yea, mon, day, time, ctrl : string; m, n, ch, up, lef, dow, rig, pa : char; k, sou : boolean; procedure thoat; begin if m=chr(27) then k:=false; end; procedure sod2; begin if sou=true then sound(300); delay(1000); nosound; end; procedure dc3; var i : integer; begin xx[0]:=x;yy[0]:=y; gotoxy(xx[d],yy[d]); textbackground(6); write(#32,#32); textbackground(10); for i:=d downto 1 do begin xx:=xx[i-1];yy:=yy[i-1]; gotoxy(xx,yy); write(#32,#32); end; for i:=2 to d do if (xx=x) and (yy=y) then begin k:=false;sod2 end; for i:=2 to d do begin if (xx=a) and (yy=b) then begin textbackground(0); a:=(random(37)+2)*2-1; b:=random(22)+2; gotoxy(a,b); textbackground(8); textcolor(14+blink); write(#40,#41); textcolor(0); textbackground(0); end; end; end; procedure dc1; begin gotoxy(x,y); textbackground(10); write(#32,#32); textbackground(0); end; procedure sod1; begin if sou=true then sound(700); delay(200); nosound; end; procedure dc2; begin if (x=a) and (y=b) then begin inc(d); sod1; gotoxy(5,25); textbackground(11); write('Score: ',d-1); textbackground(0); a:=(random(37)+2)*2-1; b:=random(22)+2; gotoxy(a,b); textbackground(8); textcolor(14+blink); write(#40,#41); textcolor(0); textbackground(0); if (d-1>0) and ((d-1) mod 10=0) and (v>50) then begin v:=v-trunc(v/5); if v<50 then v:=50; end; if ((d-1) mod 10=0) and (v>=50) then begin gotoxy(29,25); textbackground(7); write('Speed = ',1000/v/2.5:5:2,' cm/s'); textbackground(0); end; end; dc3; gotoxy(x,y); textbackground(2); write(#39,#39); textbackground(0); inc(j); if j=2 then begin gotoxy(wx,wy); textbackground(6); write(#32,#32); textbackground(0); end; delay(v); end; begin loadfont; highvideo; assign(tsp,'RSM.inp'); append(tsp); write(tsp,''); close(tsp); sou:=true; up:='w';lef:='a';dow:='s';rig:='d'; ou:=ord(up);ol:=ord(lef);od:=ord(dow);ori:=ord(rig); repeat begin textbackground(10); textcolor(0); clrscr; gotoxy(37,11); write(telex('Chowi (C)')); gotoxy(34,12); write(telex('Thafnh tisch (A)')); gotoxy(34,13); write(telex('Casch chowi (H)')); gotoxy(35,14); write(telex('Tufy chojn (S)')); gotoxy(37,15); write(telex('Thoast (E)')); keypressed; ch:=readkey; while (ch<>'c') and (ch<>'a') and (ch<>'h') and (ch<>'s') and (ch<>chr(27)) and (ch<>chr(13)) and (ch<>'e') do begin keypressed;ch:=readkey end; if ch='h' then repeat begin textbackground(10); textcolor(0); clrscr; gotoxy(34,9); writeln(telex('Casch chowi')); gotoxy(13,wherey); writeln(telex('Nhaasn casc phism W, A, S, D hoawjc casc phism muxi teen ddeer chowi.')); gotoxy(20,wherey); writeln(telex('Cos theer chirnh ddieefu khieern owr phaafn cafi ddawjt.')); gotoxy(21,wherey); writeln(telex('Di chuyeern con rawsn ddi awn casc ddieerm dden.')); gotoxy(14,wherey); writeln(telex('Khoong theer ddi theo huwowsng nguwowjc laji cura huwowsng ddang ddi.')); gotoxy(26,wherey); writeln(telex('Nhaasn phism P ddeer duwfng trof chowi.')); gotoxy(23,wherey); writeln(telex('Nhaasn phism '),'ESC',telex(' ddeer keest thusc trof chowi.')); gotoxy(31,wherey); writeln(telex('Chusc may mawsn :3')); gotoxy(35,wherey); write('Home (N)'); repeat until keypressed; ch:=readkey; while (ch<>'n') and (ch<>chr(13)) and (ch<>chr(27)) do begin keypressed; ch:=readkey; end; delay(50); end until (ch='n') or (ch=chr(13)) or (ch=chr(27)) else if (ch='c') or (ch=chr(13)) then repeat begin k:=true; repeat begin clrscr; textbackground(10); textcolor(0); gotoxy(24,13); write(telex('Nhaajp teen( 1 --> 12 kis tuwj ): '));readln(ten); end until (length(ten)>0) and (length(ten)<=12); randomize; x:=(random(37)+2)*2-1; y:=random(22)+2; wx:=x;wy:=y; d:=1; v:=200; textbackground(0); textbackground(14); clrscr; gotoxy(x,y); textbackground(2); write(#39,#39); textbackground(4); gotoxy(1,1); for i:=1 to 80 do write(#32); for i:=1 to 24 do begin gotoxy(79,i); write(#32,#32); end; for i:=80 downto 1 do begin gotoxy(i,24); write(#32); end; gotoxy(1,1); for i:=1 to 24 do writeln(#32,#32); textcolor(0); gotoxy(5,25); textbackground(11); write('Score: ',d-1); textbackground(0); gotoxy(15,25); textbackground(13); write(ten); textbackground(0); gotoxy(29,25); textbackground(7); write('Speed = ',1000/v/2.5:5:2,' cm/s'); textbackground(0); a:=(random(37)+2)*2-1; b:=random(22)+2; gotoxy(a,b); textbackground(8); textcolor(14+blink); write(#40,#41); textcolor(0); textbackground(0); m:=' '; repeat begin keypressed; n:=readkey; if (n=up) or (n=lef) or (n=rig) or (n=dow) or (n=chr(72)) or (n=chr(75)) or (n=chr(80)) or (n=chr(77)) or (n=chr(27)) then m:=n; j:=0; end until m<>' '; thoat; pa:='p'; repeat begin if j=0 then j:=1 else begin gotoxy(x,y); keypressed; n:=readkey; if n=chr(27) then k:=false; while (n='p') or (pa<>'p') do begin gotoxy(75,25); textbackground(1); write('Pause'); textbackground(0); repeat until keypressed; pa:=readkey; n:=' '; gotoxy(75,25); textbackground(14); write(' '); textbackground(0); end; end; if (m=up) or (m=chr(72)) then if (n=up) or (n=chr(72)) or (n=lef) or (n=chr(75)) or (n=rig) or (n=chr(77)) then m:=n; if (m=lef) or (m=chr(75)) then if (n=up) or (n=chr(72)) or (n=lef) or (n=chr(75)) or (n=dow) or (n=chr(80)) then m:=n; if (m=dow) or (m=chr(80)) then if (n=dow) or (n=chr(80)) or (n=lef) or (n=chr(75)) or (n=rig) or (n=chr(77)) then m:=n; if (m=rig) or (m=chr(77)) then if (n=up) or (n=chr(72)) or (n=chr(80)) or (n=dow) or (n=rig) or (n=chr(77)) then m:=n; if m=chr(ou) then repeat begin dc1; dec(y); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed else if m=chr(ol) then repeat begin dc1; dec(x,2); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed else if m=chr(od) then repeat begin dc1; inc(y); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed else if m=chr(ori) then repeat begin dc1; inc(x,2); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed else case m of chr(72): repeat begin dc1; dec(y); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed; chr(75): repeat begin dc1; dec(x,2); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed; chr(80): repeat begin dc1; inc(y); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed; chr(77): repeat begin dc1; inc(x,2); dc2; if k=false then break; if (x=79) or (x=1) or (y=24) or (y=1) then begin sod2;k:=false;break end; end until keypressed; end; end until k=false; getdate(ye,mo,da,tim); append(tsp); str(d-1:4,st); str(ye:4,yea); str(mo:2,mon); str(da:2,day); str(tim:2,time); st:=st+' '+day+'/'+mon+'/'+yea+' '+ten; writeln(tsp,'/',st); close(tsp); textbackground(10); clrscr; textbackground(0); textbackground(15); textcolor(0); gotoxy(34,10); write(telex('Suaast sawsc!')); gotoxy(32,11); write(telex('Bajn cos '),d-1,telex(' ddieerm!')); delay(1000); repeat until keypressed; textbackground(0); textbackground(10); repeat begin clrscr; gotoxy(33,12); writeln(telex('Thuwr laji? (Y/N)')); keypressed; n:=readkey; end until (n='y') or (n='n'); end until n='n' else if ch='a' then repeat begin clrscr; gotoxy(36,2); writeln(telex('Thafnh tisch')); gotoxy(26,wherey); writeln(telex('Ddieerm Thowfi gian Teen')); assign(tsp,'RSM.inp'); reset(tsp); textcolor(0); j:=0; while not eof(tsp) do begin inc(j); readln(tsp,st); gotoxy(23,wherey); writeln(j,'/',st); end; gotoxy(25,24); writeln('Home (N)'); gotoxy(43,24); writeln(telex('Xosa taast car (D)')); repeat until keypressed; ch:=readkey; while (ch<>'n') and (ch<>'d') and (ch<>chr(13)) and (ch<>chr(27)) do begin keypressed; ch:=readkey; end; if ch='d' then begin rewrite(tsp); write(''); close(tsp); end; delay(50); end until (ch='n') or (ch='d') or (ch=chr(13)) or (ch=chr(27)) else if ch='s' then repeat begin clrscr; textbackground(10); clrscr; gotoxy(32,10); write(telex('Ddieefu khieern:')); gotoxy(37,11); write('(U)'); gotoxy(37,12); textbackground(7); write('[',up,']'); gotoxy(34,13); write('[',lef,']','[',dow,']','[',rig,']'); textbackground(10); write(telex(' Ddawjt laji (A)')); gotoxy(34,14); write('(L)(D)(R)'); gotoxy(30,15); if sou=true then write(telex('Aam thanh( S ) - Baajt -')) else if sou=false then write(telex('Aam thanh( S ) - Tawst -')); gotoxy(37,24); write('Home (N)'); repeat until keypressed; ch:=readkey; while (ch<>'n') and (ch<>'s') and (ch<>chr(13)) and (ch<>chr(27)) and (ch<>'u') and (ch<>'l') and (ch<>'d') and (ch<>'r') and (ch<>'a') do begin keypressed; ch:=readkey; end; if ch='s' then if sou=true then sou:=false else sou:=true else if ch='a' then begin up:='w';lef:='a';dow:='s';rig:='d'; end else if ch='r' then begin repeat begin clrscr; gotoxy(20,13); write(telex('Chirnh suwra ddieefu khieern cura phism phari laf: ')); readln(ctrl); end until (length(ctrl)=1) and (ctrl[1] in ['a'..'z','0'..'9']); rig:=ctrl[1]; ori:=ord(rig); end else if ch='u' then begin repeat begin clrscr; gotoxy(20,13); write(telex('Chirnh suwra ddieefu khieern cura phism leen laf: ')); readln(ctrl); end until (length(ctrl)=1) and (ctrl[1] in ['a'..'z','0'..'9']); up:=ctrl[1]; ou:=ord(up); end else if ch='l' then begin repeat begin clrscr; gotoxy(20,13); write(telex('Chirnh suwra ddieefu khieern cura phism trasi laf: ')); readln(ctrl); end until (length(ctrl)=1) and (ctrl[1] in ['a'..'z','0'..'9']); lef:=ctrl[1]; ol:=ord(lef); end else if ch='d' then begin repeat begin clrscr; gotoxy(20,13); write(telex('Chirnh suwra ddieefu khieern cura phism duwowsi laf: ')); readln(ctrl); end until (length(ctrl)=1) and (ctrl[1] in ['a'..'z','0'..'9']); dow:=ctrl[1]; od:=ord(dow); end; delay(50); end until (ch='n') or (ch=chr(13)) or (ch=chr(27)); end until (ch='e') or (ch=chr(27)); textbackground(0); end. You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học cấp II

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.