Для всех учителей из 37 347 образовательных учреждений по всей стране

Скидка до 75% на все 778 курсов

Выбрать курс
Получите деньги за публикацию своих
разработок в библиотеке «Инфоурок»
Добавить авторскую разработку
и получить бесплатное свидетельство о размещении материала на сайте infourok.ru
Инфоурок Информатика Другие методич. материалыРешения квадратных уравнений Microsoft Visual Basic, QBasic,Pascal, Excel

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

Выберите документ из архива для просмотра:
4.28 КБ Квадрат тенглама.frm
29 КБ квадрат тенглама.xls
96 КБ Решения квадратных уравнений.doc

Выбранный для просмотра документ Решения квадратных уравнений.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


Форма

hello_html_m23d2def4.png












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


hello_html_m1d1db493.png


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

hello_html_573b43dd.png

Курс повышения квалификации
Курс профессиональной переподготовки
Учитель информатики
Курс профессиональной переподготовки
Учитель математики и информатики
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Краткое описание документа:

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

Разное

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

"


Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

Репетиторы онлайн

✅ Подготовка к ЕГЭ/ГИА
✅ По школьным предметам

✅ На балансе занятий — 1

Подробнее