1888010
столько раз учителя, ученики и родители
посетили официальный сайт проекта «Инфоурок»
за прошедшие 24 часа
Добавить материал и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015

Скидка 0%

112 курсов профессиональной переподготовки от 3540 руб.

268 курсов повышения квалификации от 840 руб.

МОСКОВСКИЕ ДОКУМЕНТЫ ДЛЯ АТТЕСТАЦИИ

Лицензия на осуществление образовательной деятельности №038767 выдана 26 сентября 2017 г. Департаменотом образования города Москвы

Инфоурок Информатика Другие методич. материалыРешения квадратных уравнений Microsoft Visual Basic, QBasic,Pascal, Excel

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

Международный конкурс

Идёт приём заявок

Подать заявку

Для учеников 1-11 классов и дошкольников

16 предметов

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

Разное

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

"


Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.
17 курсов по пожарно-техническому минимуму
Обучение от 2 дней
дистанционно
Удостоверение
Программы актуальны на 2019 г., согласованы с МЧС РФ
2 500 руб. до 1 500 руб.
Подробнее