Презентация, доклад на тему Основы языка Visual Basic - разветвляющиеся алгоритмы

Содержание

РАЗВЕТВЛЯЮЩИЙСЯ АЛГОРИТМ ПРЕДПОЛАГАЕТ ВЫБОР ДЕЙСТВИЯ В ЗАВИСИМОСТИ ОТ ВЫПОЛНЕНИЯ ПОСТАВЛЕННОГО УСЛОВИЯУрок № 4

Слайд 1РАЗВЕТВЛЯЮЩИЕСЯ АЛГОРИТМЫ
Основы языка программирования Visual Вasic

РАЗВЕТВЛЯЮЩИЕСЯ АЛГОРИТМЫОсновы языка программирования Visual Вasic

Слайд 2РАЗВЕТВЛЯЮЩИЙСЯ АЛГОРИТМ ПРЕДПОЛАГАЕТ ВЫБОР ДЕЙСТВИЯ В ЗАВИСИМОСТИ ОТ ВЫПОЛНЕНИЯ ПОСТАВЛЕННОГО

УСЛОВИЯ

Урок № 4

РАЗВЕТВЛЯЮЩИЙСЯ  АЛГОРИТМ ПРЕДПОЛАГАЕТ ВЫБОР ДЕЙСТВИЯ В ЗАВИСИМОСТИ ОТ ВЫПОЛНЕНИЯ ПОСТАВЛЕННОГО УСЛОВИЯУрок № 4

Слайд 3Условие – это логическая операция, ответом которой являются слова ИСТИНА (да)

или ЛОЖЬ (нет)

(СРАВНЕНИЕ)

Знаки для записи условий: > , <, =, =>,=<,< >

Для записи сложных условий используются логические связки
OR (ИЛИ), AND (И), NOT (НЕ).

Условие – это логическая операция, ответом которой являются слова ИСТИНА (да) или ЛОЖЬ (нет)(СРАВНЕНИЕ)Знаки для записи условий:

Слайд 4 КОМАНДА ВЕТВЛЕНИЯ ИМЕЕТ ПОЛНУЮ (1) ИЛИ СОКРАЩЕННУЮ ФОРМУ(2)-ОБХОД
Серия 1
1
2

КОМАНДА ВЕТВЛЕНИЯ ИМЕЕТ ПОЛНУЮ (1) ИЛИ СОКРАЩЕННУЮ ФОРМУ(2)-ОБХОДСерия 112

Слайд 5В алгоритмическом языке:
ПОЛНАЯ ФОРМА ЕСЛИ условие
ТО серия1
ИНАЧЕ серия2
ОБХОД ЕСЛИ условие
ТО

серия

В Бейсике оператор условного ветвления записывается:
If <условие>Then < серия1>Else < серия2 >
Например:


If а<> b Then Print “да” Else Print “нет”

В алгоритмическом языке:ПОЛНАЯ ФОРМА ЕСЛИ  условиеТО серия1 ИНАЧЕ серия2 ОБХОД ЕСЛИ условиеТО серияВ Бейсике оператор условного

Слайд 6НАЧАЛО
ВВОД A,B
КОНЕЦ
ВЫВОД M
A>B
M:=A
M:=B
Да
Нет
Какую задачу решает данный алгоритм?

НАЧАЛОВВОД A,BКОНЕЦВЫВОД MA>BM:=AM:=BДаНетКакую задачу решает данный алгоритм?

Слайд 7Практическое задание.
Задачу «Знакомство» изменить так, чтобы вместо возраста человека выводился комментарий

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

Слайд 8Dim nm As String, gd, vz As Integer Private Sub Command1_Click() nm =

InputBox("Здравствуй! Как тебя зовут?", "Знакомство") Print "Привет, "; nm; "!" gd = InputBox("В каком году ты родился?", "Знакомство") vz = 2013 - Val(gd) Print "Тебе, "; nm; ", "; vz; "лет"

If vz<10 Then Print “Да ты, “ nm “, ещё ребёнок!”
If (vz>9) and (vz<18) Then Print “Ты, “nm “, уже подросток!” ……………….

End Sub

Dim nm As String, gd, vz As Integer Private Sub Command1_Click() nm = InputBox(

Слайд 9Повторение изученного
1. Когда используют разветвляющиеся алгоритмы?
Урок № 5
2. Как записать оператор

условного ветвления?

If <условие> Then <серия1> Else <серия2>

Повторение изученного1. Когда используют разветвляющиеся алгоритмы?Урок № 52. Как записать оператор условного ветвления?If Then Else

Слайд 10Дано число. Вывести это число и определить, является оно положительным или

отрицательным, целым или не целым

В случае, если число целое, определить, чётное оно или нечётное, однозначное или многозначное

Практическое задание

Дано число. Вывести это число и определить, является оно положительным или отрицательным, целым или не целымВ случае,

Слайд 111 условие (положительное или отрицательное)
2 условие (целое или не целое)
3 условие

(чётное или нечётное)

X>0

Int(X)=x

X/2=X\2


4 Условие (однозначное или многозначное)

САМОСТОЯТЕЛЬНО

X mod 2=0

1 условие (положительное или отрицательное)2 условие (целое или не целое)3 условие (чётное или нечётное)X>0Int(X)=xX/2=X\24 Условие (однозначное или

Слайд 12Какой тип данных нужен для переменной под число?
Dim x As single

Какой тип данных нужен для переменной под число?Dim x As single

Слайд 13начало
конец
Ввод числа Х
Вывод «Анализ выполнен»
: Goto 1
1
Private Sub Command1_Click()

End Sub
х =

Val(InputBox(“Введите любое число"))

If X>0 Then Print “Положител” Else Print “Отрицат”

Print “Анализ выполнен”


Слайд 14Даны 3 числа. Может ли существовать треугольник с такими сторонами?

1 условие

(существование треугольника)

a+b>c и a+c>b и b+c> a

a

b

c

(a+b>c) and (a+c>b) and (b+c> a)

Урок № 6

Практическое задание

Даны 3 числа. Может ли существовать треугольник с такими сторонами?1 условие (существование треугольника)a+b>c и a+c>b и b+c>

Слайд 15Если треугольник существует, определить: а) является ли он прямоугольным?
А=В=С
А=В или В=С

или С=А

Б) Является ли он равносторонним?

в) является ли он равнобедренным?

2 условие (признак прямоугольного треугольника)

a2+b2=c2 или b2+c2=a2 или a2+c2=b2

(a*а+b*b=c*c)

Если треугольник существует, определить: а) является ли он прямоугольным?  А=В=СА=В или В=С или С=АБ) Является ли

Слайд 16начало
конец
Ввод чисел a,b,c
Вывод «Анализ выполнен»
: Goto 1
1
: Goto 1

началоконецВвод чисел a,b,cВывод «Анализ выполнен»: Goto 11: Goto 1

Слайд 17 Private Sub Command1_Click() a = Val(InputBox(“ Введите 1 сторону”)) b =

…….. c = ……… If (a+b>c) and (a+c>b) and (b+c> a) Then Print “треугольник существует" Else Print “треугольник не существует ": GoTo 1 ………………………………………

1 Print “Анализ закончен”
End Sub

Dim a, b, c As single

Private Sub Command1_Click()  a = Val(InputBox(“ Введите 1 сторону”))  b = ……..  c

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть