Viết chương trình QUẢN LÝ SINH VIÊN gồm: Mã sinh viên, họ tên, năm sinh, điểm, v.v . Nhập danh sách sinh viên từ bàn phím, in ra màn hình danh sách sinh viên vừa nhập, tính điểm trung bình của các sinh viên, tìm sinh viên có điểm cao nhất, tìm nhân viên theo mã sinh viên

 Viết chương trình QUẢN LÝ SINH VIÊN gồm: Mã sinh viên, họ tên, năm sinh, điểm, v.v . Nhập danh sách sinh viên từ bàn phím, in ra màn hình danh sách sinh viên vừa nhập, tính điểm trung bình của các sinh viên, tìm sinh viên có điểm cao nhất, tìm nhân viên theo mã sinh viên. 

Viết chương trình QUẢN LÝ SINH VIÊN gồm: Mã sinh viên, họ tên, năm sinh, điểm, v.v . Nhập danh sách sinh viên từ bàn phím, in ra màn hình danh sách sinh viên vừa nhập, tính điểm trung bình của các sinh viên, tìm sinh viên có điểm cao nhất, tìm nhân viên theo mã sinh viên

Viết chương trình QUẢN LÝ BÁN HÀNG học gồm: Tên hàng, số lượng, đơn giá, thành tiền. Nhập danh sách hàng hóa từ bàn phím, in ra màn hình danh sách hàng hóa, tính thành tiền, tính tổng tiền hàng đã bán, tìm kiếm tên mặt hàng nào đó.

Câu 48: Hãy cho biết kết quả a,b,c  của chương trình sau  bằng bao nhiêu trong các phương án cho dưới đây?

Var a,b,c:integer;

Procedure tt(  a:integer; var b,c:integer);

Begin

a:=a+1; b:=b+1; c:=a+b;

End;

Begin

a:=1;b:=1;

tt(a,b,c);

Write(‘a=’,a,’b=’,b,’c=’,c);

Readln;

End.

a. a=2 b=2 c=4.

b. a=1 b=1 c=2.

c. a=1 b= 2c=4.

d. a=1 b=2 c=0.

Câu 43:   Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?

Var n, i , s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   s:=2;

   For i:=1 to n do s:=s+1;

End;

a. 6.

b. 8.

c. 10.

d. 12.

Câu 40:  Hãy cho biết các  khai báo được đánh số sau đây , khai báo nào là sai ?

1. Const a=1;

2. Const  MaxData  = 1024 * 64 - 16;

3. Const NumChars = Ord('Z') - Ord('A') + 1;

4. Const  Message  = Hello Pascal; 

a.  1.

b.  2.

c.  3.

d.  4.

Câu 41: Cho biết  chương trình sau in ra gì trong các phương án cho dưới đây?

Var st : string;  i, dd : integer;

Begin

st :='So Buu chinh Vien thong'; dd:=Length(st); 

For i := 1 to dd do

if (st[i] >= 'a') and (st[i] <= 'z') then st[i]:= Upcase (st[i]);

   Write (st);

End. 

a.  SO BUU CHINH VIEN THONG.

b.  so buu chinh vien thong.

c.  So Buu Chinh Vien Thong.

d. So buu chinh VIEN THONG.

Câu 42: Cho biết khi thực hiện đoạn lệnh sau ‘’songay’’ bằng bao nhiêu(biết  nam=2002 thang=2) trong các phương án cho dưới đây?

begin

Write(nhap thang:’);Readln(thang);

   Write('Cho biet nam : ');   Readln(nam);

      Case thang Of

       1,3,5,7,8,10,12: songay:=31;

      4,6,9,11 : songay:=30;

      2    :Case nam Mod 4 Of

               1,2,3 :songay:=28;

                    0      :songay:=29;

          End;

  End.

a. 28.

b. 29.

c. 2.

d. 0.

