/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/case2.pas
42 строки
573 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
var c : char; b : boolean; d : (red, green); e : 1..3; f : 'b'..'f'; begin c := 'a'; case c of 'a' : assert(c='a'); 'b' : assert(c='b'); end; c := 'b'; case c of 'a'..'c' : assert(c='b'); 'd' : assert(c='d'); end; b := true; case b of true : assert(b=true); false : assert(b=false); end; case b of false..true : assert(b=true); end; d := green; case d of red : assert(d=red); green : assert(d=green); end; e := 2; case e of 1 : assert(e=1); 2..3 : assert(e=2); end; f := 'd'; case f of 'a','b','c' : assert(f<>'d'); 'd','e' : assert(f='d'); end; end.