Что нового

Квадратное уравнение

lcd1232

Новичок
Сообщения
13
Репутация
0
Изучаю автоит 2-ой день. Столкнулся с проблемой: при вводе числа при b отрицательным не хочет указывать корни. Код программы. Еще хотел бы спросить, где найти туториалы по созданию GUI интерфейса?
Код:
$iA = InputBox("Квадратное уравнение", "Введите число при a", 1)
$iB = InputBox("Квадратное уравнение", "Введите число при b", 1)
$iC = InputBox("Квадратное уравнение", "Введите число при c", 1)
$iD = $iB^2-4*$iA*$iC
if $iD>0 then
	$x1=(-$iB+sqrt($iD))/2*$iA
	$x2=(-$iB-sqrt($iD))/2*$iA
	MsgBox(0, "Квадратное уравнение", "X1 = " & $x1 _
	&	@CRLF & "X2 = " & $x2)
else
	EndIf
if $iD=0 Then
		$x=-$iB/2*$iA
		msgBox(0, "Квадратное уравнение", "X = " & $x)
	Else
		EndIf
if $iD<0 Then
	MsgBox(0, "Erorr", "Решений нет")
	EndIf
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1,590
Репутация
341
Переменная B должна быть точно численного вида, иначе в квадрат Autoit возвести не сможет.
Код:
Number()

Да и вообще все переменные хорошо бы проверять.
 
Верх