Đề kiểm tra môn Tin học Lớp 8 - Học kỳ II - Năm học 2012-2013

ĐỀ KIỂM 
TRA TIN HỌC LỚP 8 NĂM HỌC 2012-2013
ĐỀ 1:
Câu 1: Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n ( Với n được nhập). Sao cho 15 số lẻ được in trên một dòng. (5điểm)
Câu 2: Viết chương trình cho phép tính tổng của nhiều số (Chưa biết bao nhiêu số). Nhập số 0 để kết thúc quá trình nhập. (5điểm)
ĐỀ 2
Câu 1: Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n (Với n được nhập). Sao cho 15 số lẻ được in trên một dòng. (5điểm)
Câu 2. (4 điểm) Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng). (5điểm)
ĐÁP ÁN 
KIỂM TRA NĂM HỌC 2012-2013
Môn: tin học 8
ĐỀ 1:
Câu 1: 
Program In_So_Le;
Uses crt;
var Dem,i,n: integer;
Begin
 Clrscr;
 Write('Nhap so n ='); readln(n);
 Dem:= 0;
 For i:=1 to n do if i mod 2 =1 then
 Begin Write(i:3,',');
 Dem:= Dem + 1;
 if Dem mod 15 = 0 then Writeln;
 end;
 readln
end. 
Câu 2:
Program Tong_Repeat;
uses crt;
var i: byte;
 so, tong: real;
begin
 write('NHAP CAC SO - NHAP 0 DE NGUNG ');
 readln;
 repeat
 clrscr;
 write('Nhap so thu ',i,': ');
 readln(so);
 tong:=tong+so;
 i:=i+1;
 until so=0;
 write('Tong la: ',tong:6:1);
 readln
end.
ĐỀ 2:
Câu 1:
Program In_So_chẵn;
Uses crt;
var Dem,i,n: integer;
Begin
 Clrscr;
 Write('Nhap so n ='); readln(n);
 Dem:= 0;
 For i:=1 to n do if i mod 2 =0 then
 Begin Write(i:3,',');
 Dem:= Dem + 1;
 if Dem mod 15 = 0 then Writeln;
 end;
 readln
end. 
Câu 2:
Program trung_binh;
Uses crt;
Var n, i: integer;
Diem: array[1..50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do 
Begin 
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do 
 Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);
Readln;
End.