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

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/ 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 uses crt type hoso record hoten string 20 nsiinteger k1 real k2 real tong real end var hs array of hoso tam hoso tx a array of integer 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 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 hs i .k1 hsp .k2 2 for i 1 to n do for j i 1 to n do if then begin tarn hsp hs i hs j hs j tarn end j 0 For i 1 to n do if 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 write DANH SACH HOC SINH TOAN THI LAI 192 gotoxy 8 3 write -------------------------- 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 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- .

• Kỹ thuật lập trình
• giáo trình pascal
• bài giảng giáo trình pascal
• tài liệu giáo trình pascal
• đề cương giáo trình pascal
• bài tập giáo trình pascal
• mứng dụng Turbo Pascal
• tài liệu Turbo Pascal
• giáo trình Turbo Pascal
• bài giảng Turbo Pascal
• Turbo Pascal
• kỹ thuật lập trình Turbo Pascal
• ứng dụng Turbo Pascal
• Kinh nghiệm sử dụng
• Lập trình căn bản
• Ngôn ngữ lập trình
• Kỹ thuật pascal
• Tài liệu về pascal
• Ngôn ngữ pascal
• Lập trình pascal
• Giáo trình pascal căn bản