- 09.02.2015
- 685
- 0
Выбранный для просмотра документ Решения квадратных уравнений.doc
Решения квадратных уравнений в 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
Рабочие листы
к вашим урокам
Скачать
Рабочие листы
к вашим урокам
Скачать
Решения квадратных уравнений в 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.
Информатика и ИКТ
Разное
"
6 665 143 материала в базе
Настоящий материал опубликован пользователем Ташходжаев Султанмурат Акмалович. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Курс профессиональной переподготовки
600 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.