Đề thi kết thúc môn Tin học đại cương - Đề 2

Câu hỏi Tự luận (3 câu):

• Câu 1:

  Mã câu hỏi: 205322

  a:So sánh ROM và RAM

  b:Cấu trúc của một chương trình pascal ? cho ví dụ ?

  Xem đáp án

  a:

  ROM	RAM
  + Chỉ có thể đọc thông tin ra + Do nhà sản xuất ghi vào, lưu trữ chương trình cố định. + Dữ liệu không bị mất đi khi tắt máy.	+ Có thể ghi vào, đọc ra một các dễ dàng. + Được dung để lưu trữ chương trình tạm thời khi chúng đang chạy và dữ liệu được chương trình sử dụng. + Khi tắt máy dữ liệu bị mất đi.

  b:Cấu trúc của một chương trình pascal ? cho ví dụ ?

  Gồm 3 phần

  1. Tiêu đề của chương trình
  2. Khai báo
  3. Thân chương trình

• Câu 2:

  Mã câu hỏi: 205323

  Đưa ra các thủ tục để đọc dữ liệu cho tệp văn bản ? 

  Xem đáp án

  Mở tệp để đọc
  Đọc dữ liệu từ tệp
  Đóng tệp

• Câu 3:

  Mã câu hỏi: 205324

  Cho trước tệp văn bản TEN.TXT ghi họ tên sinh viên của một lớp, trong đó họ tên mỗi người chiếm 1 dòng và tệp văn bản DIEMDANH.TXT ghi kết quả điểm danh của mỗi người theo quy tắc :

  + Có mặt đánh dấu “c”; vắng có lý do “v”; vắng không lý do “k”

  + Đánh dấu điểm danh của mỗi sinh viên được ghi liên tiếp trên 1 dòng

  Vẽ sơ đồ thuật toán và viết chương trình pascal để

  1. Thống kê số buổi đi học, số buổi vắng (có và không lý do) đối với từng sinh viên.
  2. Lập danh sách những sinh viên đi học chăm chỉ nhất (có số buổi có mặt cao nhất) và hãy cho biết co bao nhiêu sinh viên như thế.
  3. Kết quả ghi vào tệp ketqua.txt theo quy cách sau

  • Mỗi sinh viên chiếm 1 dòng gồm các thông tin STT(2 dấu cách)họ tên sv(2 dấu cách)số buổi có mặt(2 dấu cách)số buổi vắng mặt có lý do(2 dấu cách)số buổi vắng mặt không lý do
  • Các dòng tiếp theo : Họ tên sinh viên chăm chỉ nhất (họ tên mỗi sinh viên viết trên 1 dòng)
  • Dòng cuối cùng : số sinh viên đi học chăm chỉ nhất

  Xem đáp án

  type sinhvien=record

       ht:string[30];

       diemdanh:array[1..10] of char;

       dh:integer;

       nh:integer;

       cp:integer;

    end;

  var sv:array[1..20] of sinhvien;

      sv1:array[1..20] of sinhvien;

      i,j,m,n,k,t,max:integer;

      f1,f2,f3:Text;

  begin

    assign(f1,'ten.txt');

    reset(f1);

    i:=0;

    while not eof(f1) do

      begin

        i:=i+1;

        readln(f1,sv[i].ht);

      end;

    n:=i;

    close(f1);

   

    assign(f2,'diemdanh.txt');

    reset(f2);

    i:=0;

    while not eof(f2) do

       begin

          i:=i+1;

          j:=0;

          while not eoln(f2) do

             begin

                j:=j+1;

                read(f2,sv[i].diemdanh[j]);

             end;

          readln(f2);

       end;

     m:=j;

     close(f2);

   

     for i:=1 to n do

      begin

        sv[i].dh:=0;

        sv[i].cp:=0;

        sv[i].nh:=0;

        for j:=1 to m do

        if sv[i].diemdanh[j]='c' then

           sv[i].dh:=sv[i].dh+1

        else if sv[i].diemdanh[j]='v' then

           sv[i].cp:=sv[i].cp+1

        else

           sv[i].nh:=sv[i].nh+1;

      end;

   

     max:=sv[1].dh;

     for i:=1 to n do

        if sv[i].dh>max then

           max:=sv[i].dh;

     for i:=1 to n do

       if sv[i].dh=max then

          begin

             t:=t+1;

             sv1[t]:=sv[i];

          end;

   

     write('Thong ke so buoi di hoc cua sinh vien');

     for i:=1 to n do

       begin

          writeln;

          write(i,'  ',sv[i].ht:10,'  ');

          for j:=1 to m do

            write(sv[i].diemdanh[j],' ');

          write(sv[i].dh,'  ',sv[i].nh,'  ',sv[i].cp);

       end;

   

     writeln;

     write('Co ',t,' sinh vien di hoc cham chi nhat : ');

     for i:=1 to t do

        begin

           writeln;

           write(i,'  ',sv1[i].ht:10);

        end;

   

     assign(f3,'ketqua.txt');

     rewrite(f3);

     for i:=1 to n do

       begin

         write(f3,i,'  ',sv[i].ht:10,'  ');

         write(f3,sv[i].dh:1,'  ',sv[i].cp:1,'  ',sv[i].nh:1);

         writeln(f3);

       end;

     for k:=1 to t do

       writeln(f3,sv1[k].ht);

     write(f3,'so sv di hoc cham chi nhat la : ',t);

     close(f3);

     readln;

     end.