Рабочие листы
к вашим урокам
Скачать
1 слайд
РАЗВЕТВЛЯЮЩИЕСЯ АЛГОРИТМЫ
Основы языка программирования Visual Вasic
2 слайд
РАЗВЕТВЛЯЮЩИЙСЯ АЛГОРИТМ ПРЕДПОЛАГАЕТ ВЫБОР ДЕЙСТВИЯ В ЗАВИСИМОСТИ ОТ ВЫПОЛНЕНИЯ ПОСТАВЛЕННОГО УСЛОВИЯ
Урок № 4
3 слайд
Условие – это логическая операция, ответом которой являются слова ИСТИНА (да) или ЛОЖЬ (нет)
(СРАВНЕНИЕ)
Знаки для записи условий: > , <, =, =>,=<,< >
Для записи сложных условий используются логические связки
OR (ИЛИ), AND (И), NOT (НЕ).
4 слайд
КОМАНДА ВЕТВЛЕНИЯ ИМЕЕТ ПОЛНУЮ (1) ИЛИ СОКРАЩЕННУЮ ФОРМУ(2)-ОБХОД
Серия 1
1
Условие
Серия 2
Да
Нет
Да
Нет
Условие
Серия 1
2
5 слайд
В алгоритмическом языке:
ПОЛНАЯ ФОРМА
ЕСЛИ условие
ТО серия1
ИНАЧЕ серия2
ОБХОД
ЕСЛИ условие
ТО серия
В Бейсике оператор условного ветвления записывается:
If <условие>Then < серия1>Else < серия2 >
Например:
If а<> b Then Print “да” Else Print “нет”
6 слайд
НАЧАЛО
ВВОД A,B
КОНЕЦ
ВЫВОД M
A>B
M:=A
M:=B
Да
Нет
Какую задачу решает данный алгоритм?
7 слайд
Практическое задание.
Задачу «Знакомство» изменить так, чтобы вместо возраста человека выводился комментарий о его возрастной принадлежности
8 слайд
Dim 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
9 слайд
Повторение изученного
1. Когда используют разветвляющиеся алгоритмы?
Урок № 5
2. Как записать оператор условного ветвления?
If <условие> Then <серия1> Else <серия2>
10 слайд
Дано число. Вывести это число и определить, является оно положительным или отрицательным, целым или не целым
В случае, если число целое, определить, чётное оно или нечётное, однозначное или многозначное
Практическое задание
11 слайд
1 условие (положительное или отрицательное)
2 условие (целое или не целое)
3 условие (чётное или нечётное)
X>0
Int(X)=x
X/2=X\2
4 Условие (однозначное или многозначное)
САМОСТОЯТЕЛЬНО
X mod 2=0
12 слайд
Какой тип данных нужен для переменной под число?
Dim x As single
13 слайд
начало
конец
Ввод числа Х
Вывод «Анализ выполнен»
Х>0
Вывод «Отриц»
Вывод « Полож»
Int(Х)=x
Вывод «Не цел»
Вывод « Целое»
x/2=x\2
Вывод «Не чётное»
Вывод « Чётное»
Х mod 2=0
: 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
Практическое задание
15 слайд
Если треугольник существует, определить:
а) является ли он прямоугольным?
А=В=С
А=В или В=С или С=А
Б) Является ли он равносторонним?
в) является ли он равнобедренным?
2 условие (признак прямоугольного треугольника)
a2+b2=c2 или b2+c2=a2 или a2+c2=b2
(a*а+b*b=c*c)
16 слайд
начало
конец
Ввод чисел a,b,c
Вывод «Анализ выполнен»
Услов1
Вывод «несущ.»
Вывод «Существ.»
усл2
Вывод «Не прямоуг»
Вывод «прямоуг»
усл3
Вывод «Не равнобсторон»
Вывод
« равносторон»
: Goto 1
1
: 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
Рабочие листы
к вашим урокам
Скачать
6 626 391 материал в базе
Настоящий материал опубликован пользователем Пивоварова Елена Александровна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.