Условный оператор. Язык Паскаль

1. Условный оператор.

04.03.2018
Условный
оператор.

2.

04.03.2018

3.

Для записи на языке Турбо-Паскаль
разветвляющихся алгоритмов используется
условный оператор
Полная (расширенная)форма оператора IF
If логическое выражение Then
оператор 1
Else
оператор 2;
Пример:
If A<B Then X:=A
Else X:=b:
04.03.2018

4.

04.03.2018

5.

Пример 1
Составить программу, которая выводит на экран
компьютера пример на умножение двух однозначных
чисел, запрашивает ответ пользователя, проверяет его
и выводит сообщение «Правильно» или «Вы
ошиблись» и правильный результат.
04.03.2018

6.

04.03.2018

7.

Вторая серия команд в условном операторе может отсутствовать.
При этом признак ее начала – служебное слово Else – опускается.
Неполная команда ветвления выглядит так:
If условие Then действие; Здесь при справедливости условия
выполняется действие, а если условие нарушено, то сразу
переходим к оператору, который следует за условным оператором.
04.03.2018

8.

Пример 2
Составьте программу, удваивающую значение
целой переменной а, если а>5.
Решение
Если а > 5, то значение а
надо заменить на 2а. В
противном случае (а <= 5)
никаких действий
производить не нужно.
Program Pr2;
Var а : Integer;
Begin
WriteLn (‘Введите число’);
ReadLn (а);
If а >5 Then а := а*2;
WriteLn (‘а =', а);
End.
04.03.2018

9.

Использование нескольких команд после слов Then и Else
Выполнив эту программу, вы заметите, что подчеркнутые строки
выполняются вне зависимости от того, какие числа вы ввели. Такая
ошибка связана с тем, что после ключевого слова Then в условном
операторе If выполняется только одна команда, стоящая после него.
Остальные же строки выполняются вне зависимости от условных
04.03.2018
операторов, стоящих перед ними.

10.

04.03.2018

11. Способы ветвления алгоритма на несколько рукавов.

04.03.2018

12.

Один из способов реализации ветвления на несколько рукавов –
использование вложенных операторов IF
Рассмотрим этот способ на примере:
04.03.2018

13.

Программа для нашего примера
примет вид:
Program Pr4;
Var a,x: integer;
Begin
Writeln('Введите x')
Read (x);
If x<0 then a:=x+1
Else
If x<10
Then a := 2*x
Else a := 0;
Writeln (a);
End.
04.03.2018

14.

Второй способ реализации ветвления на несколько рукавов –
использование нескольких неполных операторов IF
Пример 5
Составьте программу, определяющую наибольшее
значение переменных X,Y,Z.
Program Pr5;
Var x, y, z, p: integer;
Begin
WriteLn (‘Задайте значения x, y, z’);
ReadLn (x, y, z);
p:=x;
If p<y then p:=y;
If p<z then p:=z;
WriteLn(‘Наибольшее значение =’, p:6);
ReadLn;
End.
04.03.2018

15.

04.03.2018

16.

Пример 6.
Составить программу, проверяющую правильность пароля
Предположим, что пароль – это слово «груша». Программа
запрашивает у пользователя пароль, сравнивает его с нашим
паролем. Если пользователь ввел правильный пароль, то для него
доступ открыт, а если пароль не правильный, то доступ закрыт.
Program Pr6;
Var parol :string;
Begin
WriteLn (‘Какой пароль?’);
ReadLn (parol);
If parol=‘груша’
then
writeLn (‘Доступ для Вас открыт’)
Else
writeLn (‘Доступ закрыт!!!’);
ReadLn;
End.
04.03.2018

17.

Пример 7.
Составить программу, которая предлагает Ивану-Царевичу выбрать
правильное направление пути.
У Ивана-Царевича есть три варианта дальнейшего пути:
•направо,
•налево,
• вперед.
Program Pr7;
Var p :string;
Begin
WriteLn (‘Куда путь держишь?’);
ReadLn (p);
If p=‘направо’ then writeLn (‘Коня потеряешь’);
If p=‘налево’ then writeLn (‘Голову сложишь’);
If p=‘прямо’ then writeLn (‘Невесту найдешь’);
ReadLn;
End.
04.03.2018

18.

Сегодня мы узнали:
Ветвление на три и более
рукава можно
организовывать с помощью
вложенных команд IF,
нескольких неполных команд
IF, а также, комбинируя обе
возможности.
Сравнение строк на компьютере основано на
том, что каждый символ имеет свой АSСII-код,
и при сравнении строк сравниваются коды
составляющих их символов.
04.03.2018

19.

Оператор варианта case … of
case выражение of
Р1 : <оператор 1>;
P2 : <оператор 2>;
…
Pn : <оператор n>;
[else : <оператор>]
end;

20.

Пример:
case a of
4
: writeln(‘4’);
5, 6
: wtiteln(‘5 или 6’);
7 . . 12 : writeln(‘от 7 до 12’);
end;

21.

1. Написать программу, которая проверяет,
делится ли на 3 целое число, введенное с
клавиатуры.
2. Написать программу, которая вычисляет
оптимальный вес пользователя, сравнивает его
с реальным и выдает рекомендации о
необходимости поправиться или похудеть.
Оптимальный вес вычисляется по формуле:
рост (в сантиметрах) – 100.
3. Из трех данных чисел выбрать наибольшее.
04.03.2018