De thi tin 8

Trường:
Kiểm tra HKII

Lớp:
Môn: Tin Học 8

Tên:
Thời gian: 45 phút

 -------------------------------------------------------------------
Điểm
Lời Phê





Đề thi:
Câu 1: Viết cú pháp và cách thực hiện của câu lệnh điều kiện dang thiếu. (2 điểm)
Câu 2: Viết chương trình nhập x. Kiểm tra xem x la số chẵn hay số lẻ. (2 điểm)
Câu 3: Viết chương trình nhập mảng n phần tử. In ra màn hình các phần tử có vị trí lẻ.(4 điểm)
Câu 4: Viết chương trình tính tổng của n số .(2 điểm)
Bài làm
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

GỢi Ý
Câu 1:
_ Cú pháp : If <điều kiện> then ; (1 điểm)
_Cách thực hiện :
Khi gặp câu lệnh điều kiện dạng thiếu chương trình sẽ kiểm tra điều kiện. Nếu điều kiện thỏa mãn chương trình sẽ thực hiện câu lệnh. (1 điểm)
Câu 2 :
Program bai2; (0.25 điểm)
Uses crt; (0.25 điểm)
Var x: integer; (0.5 điểm)
Begin
Writeln(‘Nhap so nguyen x: ‘); readln(x); (0.5 điểm)
If (x mod 2 = 0) then writeln(x,’ La so chan ‘) (0.25 điểm)
Else writeln(x,’ La so le’); (0.25 điểm)
Readln;
End.
Câu 3:
Program Bai3; (0.25đ)
Uses crt; (0.25đ)
Var n,i :integer; (0.25đ)
A:array [1..100] of integer; (0.25đ)
Begin
Writeln(‘Nhap so phan tu mang : ‘); readln(n); (0.5đ)
For i:=1 to n do (0.5đ)
Begin
Writeln(‘Nhap phan tu a[‘,i,’] = ‘); (0.5đ)
Readln(a[i]); (0.25đ)
End;
Writeln(‘Nhap phan tu o vi tri le la : ‘); (0.25đ)
For i:=1 to n do (0.5đ)
If i mod 2 <> 0 then write(a[i],’ ‘); (0.5đ)
Readln;
End.
Câu 4:
Program Bai4; (0.25đ)
Uses crt; (0.25đ)
Var n,i :integer; (0.25đ)
S:longint; (0.25đ)
Begin
Writeln(‘Nhap so n : ‘); readln(n); (0.25đ)
S:=0; (0.25đ)
For i:=1 to n do S:=S+i; (0.25đ)
Writeln(‘Tong cua’, n ,’so la = ‘, S:10:3); (0.25đ)
Readln;
End.