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

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