мета-данные страницы
Загрузка не удалась. Возможно, проблемы с правами доступа?
Различия
Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слеваПредыдущая версия | Следующая версияСледующая версия справа и слева | ||
pascal:clauses [21/10/2009 22:35] – oca | pascal:clauses [24/10/2009 13:24] – oca | ||
---|---|---|---|
Строка 33: | Строка 33: | ||
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 (' | ||
+ | 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; | ||
end. | end. |