Презентация на тему «Знание - сокровище, которое повсюду следует за тем, кто им обладает»

Знание - сокровище, которое повсюду следует за тем, кто им обладает

(китайская пословица)

Для организации выбора действий в языке Паскаль имеются две

алгоритмические конструкции: ВЕТВЛЕНИЕ – условный оператор IF; ВЫБОР – условный оператор CASE.

2

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

Оператор ветвления IF

3

В языке Паскаль имеется оператор ветвления

Другое его название — условный оператор.

4

Алгоритмы с ветвящейся структурой

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

5

Полное ветвление

алг БИД1 вещ А, В, С нач ввод А, В если А>B то C:?A иначе C:?B кв вывод С кон

БИД – «Больше из двух»

6

Неполное ветвление

алг БИД2 вещ А, В, С нач ввод А, В C:?A если B>A то C:?B вывод С кон

Нет

Да

БИД – «Больше из двух»

7

Последовательное ветвление

алг БИТ1 вещ А, В, С, D нач ввод А, В, C если A>B то D:?A иначе D:?B кв если С>D то D:?C кв вывод D кон

Да

Нет

Нет

Да

БИТ – «Больше из трех»

8

Вложенное ветвление

Нет

Да

Да

Нет

Да

Нет

9

Оператор ветвления IF в общем виде

Оператор IF предназначен для выбора к исполнению одного из возможных действий (операторов) в зависимости от некоторого условия. IF <условие> THEN <действие>; (неполное ветвление) IF <условие> THEN <действие 1> ELSE <действие 2>; (полное ветвление) Здесь 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 <оператор1> else <оператор2>

13

Условия записываются, как правило, в виде логических выражений

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

14

Условие – логическое выражение

Простое равенство или неравенство

Сложное составляется из простых с помощью логических операций

Операции отношения: =, <>, >, <, >=, <=, div, mod

Логические операции: not ? and ? or

15

Сложные логические выражения

Если идентификация проводится по одному признаку для нескольких элементов, то несколько условий связываются служебным словом "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

Пример 2 Нахождение наибольшего из трех заданных чисел

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

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('Максимальное из тpех чисел ',M); end.

Пример 2 Нахождение наибольшего из трех заданных чисел

20

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

21

21

Вложенные условные операторы

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

IF условие 1 THEN Оператор 1 ELSE IF условие 2 THEN Оператор 2;

22

23

Алгоритмы с ветвлением

IF условие THEN оператор

24

Пример 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.

25

Составной оператор

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

26

Пример 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.

27

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

Пример 5

28

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.

Одно полное ветвление с составным оператором и три вложенных неполных ветвления

29

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

Пример 6

30

Var a : integer; begin write(‘a=‘); readln(a); if a mod 2 = 0 then

writeln(‘число четное’) else writeln(‘число нечетное’); readln end.

31

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

Пример 7

32

Var a: integer; begin write(‘a=‘); readln(a); if (a >= 100) and (a <=

999) then write(‘число трехзначное’) else write(‘число трехзначное’); end.

33

Всем спасибо

Да

Нет

Не совсем

1

Я понял предназначение оператора ветвления If

2

Я понял, что такое неполное ветвление

3

Я понял, что такое полное ветвление

4

Я понял, что является простой формой логического выражения

5

Я понял, что является сложной формой логического выражения

6

Я успешно справился с практическим заданием 2 или я понял, как составить программу к данному заданию 2

7

Я успешно справился с практическим заданием 3 или я понял, как составить программу к данному заданию 3

8

Я успешно справился с практическим заданием 4 или я понял, как составить программу к данному заданию 4

В Ы В О д

В Ы В О д

В Ы В О д

В Ы В О д

В Ы В О д

В Ы В О д

В Ы В О д

Данная тема оказалась для меня сложной

Мне понравилось составлять и запускать программы

У меня получилось составлять программы

Мне надо дополнительно поработать с теорией

Мне надо дополнительно поработать с практикой

Мне потребуется помощь учителя

Мне достаточно помощи одноклассника