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)