Một số bài tập Pascal phần 1 - Tham khảo
Chia sẻ bởi Đinh Nguyên Thanh Tú |
Ngày 26/04/2019 |
54
Chia sẻ tài liệu: Một số bài tập Pascal phần 1 - Tham khảo thuộc Tin học 11
Nội dung tài liệu:
1/Sắp Xếp Theo Tên: [CODE]Program Sap_Xep_Theo_Ten; TYPE ConTro = ^HoSo; HoSo = RECORD HoLot : String[17]; Ten : String[7]; Diem : Real; End; VAR a : Array[1..50] Of HoSo; Tam : ConTro; i,j,PhanTu : Integer; BEGIN PhanTu := 0; New(Tam); With Tam^ Do Repeat Write(`-Nhap ho lot ( 0 de ket thu): `); Readln(HoLot); If HoLot <> `0` Then Begin Write(`-Nhap ten : `); Readln(Ten); Write(`-Nhap diem : `); Readln(Diem); PhanTu := PhanTu + 1; a[PhanTu] := Tam^; End; Until HoLot = `0`; For i := 1 To PhanTu - 1 Do For j := PhanTu DownTo i+1 Do If a[j].Ten[1] < a[j-1].Ten[1] Then Begin Tam^ := a[j]; a[j] := a[j-1]; a[j-1] := Tam^; End; Writeln; Writeln(`------------------------------------`); Writeln(`| HO VA TEN | DIEM |`); Writeln(`|--------------------------|-------|`); For i := 1 To PhanTu Do With a[i] Do Writeln(`|`,HoLot:17,` `,Ten:7,` |`,Diem:5:1,` |`); Writeln(`------------------------------------`); Readln END. [/CODE]2/Sắp xếp điểm tăng: [CODE]Program Sap_Xep_Diem_Tang; TYPE ConTro = ^Lop; Lop = RECORD HoTen : String[24]; NamSinh : Integer; DiemTb : Real; End; VAR Hs : Array[1..50] Of lop; i,j,n : Integer; Tam : ConTro; Begin Writeln(`SAP XEP DIEM TANG DAN);`); Writeln(`Giai thuat noi Buble`); Writeln(`--------------------`); New(Tam); Writeln; Write(`-So hoc sinh: `); Readln(n); For i := 1 To N Do With Hs[i] Do Begin Write(`+Ho ten hoc sinh thu: `,i:2,` la: `); Readln(Hoten); Write(`+Nam sinh: `); Readln(NamSinh); Write(`+Diem trung binh: `); Readln(DiemTb); End; For i := 1 To N-1 Do For j := 1 To N-i Do If Hs[j].DiemTb > Hs[j+1].DiemTb Then Begin Tam^ := Hs[j]; Hs[j] := Hs[j+1]; Hs[j+1] := Tam^; End; Writeln; Writeln(` DANH SACH SAP XEP`); Writeln; For i := 1 To N Do With Hs[i] Do Writeln(`-`,HoTen:24,` :`,Namsinh:4,` , `,DiemTb:5:2); Readln End. [/CODE]3/Hóa Đơn: [CODE]Program Hoa_Don; CONST Max = 100; TYPE ConTro = ^HoaDon; HoaDon = RECORD NguoiMua : String[24]; TenHang : String[10]; DonGia : Real; SoLuong : Integer; End; VAR a : Array[1..Max] Of HoaDon; DsTenHang : Array[1..Max] Of String[10]; Tam : ConTro; Spt, SoTenHang, i, j : Integer; Tong : Real; KiemTra : Boolean; BEGIN Writeln(`HOA DON BAN HANG`); Writeln(`----------------`); Writeln; Spt := 0; New(Tam); With Tam^ do Repeat Write(`-Ten nguoi mua (go 0 de thoat): `); Readln(NguoiMua); If NguoiMua <>
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Đinh Nguyên Thanh Tú
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)