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

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

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

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


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
Выберите документ из архива для просмотра:
Квадрат тенглама.frm 4.28 КБ
квадрат тенглама.xls 29 КБ
Решения квадратных уравнений.doc 96 КБ

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

Разное

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

"


Общая информация

Номер материала: 374998



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

Специально для учителей, воспитателей и других работников системы образования действуют 60% скидки (только до конца зимы) при обучении на курсах профессиональной переподготовки (124 курса на выбор).

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Только до конца зимы! Скидка 60% для педагогов на ДИПЛОМЫ от Столичного учебного центра!

Курсы профессиональной переподготовки и повышения квалификации от 1 400 руб.
Для выбора курса воспользуйтесь удобным поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВЫ).

Московские документы для аттестации: KURSY.ORG


Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «3D Studio MAX»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»
Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.