[code] Tìm giá trị nhỏ nhất và vị trí của nó trong dãy

Do
 $n=InputBox("Nhập số phần tử","n =")
Until $n<=100
Dim $M[100]
For $i=1 To $n
 $M[$i]=InputBox("Nhập","M"&$i&" =")
Next
$i=1
$Min=$M[$i]
$vt=$i
Do
 $i+=1
 If $Min>$M[$i] Then
  $Min=$M[$i]
  $vt=$i
 EndIf
Until $i=$n
MsgBox(0,"Giá trị nhỏ nhất là ",$Min)
MsgBox(0,"Vị trí số",$i)

[code] Tìm vị trí 1 số trong 1 dãy đã cho

Do
 $n=InputBox("Nhập số phần tử","n=")
Until $n>0 And $n<1001
Dim $a[1000], $j=0
For $i=1 To $n
 $a[$i]=InputBox("Thông báo","a"&$i&"=")
Next
$m=InputBox("Nhập số cần tìm","m=")
For $i=1 To $n
 If $a[$i]==$m Then
  MsgBox(64,"","Số cần tìm có vị trí số "&$i)
  $j=1
 EndIf
Next
If $j=0 Then
 MsgBox(0,"Thông báo","Không có số "&$m&" trong dãy.")
EndIf

[code] Hiển thị thông báo

SplashTextOn("AutoIT Việt Nam", "Chúc bạn có một ngày vui vẻ với AutoItVn.blogspot.com", 400, 200, -1, -1, 1+16+4, "Tahoma", 20)
Sleep(1000)

[code] Tính giai thừa

Với While ... WEnd

$n=-1
While $n<0
 $n=InputBox("Nhập số cần tính giai thừa","n=")
 If $n>20 Then
  MsgBox(64,"Lỗi","Bạn nhập số lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
 EndIf
WEnd
$i=1
$j=1
While $i<>$n+1
 $j=$i*$j
 $i+=1
WEnd
MsgBox(0,"Kết quả",$n&'!='&$j)

Với Do ... Until

$n=0
Do
 $n=InputBox("Nhập số cần tính giai thừa","n=")
 If $n>20 Then
  MsgBox(64,"Lỗi","Bạn nhập số lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
 EndIf
Until $n>=0
If $n=0 Then
 MsgBox(0,"Kết quả",$n&'!='&"1")
 Exit
EndIf
$i=0
$j=1
Do
 $i+=1
 $j=$i*$j
Until $i=$n
MsgBox(0,"Kết quả",$n&'!='&$j)

Với For ... To ... Next

$n=InputBox("Nhập số cần tính giai thừa","n=")
If $n>20 Or $n<0 Then
 MsgBox(64,"Lỗi","Bạn nhập số âm hoặc lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
EndIf
If $n=0 Then
 MsgBox(0,"Kết quả",$n&'!='&"1")
 Exit
EndIf
$i=0
$j=1
For $i==1 To $n
 $i+=1
 $j=$i*$j
Next
MsgBox(0,"Kết quả",$n&'!='&$j)

[code] Tìm BCNN của 2 số nguyên dương

$a=0
$b=0
While $a<=0
    $a=InputBox("Nhập","a=")
WEnd
While $b<=0
    $b=InputBox("Nhập","b=")
WEnd
$c=$a*$b
While $c<>0
    If Mod($c,$a)==0 And Mod($c,$b)=0 Then
        $d=$c
    EndIf
    $c-=1
WEnd
MsgBox(0,"Thông báo","BCNN="&$d)

[code] Kiểm tra là số nguyên tố không?

$n=0
While $n<=1
 $n=InputBox("Nhập","n=")
WEnd
$m=2
$ds=0
While $n>$m And $ds=0
 If Mod($n,$m) =0 Then
  $ds=1
 EndIf
 $m+=1
WEnd
If $ds=1 Then
 MsgBox(0,$n,"là hợp số")
EndIf
If $ds=0 Then
 MsgBox(0,$n,"là số nguyên tố")
EndIf

[code] Kiểm tra có chia hết cho một số

Ví dụ: Kiểm tra có chia hết cho 7 không?

$n=InputBox("","N=",0," M")
$a=Mod($n,7)
If Not $a=0 Then MsgBox(0,$n,"không chia hết cho 7") EndIf
If $a=0 Then MsgBox(0,$n,"chia hết cho 7") EndIf

Để kiểm tra có chia hết cho số khác thì bạn chỉ cần thay số 7 ở chương trình trên bằng số bạn cần kiểm tra.

[code] Kiểm tra tính chẵn lẻ của số nguyên

$n=InputBox("","N=",0," M")
$a=Mod($n,2)
If $a=1 Or $a=-1 Then MsgBox(0,$n,"là số lẻ") EndIf
If $a=0 Then MsgBox(0,$n,"là số chẵn") EndIf

[code] Tìm ƯCLN của 2 số

$a=0
$b=0
$c=1
While $a<=0
 $a=InputBox("Nhập cạnh","a=",""," M")
WEnd
While $b<=0
 $b=InputBox("Nhập cạnh","b=",""," M")
WEnd
If $a>$b Then
 $tg=$a
 $a=$b
 $b=$tg
EndIf
While Not $c=0
$c=Mod($a,$b)
$a=$b
$b=$c
If $c=0 Then MsgBox(0,"ƯCLN($a,$b)",$a) EndIf
WEnd

[Code] Giải phương trình bậc 2

$a=0
While $a=0
 $a=InputBox("Nhập","a=",""," M")
WEnd
$b=InputBox("Nhập","b=",""," M")
$c=InputBox("Nhập","c=",""," M")
$d=$b*$b-4*$a*$c
If $d<0 Then MsgBox(0,"Thông báo","Phương trình vô nghiệm") EndIf
If $d=0 Then MsgBox(0,"Phương trình có nghiệm kép x=",-$b/(2*$a)) EndIf
$x1=(-$b+Sqrt($d))/(2*$a)
$x2=(-$b-Sqrt($d))/(2*$a)
If $d>0 Then
 MsgBox(0,"x1=",$x1)
 MsgBox(0,"x2=",$x2)
 EndIf