мета-данные страницы
  •  
Загрузка не удалась. Возможно, проблемы с правами доступа?

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Предыдущая версия справа и слеваПредыдущая версия
Следующая версия		Предыдущая версия
Следующая версияСледующая версия справа и слева
pascal:clauses [21/10/2009 22:34] – ocapascal:clauses [24/10/2009 13:25] – oca
Строка 33: Строка 33:
 begin begin
   case x of   case x of
-    1       : writeln(x); +    1           : writeln (x); 
-    2, 4, 5 : writeln(y); +    2, 3, 4     : writeln (y); 
-    7 .. 9  : writeln(z)+    5 .. 7      : writeln (z); 
 +    8, 9 .. 12  : writeln (x, y, z);
   else   else
     writeln ('Ошибка')     writeln ('Ошибка')
Строка 42: Строка 43:
 </code> </code>
  
-Обратите внимание - оператор ''case'' заканчивается непарной операторной скобкой ''end'' !+В большинстве версий языка Pascal, включая Free Pascal, допускается чтобы метки были неупорядочены, но не допускается неоднозначность:  
 + 
 +<code pascal| Перебор вариантов> 
 +var  
 +  x,y,z:integer; 
 +begin 
 +  case x of 
 +    1, 2        : writeln (x); 
 +    2, 3, 6     : writeln ('Ошибка, о которой нам скажет компилятор'); 
 +    5 .. 7      : writeln (z); 
 +  else 
 +    writeln ('Ошибка !') 
 +  end;  
 +end. 
 +</code> 
 + 
 +__Обратите внимание__ - оператор ''case'' заканчивается непарной операторной скобкой ''end'' !