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

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

• Câu 1:

  Mã câu hỏi: 205316

  Phân biệt biến toàn cục và biến địa phương ? cho ví dụ

  Xem đáp án

  Biến toàn cục	Biến địa phương
  + là các biến được khai báo trong chương trình chính, chúng có thể dung ở mọi nơi trong chương trình.	+ là các biến được khai báo trong chương trình con và nó chỉ có tác dụng trong phạm vi chương trình con đó. Khi chương trình con kết thúc thì biến này mất tác dụng.

   

  + Dạng tiếp theo là cho đoạn chương trình sau đó tìm kết quả khi chạy đoạn chương trình đó

• Câu 2:

  Mã câu hỏi: 205317

  Kiểu mảng - Cho bảng sau :

  STT	Họ tên	Điểm
  		1	…..	m
  	1..n

  1. Tính điểm trung bình của từng sinh viên
  2. Tìm ra những sinh viên có điểm trung bình cao nhất
  3. Sắp xếp lại bảng trên theo trật tự tăng dần của điểm trung bình

  Xem đáp án

  var n,m,i,j,k :integer;

      ht:array[1..20] of string[20];

      diem:array[1..20,1..10] of real;

      tong,tb:array[1..20] of real;

      tg,tg2,s,max:real;

      tg1:string[20];

  begin

    write('Nhap n : ');readln(n);

    write('Nhap m : ');readln(m);

    for i:=1 to n do

      begin

        write('HTSV ',i,' la   ');

        readln(ht[i]);

        for j:=1 to m do

           begin

             write('DT mon ',j,' la ');

             readln(diem[i,j]);

           end;

      end;

    for i:=1 to n do

       begin

          tong[i]:=0;

          for j:=1 to m do

            tong[i]:=tong[i]+diem[i,j];

          tb[i]:=tong[i]/m;

       end;

    max:=tb[1];

    for i:=1 to n do

      if tb[i]>max then

        max:=tb[i];

    write('Danh sach cac hoc sinh co TB max bang ',max:6:1,' la :');

    for i:=1 to n do

      if tb[i]=max then

        write(ht[i],',  ');

    for i:=1 to n-1 do

      for k:=i+1 to n do

        if tb[i]>tb[k] then

           begin

             tg:=tb[i];

             tb[i]:=tb[k];

             tb[k]:=tg;

             tg1:=ht[i];

             ht[i]:=ht[k];

             ht[k]:=tg1;

             for j:=1 to m do

               begin

                 tg2:=diem[i,j];

                 diem[i,j]:=diem[k,j];

                 diem[k,j]:=tg2;

               end;

           end;

    writeln('Danh sach sau khi sap xep la :');

    for i:=1 to n do

       begin

          writeln;

          write(ht[i]);

          for j:=1 to m do

             write('  ',diem[i,j]:4:1,'  ');

       end;

    readln;

    end.

• Câu 3:

  Mã câu hỏi: 205318

  Ngân hàng muốn được cung cấp một phần mềm mô phỏng hoạt động của máy ATM, các thông tin cần quản lý như sau : Số PIN, số tài khoản, họ và tên, CMTND, ngày làm thẻ, số dư. Hãy khai báo kiểu bản ghi (Record) chứa các thành phần nêu trên. Lập sơ đồ thuật toán và viết chương trình bằng ngôn ngữ lập trình pascal thực hiện các yêu cầu sau :

  • Chương trình điều khiển (Chương trình chính)
  • Một chương trình con để nhập dữ liệu thông tin khách hàng từ bàn phím vào máy
  • Một chương trình con lấy thông tin số dư tài khoản hiển thị kết quả lên màn hình với số PIN được nhập từ bàn phím
  • Một chương trình con để rút tiền ra từ tài khoản theo quy trình :

  1. Yêu cầu nhập số PIN
  2. Nếu đúng số PIN, thì yêu cầu nhập số tiền cần rút. Nếu số tiền cần rút nhỏ hơn hoặc bằng số dư thì trừ tiền trong số dư đúng bằng số tiền cần rút.
  3. Thông báo giao dịch thành công

  Xem đáp án

  type atm=record

       sopin:integer;

       sotk:integer;

       hoten:string[20];

       cmtnd:string[10];

       ngaylamthe:string[20];

       sodu:real;

       end;

  var  kh:array[1..50] of atm;

       i,j,n,PIN,k,PIN1,t,dem,dem1:integer;

       sotien:real;

  procedure nhap;

  begin

    write('Nhap so khach hang : ');readln(n);

    for i:=1 to n do

      begin

         write('Nhap so pin cua KH thu ',i,' :  ');readln(kh[i].sopin);

         write('Nhap so tai khoan cua KH thu ',i,' : ');readln(kh[i].sotk);

         write('Nhap ho ten cua khach hang thu ',i,' : ');readln(kh[i].hoten);

         write('Nhap so cmtnd cua KH thu ',i,' :  ');readln(kh[i].cmtnd);

         write('Nhap ngay lam the cua KH thu ',i,' : ');readln(kh[i].ngaylamthe);

         write('Nhap so du tai khoan cua KH thu ',i,' : ');readln(kh[i].sodu);

      end;

  end;

   

  procedure laythongtin;

  begin

    writeln;

    writeln('Chuong trinh con lay tong tin khach hang tu so PIN');

    write('Nhap so pin tai khoan : ');readln(PIN);

    dem:=0;

    for i:=1 to n do

      if PIN=kh[i].sopin then

          begin

             k:=i;

             dem:=dem+1;

          end;

    if dem<>0 then

       writeln('So du cua tai khoan la : ',kh[k].sodu:8:1)

    else

       writeln('Khong co tai khoan nao co so PIN nhu vay');

  end;

   

  procedure ruttien;

    begin

        writeln('Chuong trinh con rut tien');

        write('Nhap so pin tai khoan : ');readln(PIN1);

        dem1:=0;

        for i:=1 to n do

           if PIN1=kh[i].sopin then

                begin

                   t:=i;

                   dem1:=dem1+1;

                end;

        if dem1<>0 then

           begin

              write('Nhap so tien can rut : ');readln(sotien);

              if sotien<=kh[t].sodu then

                begin

                   kh[t].sodu:=kh[t].sodu-sotien;

                   writeln('So tien con lai cua quy khach la : ',kh[t].sodu:8:1);

                   writeln('Giao dich thanh cong');

                end

              else

                 writeln('So tien lon hon so du trong tai khoan');

                 writeln('Giao dich ko thanh cong');

           end

        else

           writeln('Khong co so PIN nay');

    end;

   

  begin

    nhap;

    laythongtin;

    ruttien;

    readln;

  end.