IV. KIỂU BẢN GHI (RECORD)

Các cấu trúc dữ liệu kiểu mảng (Array) và tập hợp (Set) có hạn chế ở chỗ các phần tử trong tập hợp của chúng phải cùng kiểu mô tả. Song trong thực tế, có những kiểu cấu trúc dữ liệu khác nhau nhưng lại có một mối liên quan nào đó.

Code:

date = RECORD

day : 1 .. 31 ;

month : 1 ..12 ;

year : 1900 .. 2100 ;

END ;

Custname : String ;

Custaddress : String ;

Custno : 1 .. 9999 ;

Custtype : status ;

Custbalance : Real ;

Lastpayment : date;

END;

Ðể truy xuất vào một trường của kiểu Record, ta cần dùng tên biến kiểu Record, sau đó là dấu chấm (.) rồi đến tên trường. Dạng tổng quát sau:

Code:

Lylich = RECORD {Lý lịch gồm Họ tên, Tuổi, Phái, Lương}

Hoten : string [25] ;

Tuoi : integer ;

PhaiNam : boolean; {Nam : M (Male), Nữ : F (Female)}

Luong : real;

END;

VAR x, y : Lylich ;

..................................

Write('Nhập tổng số nhân viên : '); readln(n) ;

FOR i := 1 TO n DO

BEGIN

Write(' Họ tên : '); readln(nv[i].Hoten);

Write(' Phái (Nam :M, Nữ : F) ? '); readln (Phai);

IF (Phai = ‘M’) or (Phai =‘m’) THEN nv[i].PhaiNam := TRUE

ELSE nv[i].PhaiNam := FALSE ;

Writeln(' Lương : '); read(nv[i].Luong) ;

END ;

Code:

TYPE

pt, pa : real ;

End;

VAR

BEGIN

Write('Nhập phần thực của số phức C1 : ') ; Readln(c1.pt) ;

Write('Nhập phần ảo của số phức C1 : ') ; Readln(c1.pa) ;

Write('Nhập phần thực của số phức C2 : ') ; Readln(c2.pt) ;

Write('Nhập phần ảo của số phức C2: ') ; Readln(c2.pa) ;

c3.pt := c1.pt + c2.pt ;

c3.pa := c1.pa + c2.pa ;

Writeln('Kết quả của phép cộng 2 số phức :');

Write(‘C3 = C1 + C2 ‘);

Write(‘ = (‘, c1.pt:5:2, ‘+i ‘, c1.pa:5:2, ‘) +(‘, c2.pt:5:2, ‘+i ‘,c2.pa:5:2, ‘) ‘);

Write(‘C3 = ‘, c3.pt:5:2, ‘+i’, c3.pa:5:2 );

Readln;

Code:

dd_mm_yy = Record

dd:1..31;

mm:1..12;

yyyy:1900..2100;

end;

masv:string[7];

ngsinh:dd_mm_yyyy;

diem:real;

end;

VAR

Code:

BEGIN

Write ('Họ tên công dân :'); Readln (HOTEN);

Write ('Ngày-tháng-năm sinh :'); Readln (NGAYSINH);

Write ('Ðịa chỉ công dân :'); Readln (DIACHI);

Write ('Nghề nghiệp : '); Readln (NGHE);

END ;

Code:

Begin

Begin dd:= 25; mm:=05; yyyy:=1978; End;

masv:='7962343'; diem:=9.0;

End;