Giúp giải quyết lỗi.

[ngocvuxxl]

Em biên soạn đoạn Scr như sau:

Code:

$a = msgbox(4," Chương trình Giải PT bậc 2 một ẩn", "Nhấn OK để tiếp tục")
if $a = 7 then
     MsgBox(4096, "AutoIt", "OK.  Bye!")
    Exit
EndIf

$hs1= InputBox( "Nhập các hệ số ", " Nhập hệ số A: ")
$hs2= InputBox( "Nhập các hệ số ", " Nhập hệ số B: ")
$hs3= InputBox( "Nhập các hệ số ", " Nhập hệ số C: ")
Global $delta,$x1,$x2,$x3

$delta = $hs2 * $hs2 - 4 * $hs1 * $hs3
$x1 = (- $hs2 - Sqrt( $delta ) ) / 2 / $hs1
$x2 = (- $hs2 + Sqrt( $delta ) ) / 2 / $hs1
$x3 =  - $hs2 / 2 / $hs1

if $delta <0 Then   
   MsgBox(4096, "Lỗi","Phương Trình Vô Nghiệm")
   
ElseIf $delta > 0 Then MsgBox(4096,"Giải PT...", "Hệ có hai nghiệm " &$x1 &"và" &$x2)
Else
    MsgBox(0,"Giải Pt...","PT có nghiệm kép" &$x3)

   
EndIf




nhưng trình lại báo lỗi.
[code:1:1fbf] C:\Documents and Settings\Trinh_Ngoc_Vu\Desktop\a.au3 (20) : ==> Illegal text at the end of statement (one statement per line).:
ElseIf $delta > 0 Then MsgBox(4096,"Gi?i PT...", "H? c

[Admin]

Bạn đừng sử dụng If Else nữa. Sử dụng select...case là được. Mình test thử rùi.
Chương trình như sau:

Code:


$a = msgbox(4," Chuong trình Gi?i PT b?c 2 m?t ?n", "Nh?n OK d? ti?p t?c")
if $a = 7 then
    MsgBox(4096, "AutoIt", "OK.  Bye!")
    Exit
EndIf

$hs1= InputBox( "Nh?p các h? s? ", " Nh?p h? s? A: ")
$hs2= InputBox( "Nh?p các h? s? ", " Nh?p h? s? B: ")
$hs3= InputBox( "Nh?p các h? s? ", " Nh?p h? s? C: ")
Global $delta,$x1,$x2,$x3

$delta = $hs2 * $hs2 - 4 * $hs1 * $hs3
$x1 = (- $hs2 - Sqrt( $delta ) ) / 2 / $hs1
$x2 = (- $hs2 + Sqrt( $delta ) ) / 2 / $hs1
$x3 =  - $hs2 / 2 / $hs1

Select
case $delta <0   
  MsgBox(4096, "L?i","Phuong Trình Vô Nghi?m")
 
Case $delta > 0
   MsgBox(4096,"Gi?i PT...", "H? có hai nghi?m " &$x1 &"và" &$x2)
Case $delta=0
    MsgBox(0,"Gi?i Pt...","PT có nghi?m kép" &$x3)

 
EndSelect



[ngocvuxxl]

mình vẫn không hiểu tạo sao lại không dùng hàm Esleif dc.

[Admin]

Chương trình sai ở câu lệnh ElseIf. Bạn chỉ cần xuống dòng như thế này:

Code:

ElseIf $delta > 0 Then
 MsgBox(4096,"Gi?i PT...", "H? có hai nghi?m " &$x1 &"và" &$x2)


là được. Mình test thử rùi
Cảm ơn bạn đã tham gia diễn đàn

[Sponsored content]