Kiểu liệt kê, kiểu đoạn con và kiểu tập hợp

Kiểu đoạn con (Sub-range Variables)

Cú pháp khai báo:

var

kieu-doan-con : chi-so-duoi ... chi-so-tren;

Ví dụ:

var

diem: 1 ... 10;

xeploai: 'A' ... 'D';

tuoi: 1 ... 100;

Chương trình ví dụ:

program exSubrange;

var

diem: 1 .. 10;

xeploai: 'A' .. 'D';

begin

   writeln( ‘Nhap diem (1 - 10): ');

   readln(diem);

   writeln( 'Nhap xep loai (A - D): ');

   readln(xeploai);

   writeln('Điểm: ' , diem, ' Xếp loại: ', xeploai);

end.

Cú pháp khai báo:

var

var1, var2, ...  : kieu-liet-ke;

Ví dụ:

type

months = (January, February, March, April, May, June, July, August, September, October, November, December);

Var

m: months;

Chương trình ví dụ:

program exEnumeration;

type

mongiaikhat = (coffee, tea, milk, water, coke, limejuice);

var

douong:mongiaikhat;

begin

   writeln('Ban chon do uong nao?');

   douong:= limejuice;

   writeln('Ban co the uong ', douong);

end.