Условный оператор (ветвление) (урок 5). Ветвление Если то иначе кон If then begin end else begin end; - презентация

1 Условный оператор (ветвление) (урок 5)

2 Ветвление Если то иначе кон If then begin end else begin end;

3 Программирование ветвлений Задача 1. Найти наибольшее значение среди двух величин, вводимых с клавиатуры. Program Bid1; Var a,b,max : real; Begin write(a=); readln(a); write(b=); readln(b); If a > b then max := a else max := b; writeln(max=,max:7:2); readln end. начало ввод а,в,с a>b max := amax := b вывод max конец Да Нет

4 Программирование ветвлений Задача 2. Упорядочить значения двух переменных по возрастанию. Program Sort2; Var X,Y,C : integer; Begin readln(X,Y); If X > Y then begin C := X; X := Y; Y := C end; writeln(X,Y); readln end. начало ввод X, Y X>Y C := X X := Y Y := C вывод X, Y конец Да

5 Программирование ветвлений Задача 3. Найти наибольшее значение среди трех величин, вводимых с клавиатуры. Вариант 1 Вариант 2 начало ввод а,в,с a>b max := amax := b c>max max := c вывод max конец начало ввод а,в,с a>b вывод max конец a>с max := amax := c b>c max := bmax := c Да

6 Программирование ветвлений Program BIT1; Var a,b,c,max : real; Begin readln(a,b,c); If a > b then max := a else max := b; If c > max then max := c; writeln(max=,max:7:2); readln end. Задача 3. Найти наибольшее значение среди трех величин, вводимых с клавиатуры. Вариант 1 Program BIT2; Var a,b,c,max : real; Begin readln(a,b,c); If a > b then If a > c then max := a else max := c else If b > c then max := b else max := c writeln(max=,max:7:2); readln end. Вариант 2

7 Логические выражения в Паскале Program BIT3; Var a,b,c,max : real; Begin readln(a,b,c); If (a >= b) and (a >= c) then max := a; If (b >= a) and (b >= c) then max := b; If (c >= a) and (c >= b) then max := c; writeln(max=,max:7:2); readln end. Задача 3. Найти наибольшее значение среди трех величин, вводимых с клавиатуры. Вариант 3

8 Решение задач Program z4; Var a,b: integer; x : real; Begin write(a=); readln(a); write(b=); readln(b); If (a = 0) and (b=0) then writeln(X – любое число) else if (a = 0) and (b0) then writeln(уравнение смысла не имеет else begin x=-b/a; writeln(x=,x:7:2) end; end. Задача 4. Решить уравнение вида : ax+b=0 Анализ решения задачи: a, b – целые числа, вводятся с клавиатуры, х – корень уравнения, выводится на монитор. Если a=0 и b=0, то вывод: «X – любое число», если a=0 и b0, то вывод «уравнение смысла не имеет», иначе x=-b/a

9 Домашнее задание Задачник 1 § Задача 5. Дано трёхзначное число. Определить, является ли оно палиндромом (палиндром – число, которое читается одинаково слева на право и справа на лево). Задача 6. Упорядочить значения трех целых чисел, вводимых с клавиатуры, по возрастанию (a