Kết quả tìm kiếm

Hông ạ, mình hông biết !

Bản quyền thuộc kênh Văn Chí VN

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

Bạn cần ngôn ngữ lập trình nào ạ (Pascal, Python, C/C#/C++,...)

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

PHẦN ĐẦU THÌ MINH HÔNG BIẾT NHA, XIN LỖI BẠN NHIỀU Ạ! *ĐIỂM MỚI: - XÁC ĐỊNH RÕ KHÔNG THỂ DỰA VÀO SỰ GIÚP ĐỠ TỪ BÊN NGOÀI ĐỂ GIÀNH ĐỘC LẬP CHO DÂN TỘC, MÀ ĐIỀU CẦN THIẾT CỐT YẾU LA PHẢI DỰA VÀO CHÍNH MÌNH (NỘI LỰC). - NGƯỜI QUYẾT ĐỊNH ĐI RA NƯỚC NGOÀI, CỤ THỂ LÀ SANG PHƯƠNG TÂY, TRUNG TÂM...

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

kkk oke bạn mình sẽ ráng đọc =))

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

=))) Nhìn choáng váng quá bạn gì ơi!!!

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

Program CLOCK; Uses Crt; Var a,b,c,d: integer; Begin ClrScr; For c:=0 to 5 Do Begin For d:=0 to 9 Do Begin For a:=0 to 5 Do Begin For b:=0 to 9 Do Begin ClrScr...

SỬA LẠI NÈ: Program KT; uses Crt; Var a: Integer; Begin If a mod 2 = 0 Then Write('La so chan') Else Write('La so le'); Readln; End. HOẶC: Program KT; uses Crt; Var a: Integer; Begin Write('NHAP SO "a": '); Readln(a); If a mod 2 = 0 Then Write('La so chan') Else Write('La so le')...

Program TONG_S; Uses Crt; Var S,n,i: Integer; Function checkn(n:integer):Boolean; Begin If (n<0) or (n>100) then checkn:=False Else checkn:=True; End; //========================================================= Begin ClrScr; Write('NHAP SO NGUYEN "n": '); Readln(n); If...