Bai toan ve nghiem nguyen

Bai toan ve nghiem nguyen

Bai toan ve nghiem nguyen

Ngày tải lên : 15/09/2013, 14:10
  • 12
  • 709
  • 4
Bài toán về số nguyên tố

Bài toán về số nguyên tố

... DivB(a,b:bigint):bigint;beginDivB:=int(a/b);{ham cho phan nguyen cua mot so thuc va tra ve la kieu so thuc}end;function ModB(a,b:bigint):bigint;beginModB:=a-b*int(a/b);end;function EvenBig(n:Bigint):boolean;beginEvenBig:=ModB(n,2)=0;end;function ... isPrime(n:longint):boolean;var i,j:longint;beginisPrime:=true;i:=1;j:=round(sqrt(n));{mang a chua cac so nguyen to da sap xep tang dan} whi...
Ngày tải lên : 07/09/2012, 10:56
  • 14
  • 2.6K
  • 26
bài toán về quản lý trắc nghiệm.DOC

bài toán về quản lý trắc nghiệm.DOC

... Trắc Nghiệm Tổng Hợp Private Sub mnutoan_Click()Frmtoan.Showfrmchinh.HideEnd SubPrivate Sub mnuvan_Click()frmvanhoc.Showfrmchinh.HideEnd SubPrivate Sub mnuve_Click()Dim aa = Shell("paint.exe", ... Integersocau = 15tn = 0dem = 0If Dir(App.Path & "\csdl \toan. txt") = "" Thentn = 1Exit SubEnd IfOpen App.Path & "\csdl \toan. txt" For Input As 1cdr...
Ngày tải lên : 06/09/2012, 11:05
  • 53
  • 520
  • 0
Bài toán về quản lý trắc nghiệm (BC;10)

Bài toán về quản lý trắc nghiệm (BC;10)

... Sub mnutoan_Click() Frmtoan.Show frmchinh.Hide End Sub Private Sub mnuvan_Click() frmvanhoc.Show frmchinh.Hide THƯ VIỆN ĐIỆN TỬ TRỰC TUYẾN 8 End Sub Private Sub mnuve_Click() ... = 0 dem = 0 If Dir(App.Path & "\csdl \toan. txt") = "" Then tn = 1 Exit Sub End If Open App.Path & "\csdl \toan. txt" For Input As 1 cdr = 0 Do Until
Ngày tải lên : 27/04/2013, 22:42
  • 54
  • 356
  • 0