Решение задач
Пример:
Type
week = (sunday, monday, tuesday, wednesday, thursday, friday, saturday);
work_week = monday..friday;
day=1..31;
Обратите внимание на то, что при объявлении пользовательских типов между их именем и конструкцией, определяющей тип, расположен знак равенства.
Задание типа означает, что теперь в разделе описания переменных можно пользоваться вновь введённым идентификатором.
Итак, мы научились определять константы, задавать свои типы. Эти разделы описаний в программе должны находится перед основным блоком программы. Порядок их следования значения не имеет.
Решение задач
- Указать ошибки в следующем разделе
типов:
Const n = 180; pi = 3.1415;
Type sign = ('a','b','c','d');
gl = (a, e, i, o, u);
sgl = (b..d,f,g);
log = Boolean;
sign = '0'..'9';
- Найти ошибки в следующей программе:
Program mistake_1;
Type month = (january, february, marth, april, may, june, jule, august, september, october, november, december);
autumn = september..november;
Var m : autumn; d : '0'..'9'; k : 0..9;
Begin
Readln(m,d,k);
If m>september Then d := k Else k := Ord(m) - 8;
Writeln(k, d + k);
End
