Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
GNU Pascal Compiler (GPC) là trình biên dịch Pascal của Bộ biên dịch GNU (GCC). Trình biên dịch này được viết bằng C, thư viện chạy hầu hết viết bằng Pascal. Được phân phối miễn phí dưới giấy phép GNU, có thể chạy trên rất nhiều nền tảng và hệ điều hành khác nhau. Nó còn hỗ trợ chuẩn ngôn ngữ ANSI/ISO và tương thích với ngôn ngữ Borland/Turbo Pascal. Việc hỗ trợ cho Borland Delphi và một vài biến thể khác vẫn còn khá hạn chế | Bai 8.5 uses crt const nmax 100 type diem 0.9 s_vien record Ten string 30 Diem_tb diem end var SV array 1.nmax of s_vien n Integer Procedure nhap_ds var i Integer var c char begin i 0 repeat inc i writelnfsinh vien thu .iT writefTen readln sv i .Ten write Diem trung binh readln sv i .Diem_tb writelnfEsc dung nhap. c readkey until c 27 end Procedure in_diem var i Integer max Diem begin Write Diem trung binh cao nhat 266 max 1 for i 1 to n do with sv i do if max Diem_tb then max Diem_tb writeln max end BEGIN nhap_ds n in_diem readln END. Bai 8.6 uses crt type Nhansu ANhan_su Nhan_su record HoTen string 30J NguyenQuan string 30 Tuoi Byte pt_tiep Nhansu end var pt_dau pt_cuoi Nhansu Procedure nhap_ds var t_gian Nhansu c char i Longlnt begin i 0 WritelnfNhap danh sach. WritelnfEsc Dung nhap. 267 repeat new t_gian inc i writelnfnguoi thu J writefHo ten readln t_gianA.HoTen writefTuoi readln t_gianA.Tuoi writefNguyen quan readln t_gianA.NguyenQuan t_gianA.pt_tiep nil if pt_dau nil then begin pt_dau t_gian pt_cuoi pt_dau end else begin pt_cuoiA.pt_tiep t_gian pt_cuoi t_gian end c readkey until c- 27 end Procedure in_ds in danh sach thi lai var t_gian Nhansu begin WritelnfDanh sach vua nhap t_gian pt_dau while t_gian nil do begin with t_gianA do writeln Ho ten HoTen . Tuoi Tuoi Nguyen quan .NguyenQuan . t_gian t_gianA.pt_tiep end end .
