Kết quả tìm kiếm

Program CarGame; Uses Crt; Const U = #72; D = #80; R = #77; L = #75; Space = #32; Type rCar = Record Army: Record x,y: Byte; End; Enemy: Record x,y: Byte; End; End; TCar = Object Procedure DrawArmyCar(x,y: Byte)...

Program The_Tank_Game; Uses Crt; Type Location = Record x,y: Byte; End; Var Tank,Enemy,Bullet,Arrow,Present: Location; i,j,Spawm_Enemy,z,ExtraBullet: Byte; KEY,m,w,SavedKey: Char; Score,NumberOfBullet,Target: Integer; Function CheckEnemy(x,y: Byte): Boolean; Begin If ((bullet.x = enemy.x+1) And...

Program The_Tank_Game; Uses Crt; Type Location = Record x,y: Byte; End; Var Tank,Enemy,Bullet,Arrow,Present: Location; i,j,Spawm_Enemy,z,ExtraBullet: Byte; KEY,m,w,SavedKey: Char; Score,NumberOfBullet,Target: Integer; Function CheckEnemy(x,y: Byte): Boolean; Begin If...

Program NO_NAME; Uses Crt; Const WallRight = 80; WallLeft = 1; Type Position = Record x,y: Integer; End; TBullet = Record x,y: Byte; ShootingStatus: Boolean; End; Var Tank: Position; Bullet: TBullet; CheckDirection: Boolean; Procedure...

Program NO_NAME; Uses Crt; Const HeightJumping = 6; Type Position = Record x,y: Integer; JumpingStatus: Boolean; End; Var Character: Position; Height: Integer; Gravity: Integer; Procedure MapForGame; Var i,j : Byte; Begin For j := 21 To 29 Do For i := 1 To 80 Do...

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...

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('...

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)...

program thuviendohoa; uses wincrt,graph; Var x,mh,mode,strSCWidth:integer; Size,Endcot : word; PBird,PBird2,PBird3 : Pointer; FlapPos:array[1..2] of integer; CotPos:Array[1..10,1..2] of integer; key:char; YourScore:integer; FlapVecter,Speed:Integer; iStart,isLose,iSetScore:Boolean...

Program NO_NAME; Uses Crt; Var a: Array[1..1000] Of Integer; n,i,b: Integer; c: Real; Function checkn(n:Integer): Boolean; Begin If (n<1) Then checkn := False Else checkn := True; End; //========================================================= Begin Clrscr; Write('NHAP VAO SO...

Program NO_NAME; Uses Crt; Var n,a,b,c: Integer; Begin Clrscr; Write('NHAP SO NGUYEN "n": '); Readln(n); Writeln('========================='); For a:=1 To n Do Begin If (a Mod 2 = 0) Then Begin Write(a:5); b := b+1; End Else...

Program NO_NAME; Uses Crt; Var a: Array[1..100] Of Integer; b: Array[1..100] Of Integer; c: Array[1..100] Of Integer; n,i: Integer; Function check(n: Integer): Boolean; Begin If (n<=0) Then check := False Else check := True; End...

Program TINH_TONG; Uses Crt; Var a: Array[1..100] Of Integer; n,i,S: Integer; Function check(n:Integer): Boolean; Begin If (n<=0) Then check := False Else check := True; End; //========================================================= Begin Clrscr; Write('NHAP SO LUONG PHAN TU TRONG...

NHẬP VÀO SỐ NGUYÊN "n" (0<n<=1000) VÀO MẢNG ĐƯỢC TỰ CHỌN SỐ PHẦN TỬ. TÌM SỐ NHỎ NHẤT, LỚN NHẤT TRONG MẢNG. (3 điểm)

Program EXPERIMENT; Uses Crt; Var a,b,c,x,y,delays,i,j: Integer; m,speed: Char; Procedure MAP; Begin For i:=1 to 80 do Write('='); End; //=============================================== Function checkxy(x,y:Integer):Boolean; Begin If (x<1) or (x>79) or (y<2) or (y>29) Then...

Cho a+b+c+ab+ac+bc=6abc. CMR: 1/a^2 + 1/b^2 + 1/c^2 >= 3.

Program EXPERIMENT; Uses Crt; Var i,j,x,y,a: Byte; s,B: String; Procedure TANK; Begin Writeln('+'); Writeln('#:=='); Writeln('+'); End; //===================================== Procedure SHOOT; Begin B := '->'; s := Readkey; If (s='s') Or (s='S') Then Begin...

Program MOVEMENT; Uses Crt; Var a: Char; x,y,i,j: Byte; Begin Clrscr; x := 1; y := 2; Gotoxy(1,2); Writeln('O'); While 1=1 Do Begin a := Readkey; Case a Of 'd': Begin ClrScr; Gotoxy(x+1,y)...

Program CHECKTRIANGLE; Uses Crt; Var a,b,c,d: Byte; Function checkabc(a,b,c:Byte):Boolean; Begin If (a<b+c) and (b<a+c) and (c<a+b) Then checkabc:=True Else checkabc:=False; End; //======================================================================== Procedure ENTER; Begin...