Câu 43:   Cho biết khi thực hiện đoạn lệnh sau kết quả s bằng bao nhiêu với n=4 trong các phương án cho dưới đây?

Var n, i , s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   s:=2;

   For i:=1 to n do s:=s+1;

End;

a. 6.

b. 8.

c. 10.

d. 12.

Câu 44: Kết quả  khi thực hiện  đoạn mã sau bằng bao nhiêu trong các phương cho dưới đây ?

s:=0

For i:=1 To 2 Do

     For j:=1 to 3 Do

Begin

s:=s*i*j;

Writeln('s=',s);

End

a. 120.

b. 625.

c. 0.

d. 112.

Câu 45: Hãy cho biết kết quả đoạn mã sau bằng bao nhiêu trong các phương án cho dưới đây ?

Var

a,b,s:Real;

Begin

a:=9;

b:=34;

s:= sqrt(b-a);

Writeln ('s = ', s);

End.

a. 3.

b. 0.

c. 5.

d. 100.

Câu 46: Hãy cho biết  chương trình đệ quy sau khi n=3 thì  factorial bằng bao nhiêu trong các phương án sau đây?

Function  Factorial(N:integer):Longint;

Begin

If N=0 Then  Factorial:=1

  Else    Factorial:=N* Factorial(N-1);

End;

a. 3.

b. 0.

c. 6.

d. 10.

Câu 47: Hãy cho biết kết quả của đoạn  mã sau bằng bao nhiêu trong các phương án dưới đây ?

s:=0;

For i=1 To 2 Do

    For j =1 to 2 Do

s:=s+i*0;

Writeln('S=',s);

a. 12.

b. 0.

c. 15.

d.10.

Câu 48: Hãy cho biết kết quả a,b,c  của chương trình sau  bằng bao nhiêu trong các phương án cho dưới đây?

Var a,b,c:integer;

Procedure tt(  a:integer; var b,c:integer);

Begin

a:=a+1; b:=b+1; c:=a+b;

End;

Begin

a:=1;b:=1;

tt(a,b,c);

Write(‘a=’,a,’b=’,b,’c=’,c);

Readln;

End.

a. a=2 b=2 c=4.

b. a=1 b=1 c=2.

c. a=1 b= 2c=4.

d. a=1 b=2 c=0.

Câu 49: Muốn xoá tệp có tên ‘LyLich.Dat’   trên đĩa (được đặc trưng qua biến F ) ta viết như thế nào trong các cách viết cho dưới đây ?

a. Assign(F,  'LyLich.dat');remove(F);

b. Assign(F,  'LyLich.dat');del(F);

c. Assign(F,  'LyLich.dat');delete(F);

d. Assign(F,  'LyLich.dat');erase(F);

Câu 50: Hãy cho biết đoạn chương trình sau khi n=4 thì s bằng bao nhiêu trong các phương án dưới đây?

 Var n,i, s:integer;

Begin

   Clrscr;

   Write('Nhap vao gia tri cua n :'); Readln(n);

   S:=0;

   For i:=1 to n do s:=s*i;

End;

a. 10.

b. 0.

c. 11.

d. 12.

Câu 51:Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?

M:=A[1];

For i:=2 To N Do

       If M>A[i] Then M:=A[i];

a. Tìm phần tử lớn nhất của mảng N phần tử.

b. Sắp xếp N phần tử của mảng giảm dần.

c. Sắp xếp N phần tử của mảng tăng dần.

d. Tìm phần tử nhỏ nhất của mảng N phần tử.

Câu 52: Hãy cho biết đoạn chương trình sau giải quyết bài toán gì trong các phương án cho dưới đây?

M:=A[1];

For i:=2 To N Do

       If M<A[i] Then M:=A[i];

a. Tìm phần tử lớn nhất của mảng N phần tử.

b. Sắp xếp N phần tử của mảng giảm dần.

c. Sắp xếp N phần tử của mảng tăng dần.

d. Tìm phần tử nhỏ nhất của mảng N phần tử.