Kết quả tìm kiếm

Program SnakeGame; Uses crt; Const width = 79; height = 28; Type PDirection = (Up, Down, Left, Right); PSnake = Record HeadX, HeadY: Integer; TailX, TailY: Array [1..100] Of Integer; Length: Integer; Direction: PDirection; End; PFood = Record x,y: Integer...

Hihi em cũng nghĩ như z =))

16 ngày rồi bạn mới rep cho mình =))

Đúng là như bạn =)))

Cho những bạn nào cần để làm một game xe tăng: - Đầu tiên tạo chương trình con (Procedure) đơn giản cho xe tăng và kẻ địch: + Xe tăng: gồm chương trình "tạo hình ảnh xe tăng" và chương trình "xóa hình ảnh xe tăng". + Kẻ địch: gồm chương trình "tạo hình ảnh kẻ địch" và chương...

Được chi bạn thì mình vinh hạnh quá =))

HIhi mình đang tìm hiểu C++ với thư viện SDL để làm game =))) nhưng không biết có như mong đợi không =)

Haha! Tại tui có dự định làm game xe tăng này từ khi tui đụng vô cái pascal. Sau 1 tháng học Pascal thì tui quyết định khai triển dự án này, kkk không ngờ lại làm được =)))

Đúng rồi ạ, mình mất 1 tuần và đã sửa chửa hơn 7 lần rồi =)))

Ngày 19/5/2023, mình mới thêm chức năng thắng (khi hoàn thành nhiệm vụ bên dưới góc trái màn hình) và thua (không hoàn thành được nhiệm vụ vì hết số đạn của xe tăng).

Cách chơi: - Mũi tên lên để xe tăng di chuyển lên. - Mũi tên xuống để xe tăng di chuyển xuống. - Bắn hạ số lương kẻ địch tương đương với nhiệm vụ ở góc dưới bên trái màn hình là thắng game. - Bắn hết số đạn mà kẻ địch vẫn còn thì thua game. - Nhấn R để chơi lại. - Nhấn Esc để...

Bây giờ đã có kẻ địch cho xe tăng chơi chung rồi =))))

Mũi tên lên để di chuyển lên, mũi tên xuống để di chuyển xuống, phím Space để bắn ạ! Do mới làm nên mình chưa thể tạo kẻ địch được ạ! Bạn thông cảm

Program THE_TANK; Uses Crt; Var tank: Record x: Byte; y: Byte; End; bullet: Record x: Byte; y: Byte; End; enemy: Record x: Byte; y: Byte; End; i,j: Byte; KEY: Char; Score: Integer; Target: Integer; NumberOfBullet: Integer; m: Char...

Program Tank; Uses crt; Const BULLET_SPEED = 3; Type TCoordinate = Record x : Integer; y : Integer; End; Var tank_x, tank_y : Integer; bullet_x, bullet_y : Integer; ch : Char; Procedure draw_tank(x,y : Integer); Begin textcolor(green); Gotoxy(x,y); Writeln('...

THIS IS THE ANSWER FOR YOU!

John got a new dictionary, didn't he?

- Ý bạn là 30 độ C đúng hông!? - Nó nói là bỏ qua nhiệt lượng truyền ra vỏ ấm rồi mà sao phải cho biết thêm nhiệt dung riêng và khối lượng của ấm nhôm nhỉ !?

Program NO_NAME; Uses Crt; Var a: Array[1..1000] Of Integer; n,i: Integer; f: Real; Function ADVERAGE: Real; Var t: Integer; Begin t := 0; For i:=1 To n Do t := t+a; ADVERAGE := t/n; End; Begin Clrscr; Write('NHAP SO LUONG PHAN TU CO TRONG MANG: '); Readln(n)...

Bị đánh dấu bài thì xem như bài đó được 1 hoặc 0 điểm (trường hợp tệ nhất), rồi tùy vào điểm bạn đang có, cộng lại trung bình ra, nếu điểm trung bình tất cả các môn bạn cao thì lên còn ngược lại thì ở lại lớp ạ!! =))))