Знание - сокровище, которое повсюду следует за тем, кто им обладает. (китайская пословица )

Для организации выбора действий в языке Паскаль имеются две алгоритмические конструкции: ВЕТВЛЕНИЕ – условный оператор IF; ВЫБОР – условный оператор CASE. 2

Программирование ветвлений на Паскале Оператор ветвления IF 3

В языке Паскаль имеется оператор ветвления. Другое его название условный оператор. 4

Алгоритмы с ветвящейся структурой Ветвление является структурной командой. Его исполнение происходит в несколько шагов: проверка условия (выполнение логического выражения) и выполнение команд на одной из ветвей «да» или «нет». Алгоритмы с ветвящейся структурой могут быть с полным ветвлением, неполным ветвлением, с последовательным и вложенным ветвлениями. 5

Полное ветвление алг БИД1 вещ А, В, С нач ввод А, В если А>B то C: A иначе C: B кв вывод С кон БИД – «Больше из двух» начало ввод А, В конец вывод С С := ВС := А A > В джанет 6

Неполное ветвление алг БИД2 вещ А, В, С нач ввод А, В C: A если B>A то C: B вывод С кон БИД – «Больше из двух» начало ввод А, В конец вывод С С := В С := А B > A нет да 7

Последовательное ветвление алг БИТ1 вещ А, В, С, D нач ввод А, В, C если A>B то D: A иначе D: B кв если С>D то D: C кв вывод D кон БИТ – «Больше из трех» начало ввод А, В, С конец вывод D D := ВD := А A > В C > D D := C нет да 8

Вложенное ветвление начало ввод А, В, С конец вывод D D := В A > В D := А A > C D := C B > C D := C нет да 9

Оператор ветвления IF в общем виде Оператор IF предназначен для выбора к исполнению одного из возможных действий (операторов) в зависимости от некоторого условия. IF THEN ; (неполное ветвление) IF THEN ELSE ; (полное ветвление) Здесь if «если», then «то», else «иначе». 10

Пример 1 Нахождение наибольшего из двух заданных чисел Program max2; var A,B: integer; Begin writeln(' НАХОЖДЕНИЕ МАКСИМАЛЬНОГО ИЗ ДВУХ ЦЕЛЫХ ЧИСЕЛ ':50); writeln; write('Первое число = '); readln(A); write('Второе число = '); readln(B); write('Максимальное из двух чисел '); if A>B then writeln(A) else writeln(B); end. 11

12 Выполнение условного оператора начинается с вычисления значения логического выражения, записанного в условии.

Оператор ветвления на Паскале Формат полного оператора ветвления следующий: if then else 13

Условия записываются, как правило, в виде логических выражений. Простой формой логического выражения является операция отношения. В Паскале допускаются все виды отношений: > - больше; < - меньше; = - равно; <= - меньше или равно; >= - больше или равно; <> - не равно. 14

15 Условие – логическое выражение Простое равенство или неравенство Сложное составляется из простых с помощью логических операций Операции отношения: =, <>, >, =, <=, div, mod Логические операции: not and or

Сложные логические выражения Если идентификация проводится по одному признаку для нескольких элементов, то несколько условий связываются служебным словом "or", например: If (a > 90) or (b > 90) or (c > 90) then writeln ( 'Треугольник - тупоугольный' ); 16

Сложные логические выражения Если идентификация проводится по нескольким признакам, число которых равно числу элементов, то несколько условий связываются служебным словом "and", например: If (a < 90) and (b < 90) and (c < 90) then writeln('Треугольник - остроугольный'); 17

Сложные логические выражения (вложенный условный оператор) Если имя объекта составное, то добавляются признаки для идентификации второй части имени и применяются вложенные условные операторы, например, для равнобедренного треугольника: If (a < 90) and (b < 90) and (c < 90) then If (a=b) or (b=c) or (a=c) then writeln('Треугольник - остроугольный и равнобедренный') else writeln('Треугольник - остроугольный'); 18

Использованы три последовательных неполных ветвления. Условия ветвлений представляют собой сложные логические выражения, включающие логическую операцию AND (и). ВНИМАНИЕ! Отношения, связываемые логическими операциями заключаются в скобки В Паскале присутствуют три основные логические операции: AND –И (конъюнкция); OR – ИЛИ (дизъюнкция); NOT – НЕ (отрицание). Пример 2 Нахождение наибольшего из трех заданных чисел 19

