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

однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение «Правильно» или «Вы ошиблись» и правильный результат.

Пример 1

*

‘ x ’, m2,’ ?’);
Writeln (‘Введите ответ и нажмите ’);
Readln (otv);
If otv=p Then Writeln (‘Правильно’)
Else Writeln (‘Вы ошиблись ’, m1, ‘ x ’, m2,’ =’, p);
Readln; End.

*

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

*

а>5.

Решение
Если а > 5, то значение а надо заменить на 2а. В противном случае (а <= 5) никаких действий производить не нужно.

Program Pr2;
Var а : Integer;
Begin
WriteLn (‘Введите число’);
ReadLn (а);
If а >5 Then а := а*2;
WriteLn (‘а =', а);
End.

*

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

Использование нескольких команд после слов Then и Else

*

IF

Рассмотрим этот способ на примере:

*

(x);
If x<0 then a:=x+1
Else
If x<10
Then a := 2*x
Else a := 0;
Writeln (a);
End.

*

y, z, p: integer;
Begin
WriteLn (‘Задайте значения x, y, z’);
ReadLn (x, y, z);
p:=x;
If pIf pWriteLn(‘Наибольшее значение =’, p:6);
ReadLn;
End.

Второй способ реализации ветвления на несколько рукавов – использование нескольких неполных операторов IF

*

«груша». Программа запрашивает у пользователя пароль, сравнивает его с нашим паролем. Если пользователь ввел правильный пароль, то для него доступ открыт, а если пароль не правильный, то доступ закрыт.

Program Pr6;
Var parol :string;
Begin
WriteLn (‘Какой пароль?’);
ReadLn (parol);
If parol=‘груша’
then
writeLn (‘Доступ для Вас открыт’)
Else
writeLn (‘Доступ закрыт!!!’);
ReadLn;
End.

*

есть три варианта дальнейшего пути:
направо,
налево,
вперед.

Program Pr7;
Var p :string;
Begin
WriteLn (‘Куда путь держишь?’);
ReadLn (p);
If p=‘направо’ then writeLn (‘Коня потеряешь’);
If p=‘налево’ then writeLn (‘Голову сложишь’);
If p=‘прямо’ then writeLn (‘Невесту найдешь’);
ReadLn;
End.

*

помощью вложенных команд IF, нескольких неполных команд IF, а также, комбинируя обе возможности.

Сравнение строк на компьютере основано на том, что каждый символ имеет свой АSСII-код, и при сравнении строк сравниваются коды составляющих их символов.

*

: <оператор 2>;
…
Pn : <оператор n>;
[else : <оператор>]
end;

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

: writeln(‘4’);
5, 6 : wtiteln(‘5 или 6’);
7 . . 12 : writeln(‘от 7 до 12’);
end;

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

*