kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Алгоритмическая структура ветвление

Нажмите, чтобы узнать подробности

Презентация по теме: Алгоритмическая структура ветвление. В презентации рассматриваются вопросы: понятие ветвления в алгоритмах, команды ветвления, построение логических выражений, реализация команд ветвления на языке Visual Basic.

Просмотр содержимого документа
«Алгоритмическая структура ветвление»

Алгоритмическая структура «ветвление» В алгоритмической структуре «ветвление» в зависимости от истинности или ложности условия выполняется одна или другая серия команд.

Алгоритмическая структура «ветвление»

В алгоритмической структуре «ветвление» в зависимости от истинности или ложности условия выполняется одна или другая серия команд.

Алгоритмическая структура «ветвление» Язык программирования Visual Basic Блок-схема If  Условие  Then Команда 1 Else Команда 2 End If

Алгоритмическая структура «ветвление»

Язык программирования

Visual Basic

Блок-схема

If Условие Then

Команда 1

Else

Команда 2

End If

Задача: Решить квадратное уравнение ax 2 +bx+c=0 (Разработать и реализовать проект) Этапы разработки проекта 1. Создание графического интерфейса проекта. 2. Установка значений свойств объектов графического интерфейса. 3. Создание и редактирование программного кода. 4. Сохранение проекта.

Задача:

Решить квадратное уравнение ax 2 +bx+c=0 (Разработать и реализовать проект)

Этапы разработки проекта

1. Создание графического интерфейса проекта.

2. Установка значений свойств объектов графического интерфейса.

3. Создание и редактирование программного кода.

4. Сохранение проекта.

1. Создание графического интерфейса проекта. Квадратное уравнение Пояснительный текст Label Графическое окно PictureBox ax 2 + bx + c = 0 c = b = a = Текстовое окно TextBox Командная кнопка CommandButton Вывод данных Label

1. Создание графического интерфейса проекта.

Квадратное уравнение

Пояснительный текст Label

Графическое окно PictureBox

ax 2 + bx + c = 0

c =

b =

a =

Текстовое окно TextBox

Командная кнопка CommandButton

Вывод данных Label

2. Установка значений свойств объектов графического интерфейса. Пояснительный текст c = Пояснительный текст а = Пояснительный текст b = Свойство Свойство Свойство Значение Значение Значение Caption Caption Caption a = c = b = Ввод данных для а Ввод данных для c Ввод данных для b Свойство Свойство Свойство Name Name Name Значение Значение Значение txtc Text txtb Text txta Text Командная кнопка Найти корни Вывод x 1 Вывод x 2 Свойство Свойство Свойство Name Name Name Значение Значение Значение Caption lblx 2 Caption lblx1 cmd Корень Caption Найти корни

2. Установка значений свойств объектов графического интерфейса.

Пояснительный текст c =

Пояснительный текст а =

Пояснительный текст b =

Свойство

Свойство

Свойство

Значение

Значение

Значение

Caption

Caption

Caption

a =

c =

b =

Ввод данных для а

Ввод данных для c

Ввод данных для b

Свойство

Свойство

Свойство

Name

Name

Name

Значение

Значение

Значение

txtc

Text

txtb

Text

txta

Text

Командная кнопка

Найти корни

Вывод x 1

Вывод x 2

Свойство

Свойство

Свойство

Name

Name

Name

Значение

Значение

Значение

Caption

lblx 2

Caption

lblx1

cmd Корень

Caption

Найти корни

3. Создание и редактирование программного кода. Ввод a, b, c D = b 2 - 4ac D ≥0 да нет Вывод x 1 , x 2

3. Создание и редактирование программного кода.

Ввод a, b, c

D = b 2 - 4ac

D ≥0

да

нет

Вывод x 1 , x 2

= 0 Then If D = 0 Then X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2 X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2 X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2 Else Else Else lblx1.Caption = “ нет корней" lblx1.Caption = “ нет корней" End If End If End Sub Private Sub cmdОчистить_Click() txta.Text = "" txtb.Text = "" txtc.Text = "" lblx1.Caption = "" lblx2.Caption = "" txta.Text = "" txtb.Text = "" txtc.Text = "" lblx1.Caption = "" lblx2.Caption = "" End Sub Программный код" width="640"

Private Sub cmdКорни_Click()

a = txta.Text

b = txtb.Text

c = txtc.Text

D = b ^ 2 - 4 * a * c

  • a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 - 4 * a * c
  • a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 - 4 * a * c

If D = 0 Then

  • If D = 0 Then

X1 = (-b + Sqr(D)) / (2 * a)

X2 = (-b + Sqr(D)) / (2 * a)

lblx1.Caption = X1

lblx2.Caption = X2

  • X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2
  • X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = X1 lblx2.Caption = X2

Else

  • Else
  • Else

lblx1.Caption = “ нет корней"

  • lblx1.Caption = “ нет корней"

End If

  • End If

End Sub

Private Sub cmdОчистить_Click()

txta.Text = ""

txtb.Text = ""

txtc.Text = ""

lblx1.Caption = ""

