мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версияСледующая версияСледующая версия справа и слева | ||
pascal:clauses [20/10/2009 10:08] – ybezrukov | pascal:clauses [24/10/2009 13:25] – oca | ||
---|---|---|---|
Строка 1: | Строка 1: | ||
===== Ветвление в программе ===== | ===== Ветвление в программе ===== | ||
- | <code pascal| Простое ветвление> | + | FIXME |
+ | |||
+ | <code pascal| Простой условный оператор - проверка условия> | ||
var | var | ||
x, | x, | ||
Строка 7: | Строка 9: | ||
begin | begin | ||
writeln(y); | writeln(y); | ||
+ | end; | ||
+ | | ||
+ | end. | ||
+ | </ | ||
+ | <code pascal| Полный условный оператор - разветвление программы> | ||
+ | var | ||
+ | x, | ||
+ | begin | ||
+ | if x < 0 then | ||
+ | begin | ||
+ | writeln(' | ||
end | end | ||
else | else | ||
begin | begin | ||
- | writeln(z); | + | writeln(' |
end; | end; | ||
end. | end. | ||
</ | </ | ||
+ | |||
+ | <code pascal| Перебор вариантов> | ||
+ | var | ||
+ | x, | ||
+ | begin | ||
+ | case x of | ||
+ | 1 : writeln (x); | ||
+ | 2, 3, 4 : writeln (y); | ||
+ | 5 .. 7 : writeln (z); | ||
+ | 8, 9 .. 12 : writeln (x, y, z); | ||
+ | else | ||
+ | writeln (' | ||
+ | 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. | ||
+ | </ | ||
+ | |||
+ | __Обратите внимание__ - оператор '' |