Một số bài tập về Bản ghi

CÁC BÀI TẬP VỀ BẢN GHI

BÀI TẬP 1

Viết chương trình quản lí sách. Mỗi cuốn sách gồm tên sách, tên nhà xuất bản, năm xuất bản, giá tiền, số lượng:

a)      Đưa ra danh sách các cuốn sách của nhà xuất bản Giáo dục.

b)      Tính tổng số tiền sách.

c)       Sắp xếp danh sách theo năm xuất bản giảm dần và ghi kết quả ra màn hình.

d)      In ra màn hình các cuốn sách có giá tiền<=10.000đ và xuất bản sau năm 2000.

HƯỚNG DẪN

Mô tả mỗi cuốn sách là một bản ghi, các thông tin về nó (tên sách, tên tác giả,…) là các trường. Danh sách cuốn sách sẽ là một mảng các bản ghi.

Khai báo kiểu dữ liệu mô tả sách như sau:

type

    sach = record

         ten : string[30];                 {tên sách}

         nxb  : string[20];               {tên Nhà xuất bản}

         namxb   : in­te­ger;  {năm xuất bản}

         solu­ong : in­te­ger;  {số lượng}

         gia : re­al;              {giá tiền}

    end;

Thông tin của tất cả các cuốn sách ta lưu trong một mảng các bản ghi kiểu sach:

var

   ds : ar­ray[1..100] of sach;

   n : in­te­ger;

Nhập dữ liệu: ta nhập tên sách trước. Nếu tên sách là xâu rỗng thì đừng nhập, ngược lại lần lượt nhập các thông tin khác:

   pro­ce­dure nhap;

   var t : string;

   be­gin

        ClrScr;

        writeln('NHAP THONG TIN VE CAC CUON SACH');

        writeln('(nhap ten sach la xau rong neu muon dung)');

        re­peat

              write('Ten sach:  ');

              readln(t);

              if t='' then break;

              n := n + 1;

              with ds[n] do be­gin

                 ten := t;

                 write('NXB:  ');readln(nxb);

                 write('Nam xu­at ban:  ');readln(namxb);

                 write('So lu­ong:  ');readln(solu­ong);

                 write('Gia tien:  ');readln(gia);

              end;

        un­til false;

   end;

Câu a: ta sẽ duyệt qua toàn bộ danh sách các cuốn sách, kiểm tra nếu tên nhà xuất bản là Giáo dục thì in ra tất cả các thông tin của cuốn sách tương ứng:

   pro­ce­dure in­sach;

   var

      i   : in­te­ger;

   be­gin

        Clrscr;

        writeln('CAC CUON SACH CUA NXB GI­AO DUC:');

        for i:=1 to n do

            with ds[i] do

                 if nxb='Gi­ao duc' then be­gin

                    writeln('Ten:',ten);

                    writeln('Nam xu­at ban:',namxb);

                    writeln('So lu­ong:',solu­ong);

                    writeln('Gia tien:',gia);

                 end;

        readln;

   end;

Câu b: ta cũng duyệt qua toàn bộ các cuốn sách, nhân số lượng và giá tiền rồi cộng dồn vào một biến tổng. Sau đó in ra biến tổng đó:

pro­ce­dure tinh;

var i : in­te­ger;

    tong : re­al;

be­gin

     tong := 0;

     for i := 1 to n do

         with ds[i] do tong := tong + gia * solu­ong;

     writeln('TONG GIA TRI CUA TAT CA CAC CUON SACH:', tong:0:3);

end;

Câu c: Sắp xếp danh sách giảm dần theo năm xuất bản bằng phương pháp nổi bọt (2 vòng for). Chú ý biến trung gi­an trong đổi chỗ phải có kiểu sach thì mới gán được.

pro­ce­dure sx­ep;

var i,j : in­te­ger;

    tg : sach;

be­gin

     for i := 1 to n do

         for j := i + 1 to n do

             if ds[i].namxb < ds[j].namxb then be­gin

                tg := ds[i]; ds[i] := ds[j]; ds[j] := tg;

             end;

     for i:=1 to n do

        with ds[i] do be­gin

             writeln('Ten:',ten);

             writeln('Nam xu­at ban:',namxb);

             writeln('So lu­ong:',solu­ong);

             writeln('Gia tien:',gia);

        end;

     readln;

end;

Câu d: ta làm tương tự việc in danh sách các sách của NXB Giáo dục:

pro­ce­dure inds;

var i : in­te­ger;