lblx2.Caption = ""

  • txta.Text = "" txtb.Text = "" txtc.Text = "" lblx1.Caption = "" lblx2.Caption = ""

End Sub

Программный код

= 0 Then If D = 0 Then X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, "######.###") lblx2.Caption = Format(X2, "######.###") lblx1.Caption = "X1= " + lblx1.Caption lblx2.Caption = "X2= " + lblx2.Caption X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, "######.###") lblx2.Caption = Format(X2, "######.###") lblx1.Caption = "X1= " + lblx1.Caption lblx2.Caption = "X2= " + lblx2.Caption X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, "######.###") lblx2.Caption = Format(X2, "######.###") lblx1.Caption = "X1= " + lblx1.Caption lblx2.Caption = "X2= " + lblx2.Caption Else Else lblx1.Caption = “ нет корней" lblx1.Caption = “ нет корней" End If End If End Sub Private Sub cmdОчистить_Click() txta.Text = "" txtb.Text = "" txtc.Text = "" lblx1.Caption = "" lblx2.Caption = "" txta.Text = "" txtb.Text = "" txtc.Text = "" lblx1.Caption = "" lblx2.Caption = "" End Sub Программный код" width="640"

Private Sub cmdКорни_Click()

a = txta.Text

b = txtb.Text

c = txtc.Text

D = b ^ 2 - 4 * a * c

  • a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 - 4 * a * c
  • a = txta.Text b = txtb.Text c = txtc.Text D = b ^ 2 - 4 * a * c

If D = 0 Then

  • If D = 0 Then

X1 = (-b + Sqr(D)) / (2 * a)

X2 = (-b + Sqr(D)) / (2 * a)

lblx1.Caption = Format(X1, "######.###")

lblx2.Caption = Format(X2, "######.###")

lblx1.Caption = "X1= " + lblx1.Caption

lblx2.Caption = "X2= " + lblx2.Caption

  • X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, "######.###") lblx2.Caption = Format(X2, "######.###") lblx1.Caption = "X1= " + lblx1.Caption lblx2.Caption = "X2= " + lblx2.Caption
  • X1 = (-b + Sqr(D)) / (2 * a) X2 = (-b + Sqr(D)) / (2 * a) lblx1.Caption = Format(X1, "######.###") lblx2.Caption = Format(X2, "######.###") lblx1.Caption = "X1= " + lblx1.Caption lblx2.Caption = "X2= " + lblx2.Caption

Else

  • Else

lblx1.Caption = “ нет корней"

  • lblx1.Caption = “ нет корней"

End If

  • End If

End Sub

Private Sub cmdОчистить_Click()

txta.Text = ""

txtb.Text = ""

txtc.Text = ""

lblx1.Caption = ""

lblx2.Caption = ""

  • txta.Text = "" txtb.Text = "" txtc.Text = "" lblx1.Caption = "" lblx2.Caption = ""

End Sub

Программный код


Получите в подарок сайт учителя

Предмет: Информатика

Категория: Презентации

Целевая аудитория: 9 класс

Скачать
Алгоритмическая структура ветвление

Автор: Мельников Эдуард Юрьевич

Дата: 13.11.2016

Номер свидетельства: 358528

Похожие файлы

object(ArrayObject)#852 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(142) "Работа с алгоритмической структурой ветвление в среде программирования Scratch "
    ["seo_title"] => string(88) "rabota-s-alghoritmichieskoi-strukturoi-vietvlieniie-v-sriedie-proghrammirovaniia-scratch"
    ["file_id"] => string(6) "106394"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1403005074"
  }
}
object(ArrayObject)#874 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(128) "Урок "Алгоритмическая структура «ветвление» на языке Visual Basic, 10 класс" "
    ["seo_title"] => string(80) "urok-alghoritmichieskaia-struktura-vietvlieniie-na-iazykie-visual-basic-10-klass"
    ["file_id"] => string(6) "230388"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1442129875"
  }
}
object(ArrayObject)#852 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(86) "Алгоритмические структуры "ветвление" и "выбор""
    ["seo_title"] => string(50) "alghoritmichieskiie_struktury_vietvlieniie_i_vybor"
    ["file_id"] => string(6) "406852"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(11) "presentacii"
    ["date"] => string(10) "1491384418"
  }
}
object(ArrayObject)#874 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(143) "Тест, разработанный в программе MyTest. "Основные типы алгоритмических структур" "
    ["seo_title"] => string(84) "tiest-razrabotannyi-v-proghrammie-mytest-osnovnyie-tipy-alghoritmichieskikh-struktur"
    ["file_id"] => string(6) "159248"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "testi"
    ["date"] => string(10) "1421861325"
  }
}
object(ArrayObject)#852 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(190) "Технологическая карта урока информатики и ИКТ в 9 классе по учебнику Н.Д.Угриновича «Информатика и ИКТ» "
    ["seo_title"] => string(112) "tiekhnologhichieskaia-karta-uroka-informatiki-i-ikt-v-9-klassie-po-uchiebniku-n-d-ughrinovicha-informatika-i-ikt"
    ["file_id"] => string(6) "217600"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1433404167"
  }
}

Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства