Программирование ветвлений на Паскале. Оператор ветвления или условный оператор if then else if - " если ", then - " то ", else - " иначе " - презентация

1 Программирование ветвлений на Паскале

2 Оператор ветвления или условный оператор if then else if - " если ", then - " то ", else - " иначе "

3 Программирование полного ветвления алг БИД1 вещ А, В, С нач ввод А, В если А>В то С:=А иначе С:=В кв вывод С кон Program BID1; var А, В, С : real; begin readln(А, В); if A>B then C:=A else C:=B; writeln(С) end.

4 Программирование неполного ветвления алг БИД2 вещ А, В, С нач ввод А, В С:=А если В > А то С:=B кв вывод С кон Program BID2; var А, В, С : real; begin readln(А, В); С:=А; if B>A then C:=B; write(С) end.

5 Программирование вложенных ветвлений программа определения большего из трех чисел

6 Program BIT2; var А, В, С, D: real; begin readln( А, В, С ); if A>B then if A>C then D:=A else D:=B else if B>C then D:=B else D:=C; writeln(D) end.

7 Составим программу упорядочения значений двух переменных. алг СОРТИРОВКА вещ X, Y, С нач ввод X, Y если X>Y то С:=Х X:=Y Y:=C кв вывод X, Y кон Program SORTING; var X, Y, С : real; begin readln(X, Y) ; if X>Y then begin С : =X; X:=Y; Y:=C end; write(X,Y) end.

8 правило Паскаля : если на какой - то из ветвей оператора ветвления находится несколько последовательных операторов, то их нужно записывать между служебными словами begin и end. Конструкция такого вида : begin end называется составным оператором. Следовательно, в описанной выше общей форме ветвления и могут быть простыми ( один ) и составными операторами.

9 Логические операции программа определения большего числа из трех. Program BIT3; var А, В, С,D: real; begin readln( А, В, С ); if (A>=B) and (A>=C) then D:=A; if (B>=A) and (B>=C) then D:=B; if (C>=A) and (C>=B) then D:=C; writeln(D) end.

10 Сложные логические выражения Отношения, связываемые логическими операциями, заключаются в скобки. Например, требуется определить, есть ли среди чисел А, В, С хотя бы одно отрицательное. Эту задачу решает следующий оператор ветвления : if (A < 0)or(B < 0)or(C < 0) then write ( 'YES ') else write( 'NO '); Выражение, истинное для отрицательного числа, может быть записано еще и так : not ( A >= 0)

11 Написать программу : Вычислить периметр прямоугольника со сторонами A и B. Даны два числа A и B. Найти большее из них.