be­gin

     writeln('CAC CUON SACH GIA RE HON 10000 VA XU­AT BAN TU NAM 2000:');

     for i := 1 to n do

         with ds[i] do

              if (gia <= 10000) and (namxb >= 2000) then writeln(ten);

end;

Chương trình chính: Lần lượt gọi các chương trình con theo thứ tự:

BE­GIN

     nhap;

     in­sach;

     tinh;

     sx­ep;

     inds;

     readln;

END.

BÀI TẬP 2

Viết chương trình quản lí cán bộ. Thông tin về cán bộ gồm tên, tuổi, hệ số lương, phụ cấp, thu nhập.

a)      Nhập thông tin cán bộ từ file văn bản CAN­BO.TXT. Các thông tin gồm tên, tuổi, hệ số lương, phụ cấp, mỗi thông tin trên một dòng.

Tính thu nhập = hệ số lương ´ 350000đ + phụ cấp

b)      Đưa ra danh sách các bộ trẻ (tuổi <= 30), in đầy đủ các thông tin

c)       Sắp xếp tên cán bộ theo abc và ghi lên file truy cập trực tiếp SAPX­EP.DAT.

d)      Đọc danh sách từ file SAPX­EP.DAT, in ra màn hình các cán bộ có thu nhập từ 3 triệu trở lên.

HƯỚNG DẪN

Làm tương tự bài 1, chú ý là nhập dữ liệu từ file chứ không phải từ bàn phím. Do đó không cần ghi các thông tin yêu cầu nhập ra màn hình. Hơn nữa, phải tạo trước một file văn bản là CAN­BO.TXT để chương trình có thể chạy mà không báo lỗi.

Toàn văn chương trình:

us­es crt;

type

    can­bo = record

          ten : string[20];

          tuoi : byte;

          hsl, phu­cap, thun­hap: re­al;

    end;

var

   ds : ar­ray[1..100] of can­bo;

   n : in­te­ger;

(*********************************************)

pro­ce­dure nhap;

var f : text;

be­gin

     as­sign(f,'CAN­BO.TXT'); re­set(f);

     n := 0;

     while not eof(f) do be­gin

           n := n + 1;

           with ds[n] do be­gin

                readln(f,ten);

                readln(f,tuoi);

                readln(f,hsl);

                readln(f,phu­cap);

                thun­hap := hsl * 350000 + phu­cap;

           end;

     end;

     close(f);

end;

(*********************************************)

pro­ce­dure in30;

var i : in­te­ger;

be­gin

     writeln('DANH SACH CAC CAN BO TRE:');

     for i := 1 to n do

         with ds[i] do

              if tuoi <= 30 then be­gin

                 writeln('Ten:',ten);

                 writeln('Tuoi:',tuoi);

                 writeln('He so lu­ong:',hsl :0 :3);

                 writeln('Phu cap:',phu­cap :0 :3);

                 writeln('Thu nhap:',thun­hap :0 :3);

              end;

end;

(*********************************************)

pro­ce­dure sx­ep;

var i,j : in­te­ger;

    tg : can­bo;

be­gin

     for i := 1 to n do

         for j := i + 1 to n do

             if ds[i].ten > ds[j].ten then be­gin

                tg := ds[i]; ds[i] := ds[j]; ds[j] := tg;

             end;

end;

(*********************************************)

pro­ce­dure ghitep;

var f : file of can­bo;

    i : in­te­ger;

be­gin

     as­sign(f,'SAPX­EP.DAT'); rewrite(f);

     for i := 1 to n do write(f,ds[i]);

     close(f);

end;

pro­ce­dure doctep;

var f : file of can­bo;

    i : in­te­ger;

be­gin

     as­sign(f,'SAPX­EP.DAT'); re­set(f);

     i := 0;

     while not eof(f) do be­gin

           i := i + 1;

           read(f,ds[i]);

     end;

     n := i;

     close(f);

end;

(*********************************************)

pro­ce­dure in3M;

var i : in­te­ger;

be­gin

     writeln('DANH SACH CAC CAN BO CO THU NHAP CAO:');

     for i := 1 to n do

         with ds[i] do

              if thun­hap >= 3000000 then be­gin

                 writeln('Ten:',ten);

                 writeln('Tuoi:',tuoi);

                 writeln('Thu nhap:',thun­hap :0 :3);

              end;

end;

(*********************************************)

BE­GIN

     nhap;

     in30;

     sx­ep;

     in3M;

     readln;

END.