Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Ngôn ngữ này được chuẩn hóa vào năm 1983 trong chuẩn ISO/IEC 7185, một vài chuẩn quốc gia cụ thể cũng được đưa ra bao gồm cả chuẩn ANSI/IEEE770X3.97-1983 của Mỹ. Năm 1990 chuẩn Pascal mở rộng được đưa ra với tên gọi ISO/IEC 10206. Chuẩn ISO 7185 được phát triển với mục đích là sự chọn lọc của ngôn ngữ 1974 của Writh, được đề cập chi tiết trong cuốn "Hướng dẫn sử dụng và Báo cáo của Jensen và Wirth", bổ sung đáng kể nhất là "Các tham số mảng phù hợp" được coi là mức 1 của tiêu. | Chương 6. Kiểu bản ghi và tệp Bai 6.1 uses crt type hoso record hoten string 20 nsiinteger k1 real k2 real tong real end var hs array 1.100 of hoso tam hoso tx a array 1.100 of integer n.i integer begin clrscr writef So luong hoc sinh readln n writelnC Bat dau nhap so lieu For i 1 to n do with hs i do begin clrscr writelnf---------------------- writeC Ho va ten hoc sinh thu j la readln hoten writef Nam Sinh readln ns writeC Diem Ky 1 readln k1 writef Diem Ky 2 readln k2 end clrscr Gotoxy 10 2 write DANH SACH HOC SINH TOAN 5 gotoxy 8 3 write --------------------- gotoxy 5 6 write STr gotoxy 10 6 write Ho va Ten 191 gotoxy 28 6 write Nam Sinh gotoxy 38 6 write Diem Ky 1 gotoxyiSO.e writefl Diem Ky 2 gotoxy 62 6 .write Trung Binh for i 5 to 72 do begin gotoxy i 7 writef- end for i 1 to n do hspj.tong hs i .k1 hsp .k2 2 for i 1 to n do for j i 1 to n do if hspj.tong hspj.tong then begin tarn hsp hs i hs j hs j tarn end j 0 For i 1 to n do if hspj.kl 5 and hs i .k2 5 then with hs i do begin j j 1 gotoxy 5 7 j write r j gotoxy 10 7 j write hoten gotoxy 28 7 j write T ns gotoxy 38 7 j write r k1 2 2 gotoxy 50 7 j write k2 2 2 gotoxy 62 7 j write ttong 2 2 end gotoxy 5 20 writef Nhan Enter de xem danh sach hoc sinh thi lai. readln clrscr Gotoxy 10.2 write DANH SACH HOC SINH TOAN THI LAI 192 gotoxy 8 3 write -------------------------- gotoxyfS.ejiwriteCISTT gotoxy 10 6 write Ho va Ten gotoxy 28 6 write Nam Sinh gotoxy 38 6 write Diem Ky T gotoxy 50 6 write Diem Ky 2 gotoxy 62 6 write Trung Binh for i 5 to 72 do begin gotoxy i 7 write - end for i 1 to n do for j i 1 to n do if hs i .hoten hs j .hoten then begin tam hs i hs i hs j hs j tam end j 0 For i 1 to n do if hs i .tong 5 then with hs i do begin j j 1 gotoxy 5 7 j write T j gotoxy 10 7 j write hoten gotoxy 28 7 j write r ns gotoxy 38 7 j write T k1 2 2 gotoxy 50 7 j write T.k2 2 2 gotoxy 62 7 j write tong 2 2 end if j 0 then begin gotoxy 5 8 write Khong co hoc sinh nao phai thi lai. 193 13- .
