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

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

• Câu 1:

  Mã câu hỏi: 205319

  a:Chuyển đổi giữa các hệ đếm và các phép tính ở hệ cơ số 2

  \(\mathop {(571)}\nolimits_8 ,\mathop {(F5)}\nolimits_{16} ,\mathop {(FA5C)}\nolimits_{16} \)

  b:Viết biểu thức bằng ngôn ngữ lập trình pascal

  \(Y = \sin (\alpha ) + {\rm{ar}}ctg(\beta ) + \frac{1}{{\sqrt {\mathop A\nolimits^2  + \sqrt {1 + \mathop A\nolimits^2 }  + \sqrt {1 + \mathop B\nolimits^2  + \mathop A\nolimits^2 } } }}\)

  Xem đáp án

  a:\(\mathop {(F5)}\nolimits_{16}  = 15.\mathop {16}\nolimits^1  + 5.\mathop {16}\nolimits^0  = \mathop {245}\nolimits_{10} \)

      Các câu còn lại làm tương tự

  b:Viết lại thành

  Y:=sin(alpha)+arctan(beta)+1/sqrt(sqr(A)+sqrt(1+sqr(A)+sqrt(1+sqr(B)+sqr(A))))

   

• Câu 2:

  Mã câu hỏi: 205320

  Cho dãy x1,x2…xn. Sắp xếp dãy số sao cho phần tử >=0 về đầu, phần tử <0 về cuối, trật tự các phần tử không thay đổi

  Xem đáp án

  var i,n,k : integer;

      x,y : 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;

   for i:=1 to n do

   if x[i]<0 then

   begin

     k:=k+1;

     y[k]:=x[i];

   end;

   for i:=1 to k do

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

   readln;

   end.

• Câu 3:

  Mã câu hỏi: 205321

  Cho trước tệp văn bản TEN.TXT ghi họ tên các chủ hộ của một phường, trong đó mỗi dòng ghi họ tên của một chủ hộ và tệp văn bản SODIEN.TXT ghi số lượng điện các hộ tiêu thụ trong tháng, trong đó số lượng điện tiêu thụ của mỗi hộ ghi trên 1 dòng, số lượng điện các tháng ghi cách nhau 1 dấu cách

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

  1. Tính số lượng điện trung bình hàng tháng của mỗi hộ
  2. Lập danh sách các hộ trong phường có số điện tiêu thụ trung bình hàng tháng là ít nhất

  Kết quả ghi vào tệp văn bản KETQUA.TXT theo quy cách sau :

  • Mỗi hộ gia đình chiếm 1 dòng gồm các thông tin sau: STT(2 dấu cách)Họ tên chủ hộ(2 dấu cách)Số lượng điện trung bình hàng tháng của hộ
  • Dòng tiếp theo : Số điện tiêu thụ trung bình ít nhất trong phường
  • Các dòng tiếp theo : Họ tên các chủ hộ có số lượng điện tiêu thụ trung bình hàng tháng ít nhất, họ tên mỗi chủ hộ viết trên 1 dòng

  Xem đáp án

  type chuho=record

       ht:string[30];

       sodien:array[1..12] of real;

       tb:real;

       end;

  var ch:array[1..50] of chuho;

      ch1:array[1..50] of chuho;

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

      min,tong:real;

      f1,f2,f3:text;

  begin

    assign(f1,'ten.txt');

    reset(f1);

    i:=0;

    while not eof(f1) do

       begin

         i:=i+1;

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

       end;

    n:=i;

    close(f1);

   

    assign(f2,'sodien.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,ch[i].sodien[j]);

            end;

         readln(f2);

      end;

      m:=j;

      close(f2);

   

      for i:=1 to n do

        begin

          tong:=0;

          for j:=1 to m do

             tong:=tong+ch[i].sodien[j];

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

        end;

   

      min:=ch[1].tb;

      for i:=1 to n do

        if ch[i].tb<min then

           min:=ch[i].tb;

   

      t:=0;

      for i:=1 to n do

        if ch[i].tb=min then

           begin

             t:=t+1;

             ch1[t]:=ch[i];

           end;

   

      assign(f3,'ketquatiendien.txt');

      rewrite(f3);

      for i:=1 to n do

        begin

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

           write(f3,ch[i].tb:3:1);

           writeln(f3);

        end;

      writeln(f3,'so dien tieu thu it nhat trong phuong la : ',min:3:1);

      writeln(f3,'Ten cac chu ho co luong dien tieu thu it nhat la :');

      for k:=1 to t do

          writeln(f3,k,'  ',ch1[k].ht:10);

      close(f3);

      readln;

      end.