Program max3; var A,B,C,M :integer; begin writeln(' НАХОЖДЕНИЕ МАКСИМАЛЬНОГО ИЗ ТРЕХ ЦЕЛЫХ ЧИСЕЛ ':50); writeln; write('Первое число = '); readln(A); write('Второе число = '); readln(B); write('Третье число = '); readln(C); if (A>=B) and (A>=C) then M:=A; If (B>=A) and (B>=C) then M:=B; if (C>=A) and (C>=B) then M:=C; writeln('Максимальное из трех чисел ',M); end. Пример 2 Нахождение наибольшего из трех заданных чисел 20

Та же задача с вложенными ветвлениями 21

22 Вложенные условные операторы IF условие 1 THEN Оператор 1 ELSE IF условие 2 THEN Оператор 2; Надо помнить!!! Условный оператор можно вставить: 1. После слова else ; 2. После слова then ;

23

24 Алгоритмы с ветвлением IF условие THEN оператор Простое или составное логическое выражение Логическая переменная Простой или составной

25 Пример 4 (оператор ветвления с простым условием) Блок-схема Язык Паскаль Var a, b, y: Real; Begin Write(a=);Readln(a); Write(b=);Readln(b); If a > b Then y := Sqrt(a) + b Else y := a + Sqr(b); Write(y=, y:6:2); Readln End. Да Нет A>B 2 BAY Вывод Y

26 Составной оператор Представляет собой последовательность операторов, выполняемых в том порядке, в котором они записаны в программе. Его схема: Begin Оператор_1; Оператор_2; … Оператор_N End;

27 Пример 3 (составной оператор) Вычислить значение функции Y=sinX для положительных аргументов Блок-схема Язык Паскаль Var x, y: Real; Begin Write(x=);Readln(x); If x > 0 Then Begin y := Sin(x); Write(y=, y:4:2); End; End. Вывод y y:= sin(x) x > 0

28 Пример 5 Решить квадратное уравнение с заданными коэффициентами А, В, С

29 Одно полное ветвление с составным оператором и три вложенных неполных ветвления Var a, b, c, x1, x2, d, x: Real; Begin Write(a=);Readln(a); Write(b=);Readln(b); Write(c=); Readln(c); If a = 0 Then Write(Уравнение не является квадратным) Else Begin d := b*b - 4 * a * c; If d > 0 Then Begin x1 := (-b - Sqrt(d)) / (2 * a); x2 := (-b + Sqrt(d)) / (2 * a); Write(х 1=, x1:5:2, х 2=, x2:5:2); End; If d = 0 Then Begin x := -b / (2 * a); Write(х=, x); End; if d < 0 Then Write(Решений нет); End; End.

30 Пример 6 Определить, является ли введенное число – четным?

31 Var a : Integer; Begin Write(a=); Readln(a); If a Mod 2 = 0 Then Writeln(число четное) Else Writeln(число нечетное); Readln End.

32 Определить, является ли введенное число – трехзначным? Пример 7

33 Var a: Integer; Begin Write(a=); Readln(a); If (a >= 100) And (a <= 999) Then Write(число трехзначное) Else Write(число трехзначное); End.

джанет Не совсем 1Я понял предназначение оператора ветвления If 2Я понял, что такое неполное ветвление 3Я понял, что такое полное ветвление 4Я понял, что является простой формой логического выражения 5Я понял, что является сложной формой логического выражения 6Я успешно справился с практическим заданием 2 или я понял, как составить программу к данному заданию 2 7Я успешно справился с практическим заданием 3 или я понял, как составить программу к данному заданию 3 8Я успешно справился с практическим заданием 4 или я понял, как составить программу к данному заданию 4 ВЫВОд ВЫВОд Данная тема оказалась для меня сложной Мне понравилось составлять и запускать программы У меня получилось составлять программы Мне надо дополнительно поработать с теорией Мне надо дополнительно поработать с практикой Мне потребуется помощь учителя Мне достаточно помощи одноклассника