TAILIEUCHUNG - Bài tập pascal : Lời giải, đáp án part 10

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 uses crt const nmax 100 type diem s_vien record Ten string 30 Diem_tb diem end var SV array 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 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 writefTuoi readln writefNguyen quan readln nil if pt_dau nil then begin pt_dau t_gian pt_cuoi pt_dau end else begin 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 end end .

Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.