Условные конструкции. Ветвление полное Ветвление неполное Условие Серия 1 Серия 2 данет Условие Серия 1 данет if … then… else… if … then… - презентация

1 Условные конструкции

2 Ветвление полное Ветвление неполное Условие Серия 1 Серия 2 данет Условие Серия 1 данет if … then… else… if … then…

3 Примеры задач: 1. Даны два угла треугольника (в градусах). Определить, существует ли такой треугольник.

4 2. Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом.

5 3. Составить программу, определяющую результат гадания на ромашке – «любит – не любит», взяв за исходное данное количество лепестков N.

6 4. Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот. Программа должна запрашивать, какой перевод нужно осуществить, и выполнять указанное действие.

7 Условие может быть сложным логическим выражением, состоящим из нескольких простых, соединенных связками OR, AND, NOT. Пример: If (a

8 Если после ключевых слов then, else выполняется серия операторов, то используются операторные скобки begin… end If a

9 1. Напишите программу Ввод B B>10 B:=2*B B:=B+1 да нет нач кон B

10 2 Ввод R1, R2, R3 K=1 R:= R=R1+R2+R3 да нет Ввод K Введите «1», если соединение параллельное и любое другое число, если соединение последовательное нач кон R

11 3 X Y -2 2 X X 2 +Y 2 =2 2 Y=-X X=-2 Определите условие попадания точки с координатами (x, y) в заштрихованную область

12

13 4. Напишите программу для создания игры «Угадай-ка». Компьютер «задумывает» случайное целое число от 1 до 10, а ученик пытается его отгадать. По ходу угадывания компьютер делает подсказки «много» или «мало».

14 нач Y – cлуч число Ввод X кон да нет Завершите блок-схему для этой задачи

15 нач Y – cлуч число Ввод X X=Y «Мало» X

16 program ugadaika; uses crt; var x, y: integer; label a1; begin clrscr; randomize; y:=random(11); a1: readln (x); if x=y then writeln ('ugadano') else begin if x

17 program ugadaika; uses crt; var x, y, k: integer; label a1; begin clrscr; randomize; k:=0; y:=random(11); a1: readln (x); k:=k+1; if x=y then writeln ('ugadano s ', k, ' popytki') else begin if x

18 Задачи: 1.Определить, является ли целое число N четным двузначным числом 2.Определить, является ли треугольник со сторонами a, b, c равнобедренным 3.Заданы размеры A, B прямоугольного отверстия и размеры X, Y, Z кирпича. Определить, пройдет ли кирпич через отверстие.

19 4. Определить правильность даты, введённой с клавиатуры (число – от 1 до 31, месяц – от 1 до 12). Если введены некорректные данные, то сообщить об этом. 5. Услуги телефонной сети оплачиваются по правилу: за разговоры до A мин в месяц оплачиваются B р., а разговоры сверх установленной нормы оплачиваются из расчета C р. в минуту. Написать программу, вычисляющую плату за пользование телефоном для введенного времени разговоров за месяц.

20 6. Решить квадратное уравнение вида ax 2 +bx+c=0

21 нач Ввод a, b, c D