Giáo án tổng hợp

ĐỀ KIỂM TRA 1 TIẾT(TIN HOC 8)
(Thời gian 45 phút, không kể thời gian phát đề)
Câu 1: Em hãy nêu cú pháp 2 câu lệnh lặp đã học?(2đ)
Câu 2: Em hãy vẽ sơ đồ khối của vòng lặp chưa biết trước số lần lặp? 1(đ)
Câu 3: Sau câu lệnh sau giá trị của J bằng bao nhiêu?(2đ)
J:=0;
For i:= 1 to 10 do j:=j+2;
Câu 4: Sau câu lệnh sau giá trị của S bằng bao nhiêu?(2đ)
S:=0; k:=0
While S<10 do begin
k:=k+1;
S:=S+k;
Câu 5: Sửa lỗi chương trình sau cho đúng? (3đ)
Bein In so le
User crt
Var I,n: Integger
Begin
Clrscr
Write(nhap so n=); readln(‘n’);
For i=1 to n do if I mod 2 =1 then write(i:3);
Readln
End



ĐỀ KIỂM TRA 1 TIẾT(TIN HOC 8)
(Thời gian 45 phút, không kể thời gian phát đề)
Câu 1: Em hãy nêu cú pháp 2 câu lệnh lặp đã học?(2đ)
Câu 2: Em hãy vẽ sơ đồ khối của vòng lặp chưa biết trước số lần lặp? 1(đ)
Câu 3: Sau câu lệnh sau giá trị của J bằng bao nhiêu?(2đ)
J:=0;
For i:= 1 to 10 do j:=j+2;
Câu 4: Sau câu lệnh sau giá trị của S bằng bao nhiêu?(2đ)
S:=0; k:=0
While S<10 do begin
k:=k+1;
S:=S+k;
Câu 5: Sửa lỗi chương trình sau cho đúng? (3đ)
Bein In so le
User crt
Var I,n: Integger
Begin
Clrscr
Write(nhap so n=); readln(‘n’);
For i=1 to n do if I mod 2 =1 then write(i:3);
Readln
End