Kiểm tra 1 tiết

Họ và tên: KIỂM TRA 1TIẾT
Lớp: 8/ Môn: Tin học
A./ Trắc Nghiệm tự luận: (7đ)
Câu 1: Sau khi thực hiện đoạn chương trình sau, giá trị của biến A bằng bao nhiêu? (1đ)
A:=0;
For i:=0 to 6 do A:=A+1;
Câu 2: Các câu lệnh Pascal sau có hợp lệ không, vì sao? (2đ)
a) for i:=10 to 1 do writeln(‘A’);
b) for i:= 0.5 to 10.5 do writeln(‘A’);
c) for i:=1 to 20 do; writeln(‘A’);
d) var x:real; begin for x:=1 to 10 do writeln(‘A’); end.
Câu 3: Hãy tìm hiểu thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal sử dụng lệnh lặp While…do để thể hiện thuật toán đó. (2đ)
Thuật toán
Bước 1. S(10, x(0.5.
Bước 2. Nếu S≤5.2, chuyển tới bước 4.
Bước 3. S(S-x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
Câu 4: Chương trình sau đây sử dụng lệnh lặp For…do để tính tổng của N số tự nhiên đầu tiên (S=1+2+3+…+N), với N là số tự nhiên được nhập vào từ bàn phím. Em hãy viết lại chương trình bằng cách sử dụng câu lệnh While…do thay cho câu lệnh For…do. (2đ)
Program Tinh_tong;
Var N, i: integer;
S: longint;
Begin
Write(‘Nhap so N = ‘); readln(N);
S:=0;
For i:=1 to N do S:=S+i;
Writeln(‘Tong cua ’,N,’ so tu nhien dau tien S= ‘,S);
Readln;
End.
B./ Tự luận: (3đ)
Câu 1: Hãy mô tả thuật toán để tính tổng sau đây: A= 1. 2+ 2.3 + 3.4 + ... + n(n+1) (1đ)
Câu 2: Em hãy viết chương trình Pascal để tính tổng số lẻ của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím. (2đ)
BÀI LÀM

Họ và tên: KIỂM TRA 1TIẾT
Lớp: 8/ Môn: Tin học
A./ Trắc Nghiệm tự luận: (7đ)
Câu 1: Sau khi thực hiện đoạn chương trình sau, giá trị của biến B bằng bao nhiêu? (1đ)
B:=0;
For i:=0 to 3 do B:=B+3;

Câu 2: Các câu lệnh Pascal sau có hợp lệ không, vì sao? (2đ)
a) for i =1 to 10 do writeln(‘B’);
b) for i:= 2.5 to 10.5 do writeln(‘B’);
c) for i:=1 to 15 do; writeln(‘B’);
d) var x:real; begin for x:=1 to 5 do writeln(‘B’); end.
Câu 3: Hãy tìm hiểu thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal sử dụng lệnh lặp While…do để thể hiện thuật toán đó. (2đ)
Thuật toán
Bước 1. S(10, n(0.
Bước 2. Nếu S≥10, chuyển tới bước 4.
Bước 3. n(n+3, S(S-n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
Câu 4: Chương trình sau đây sử dụng lệnh lặp While…do để tính trung bình n số thực x1, x2, x3,…,xn . Các số n và x1, x2, x3,…,xn được nhập vào từ bàn phím. Em hãy viết lại chương trình bằng cách sử dụng câu lệnh For…do thay cho câu lệnh While…do. (2đ)
Program Tinh_Trung_binh;
Var n, dem: integer;
TB, x: real;
Begin
dem:= 0; TB:= 0;
Write(‘Nhap so cac so can tinh n= ‘);