KIỂM TRA CHẤT LƯỢNG HỌC KỲ I
Môn Tin học lớp 11, Thời gian 45 phút
ĐỀ 1:
Câu 1: Hãy cho biết phạm vi biểu diễn của các kiểu dữ liệu sau:
1. Integer; 2. Real; 3. Char; 4. Longint;
Câu 2: Viết lại chương trình sau cho đúng và cho biết chương trình thực hiện công việc gì?
Program Tinh;
Var a,Tong, dem, TB, tich: Integer;
Begin
Tong:=0; a:=1; dem:=0; tich:=1;
While a<>0 do
Read(a);
If (a<>0) and ((a mod 2 )=0) Then
Tong:=tong+a
Dem:=dem+1
TB:=tong/dem;
If If (a<>0) and ((a mod 2 )<>0) Then
Tich:=tich*a
Writeln(‘ Trug binh cong la:’,TB);
Writeln(‘Tich tim duoc la:, tich);
readln
End.
Câu 3: Viết chương trinh tinh tích dãy số nguyên từ a đến b (Với a, b là 2 số nguyên dương được nhập từ bàn phím).

KIỂM TRA CHẤT LƯỢNG HỌC KỲ I
Môn Tin học lớp 11, Thời gian 45 phút
ĐỀ 1:
Câu 1: Hãy cho biết phạm vi biểu diễn của các kiểu dữ liệu sau:
1. Word; 2. Real; 3. Boolean; 4. Extended;
Câu 2: Viết lại chương trình sau cho đúng và cho biết chương trình thực hiện công việc gì?
Program Tinh;
Var a,Tong, dem, TB, tich: Integer;
Begin
Tong:=0; a:=1; dem:=0; tich:=1;
While a<>0 do
Read(a);
If (a<>0) and ((a mod 2 )=0) Then
Tong:=tong+a
Dem:=dem+1
TB:=tong/dem;
If If (a<>0) and ((a mod 2 )<>0) Then
Tich:=tich*a
Writeln(‘ Trug binh cong la:’,TB);
Writeln(‘Tich tim duoc la:, tich);
readln
End.
Câu 3: Viết chương trinh tinh tổng dãy số nguyên từ a đến b (Với a, b là 2 số nguyên dương được nhập từ bàn phím)