Tham khảo tài liệu 'giáo trinh lập trình pascal part 6', tài liệu phổ thông, tin học phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | with ngl do begin HoTen Nguyen Van A ChucVu Giam doc Luong 12ŨŨŨŨŨ 45 To Hien Thanh end Hoặc để đơn giản hơn nữa có thể viết with ngl ChoO do begin HoTen Nguyen Van A ChucVu Giam doc1 Luong 1200000 SoNha 45 Pho To Hien Thanh end Theo cách trên rõ ràng chúng ta có thể truy nhập vào các trường giống như truy cập vào các tên biến thông thường. . Mảng các bản ghi Giả sử cần xử lý lý lịch của 100 người lúc đỏ tiểp theo khai báo bên trên ta khai báo một mảng var DanhSach array of LyLỉch Mỗi phần tử của mảng chính là một biến tương đương với biến được khai báo đơn như ngl hay ng2 . Ta có thể có các phép truy nhập các biển của mảng như sau DanhSachll .HoTen Tran Ngoe Tri DanhSachll .ChucVu Ky su hay 76 with DanhSachfl do begin HoTen Tran Ngoc Tri ChucVu Ky su end Xét ví dụ hoàn chỉnh như sau Ví dụ Lập chương trinh nhập từ bàn phím một danh sách sinh viên gồm Họ và tên năm sinh giới tính quê quán. Đưa ra màn hình danh sách này và danh sách các sinh viên nữ và sinh sau năm 1975 Program ViDu 6_16 Uses crt Type tulieu record ten string namsinh word gioitinh string quequan string end var sỉnhvien array 1. .50 of tulieu n i tt integer BEGIN Clrscr Write So luong sinh vien readln n Writein Nhap du lieu For i 1 to n do with sinhvien i do begin write Ho ten sinh vien thu i readln ten write nam sinh readln namsinh write gioi tirih nam nu readln gioitinh . write que quan tinh readln quequan end 77 clrscr gotoxy 10 2 write DANE SACK SINH VIEN gotoxy 10 4 write ---- ----------------------- gotoxy 5 8 write TT gotoxy 10 8 write HO VA TEN gotoxy 40 8 write NAM SINH gotoxy 55 8 write GIOI TINH gotoxy 70 8 write QUE QUAN for i 1 to n do with sinhvien i do begin gotoxy 5 8 i write i gotoxy 10 8 i write ten gotoxy 40 8 i write namsinh gotoxy 55 8 i write gioitinh gotoxy 70 8 i write quequan end readln clrscr gotoxy 10 2 write DANH SACK SINH VIEN NU SINH SAU 1975 gotoxy 5 8 write TT gotoxy 10 8 write HO VA TEN gotoxy 40 8 write NM SINH tt 0 for i 1 to n do
