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

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

• Câu 1:

  Mã câu hỏi: 205325

  Các bộ phận chức năng của máy tính ?

  Xem đáp án

  CPU

  • Là khối xử lý trung tâm, là bộ chỉ huy của máy tính. Nó có nhiệm vụ thực hiện các phép tính số học và logic đồng thời điều khiển các quá trình thực hiện lệnh.
  • Có 3 bộ phận chính :

  • Khối tính toán số học ALU : Thực hiện hầu hết các thao tác, phép tính quan trọng của hệ thống.
  • Khối điều khiển CU : quy định dãy thao tác cần làm đối với hệ thống bằng cách tạo ra tín hiệu điều khiển mọi việc.
  • Các thanh ghi : lưu trữ thông tin tạm thời trong quá trình làm việc của CPU

  Bộ nhớ

  • Chia ra làm 2 loại :

  • Bộ nhớ trong : ROM, RAM
  • Bộ nhớ ngoài : ổ cứng, USB, CD, VCD…

  Các thiết bị vào ra

  • Các thiết bị vào : chuột, bàn phím…
  • Thiết bị ra : màn hình, máy in…

• Câu 2:

  Mã câu hỏi: 205326

  Cho dãy x1,x2…xn. Tác dãy trên thành 2 dãy : 1 dãy gồm các phần tử >=0, 1 dãy gồm các phần tử <0

  Xem đáp án

  var i,n,k,l : integer;

      x,y,z : array[1..100] of real;

  begin

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

  for i:=1 to n do

   begin

      write('x[',i,'] = ');

      readln(x[i]);

   end;

  for i:=1 to n do

   if x[i]>=0 then

     begin

       k:=k+1;

       y[k]:=x[i];

     end

   else

     begin

       l:=l+1;

       z[l]:=x[i];

     end;

   Writeln('Day ca phan tu >=0 la :');

   for i:=1 to k do

     writeln('y[',i,'] = ',y[i]:4:1);

   Writeln('Day ca phan tu <0 la :');

   for i:=1 to l do

     writeln('z[',i,'] = ',z[i]:4:1);

   readln;

   end.

   

• Câu 3:

  Mã câu hỏi: 205327

  Một cửa hàng sách quản lý sách với các thông tin sau :

  Mã sách, tên sách, tên tác giả, thể loại, năm xuất bản, số lượng. Hãy khai báo kiểu bản ghi 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 công việc sau :

  • Nhập dữ liệu thông tin n quyển sách từ bàn phím vào máy với n nhập từ bàn phím.
  • In ra danh sách những quyến sách có số lượng nhỏ hơn m với m nhập từ bàn phím
  • Ghi lên file SACH.TXT danh sách toàn bộ số sách của cửa hàng theo thứ tự giảm dần về số lượng

  Xem đáp án

  uses crt;

  type quyensach = record

  masach:string[20];

  ten:string[30];

  tacgia:string[25];

  theloai:string[20];

  namxb,sl:integer;

  end;

  var sach:array[1..100] of quyensach;

  m,n,i,j,dem:integer;

  temp:quyensach;

  f:text;

  Begin

  clrscr;

  Write('Nhap so quyen sach: ');

  readln(n);

  writeln('Nhap thong tin tung quyen sach: ');

  For i:=1 to n do

  with sach[i] do

  begin

  writeln('Sach thu ',i);

  write('Ma sach: ');

  readln(masach);

  write('Ten sach: ');

  readln(ten);

  write('Tac gia: ');

  readln(tacgia);

  write('Nam xuat ban: ');

  readln(namxb);

  write('So luong: ');

  readln(sl);

  end;

  write('Nhap so m: ');

  readln(m);

  writeln('Danh sach nhung quyen sach co so luong be hon ',m);

  writeln('STT':4,'Ten sach':20);

  for i:=1 to n do

  if sach[i].sl<m then writeln(i:4,sach[i].ten:20);

  assign(f,'sach.txt');

  rewrite(f);

  for i:=1 to n-1 do

  for j:=i+1 to n do

  if sach[i].sl<sach[j].sl then

  begin

  temp:=sach[i];

  sach[i]:=sach[j];

  sach[j]:=temp;

  end;

  writeln(f,'STT':4,'Ten sach':20,'So luong':10);

  For i:=1 to n do

  with sach[i] do

  writeln(f,i:4,ten:20,sl:10);

  readln;

  close(f);

  End.