мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версияПоследняя версияСледующая версия справа и слева | ||
pascal:clauses [21/10/2009 22:29] – oca | pascal:clauses [06/10/2010 11:21] – oca | ||
---|---|---|---|
Строка 1: | Строка 1: | ||
===== Ветвление в программе ===== | ===== Ветвление в программе ===== | ||
FIXME | FIXME | ||
+ | |||
+ | Оператор //if// (или условный оператор) в **краткой форме** служит, | ||
<code pascal| Простой условный оператор - проверка условия> | <code pascal| Простой условный оператор - проверка условия> | ||
Строка 6: | Строка 8: | ||
x, | x, | ||
begin | begin | ||
- | if x = 0 then | + | if x <> |
begin | begin | ||
- | writeln(y); | + | writeln(y |
end; | end; | ||
| | ||
end. | end. | ||
</ | </ | ||
+ | |||
+ | **Полный** оператор //if// служит для разделения ход выполнения программы на две ветви в соответствии с некоторым условием, | ||
+ | |||
<code pascal| Полный условный оператор - разветвление программы> | <code pascal| Полный условный оператор - разветвление программы> | ||
var | var | ||
Строка 19: | Строка 24: | ||
if x < 0 then | if x < 0 then | ||
begin | begin | ||
- | | + | |
end | end | ||
else | else | ||
begin | begin | ||
- | | + | |
end; | end; | ||
end. | end. | ||
Строка 33: | Строка 38: | ||
begin | begin | ||
case x of | case x of | ||
- | 1 | + | 1 |
- | 2, 4, 5 : writeln(y); | + | 2, 3, 4 : writeln (y); |
- | | + | |
+ | 8, 9 .. 12 : writeln (x, y, z); | ||
else | else | ||
writeln (' | writeln (' | ||
Строка 41: | Строка 47: | ||
end. | end. | ||
</ | </ | ||
+ | |||
+ | В большинстве версий языка Pascal, включая Free Pascal, допускается чтобы метки были неупорядочены, | ||
+ | |||
+ | <code pascal| Перебор вариантов> | ||
+ | var | ||
+ | x, | ||
+ | begin | ||
+ | case x of | ||
+ | 1, 2 : writeln (x); | ||
+ | 2, 3, 6 : writeln (' | ||
+ | 5 .. 7 : writeln (z); | ||
+ | else | ||
+ | writeln (' | ||
+ | end; | ||
+ | end. | ||
+ | </ | ||
+ | |||
+ | __Обратите внимание__ - оператор '' |