Программирование разветвляющихся алгоритмов
Ветвления в языке QBasic. Полная форма ветвления если (условие) то серия команд 1 иначе серия команд 2 все IF (условие) THEN серия команд 1 ELSE серия команд 2
Пример. n Найти из двух чисел наименьшее. REM ‘нахождение наименьшего INPUT “введите два числа”; A, B IF A<B THEN C=A ELSE C= B PRINT “наименьшее число равно”; C END
Неполная форма ветвления если (условие) то серия команд 1 все IF (условие) THEN серия команд 1
Пример. n Вывести на экран число, если оно меньше 0. REM ‘нахождение отрицательного числа INPUT “введите число”; A IF A<0 THEN PRINT “отрицательное число равно”; A END
Самостоятельная работа n Найти квадрат наибольшего из двух чисел a и b. Вывести наибольшее число и его квадрат. n Определить, является ли число чётным или нечётным. Вывести результат. n Найти корни квадратного уравнения ax 2+bx+c=0. Принять во внимание, что любой из коэффициентов может быть равен нулю. Вывести результат или сообщение об ошибке. n Упорядочить 3 введённых числа по возрастанию и убыванию. Вывести результат.
Найти квадрат наибольшего из двух чисел a и b. Вывести наибольшее число и его квадрат. Начало а, b Нет a>b Да S=b^2 S=a^2 b, S a, S Конец
Определить, является ли число чётным или нечётным. Вывести результат. Начало а K=a. MOD 2 Нет k=1 Да Число нечетное Число четное Конец
Найти корни квадратного уравнения ax 2+bx+c=0. Принять во внимание, что любой из коэффициентов может быть равен нулю. Вывести результат или сообщение об ошибке. Начало а, b, c D=b^2 -4 ac Нет Ошибк а D>0 D=0 Да x 1=(-b. SQR(D))/2 a x 2=(b+SQR(D))/2 a x 1, x 2 Конец Да x=-b/2*a x
Для самостоятельного алгоритма в блок схеме. построения Упорядочить 3 введённых числа по возрастанию и убыванию. Вывести результат
Скачать презентацию Программирование разветвляющихся алгоритмов Ветвления в языке QBasic
Разветвленный алгоритм.ppt