Решения квадратных уравнений Microsoft Visual Basic, QBasic, Pascal, Excel

Решения квадратных уравнений в Microsoft Visual Basic

Private Sub Command1_Click()

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

d = b * b - 4 * a * c

Text4 = d

If d >= 0 Then

X1 = (-b + Sqr(d)) / (2 * a)

X2 = (-b - Sqr(d)) / (2 * a)

Text5 = X1

Text6 = X2

Else

Text7 = " Ечими йук"

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text5 = ""

Text6 = ""

Text7 = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Форма

Решения квадратных уравнений в Pascal

var a,b,c,d,x1,x2:real;

begin

readln(a);

readln(b);

readln(c);

d:=b*b-4*a*c;

if d>0 then

begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln(' d=',d);

writeln('x1=',x1,' x2=',x2)

end

else

writeln(' d=',d,' Ечими йук');

end.

Решения квадратных уравнений в Microsoft Excel

Решения квадратных уравнений в QBasic