Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015

Опубликуйте свой материал в официальном Печатном сборнике методических разработок проекта «Инфоурок»

(с присвоением ISBN)

Выберите любой материал на Вашем учительском сайте или загрузите новый

Оформите заявку на публикацию в сборник(займет не более 3 минут)

+

Получите свой экземпляр сборника и свидетельство о публикации в нем

Инфоурок / Информатика / Другие методич. материалы / Решения квадратных уравнений Microsoft Visual Basic, QBasic,Pascal, Excel
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 24 мая.

Подать заявку на курс
  • Информатика

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

Разное

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

"


Автор
Дата добавления 09.02.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров521
Номер материала 374998
Получить свидетельство о публикации

Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх