Решения квадратных уравнений в 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.

Информатика и ИКТ

• АҚПАРАТ КӨЛЕМІН АНЫҚТАУ
• ИНФОРМАТИКА ТҮСІНІГІ
• ПРАКТИКАЛЫҚ САБАҚТАРҒА АРНАЛҒАН ӘДІСТЕМЕЛІК ҰСЫНЫС
• Портфолио
• Портфолио
• WORD. Работа с таблицей (меню и панель инструментов).
• Табличный процессор (электронная таблица EXCEL)
• Microsoft Office (Word, Excel, Access, PowerPoint, Internet Explorer)

Разное

• Анкета
• Өз білімін жетілдіру жоспары:
• ОҚУШЫ ПОРТФОЛИОСЫН ҚАЛЫПТАСТЫРУ
• Портфолио
• Паспорт кабинета

"