Khoanh trũn vào chữ cái đứng đầu mỗi ý mà em cho là đúng.. Cho đoạn chương trình sau: n:=1; whileln n... Trong các câu lệnh sau có hợp lệ không, sửa lại cho đúng nếu có 2đ1.
Trang 1HỌ VÀ TấN:
LỚP:8/ …
KIỂM TRA HỌC KỲ II MễN: TIN HỌC (Thời gian 45 phút không kể phát đề)
=============================================================
I Khoanh trũn vào chữ cái đứng đầu mỗi ý mà em cho là đúng (3đ)
1 Trong ngôn ngữ lập trình pascal, để thự hiện câu lệnh: For i:=1 to 10 do x:=x+1; thì
biến đếm i phải được khai báo là kiểu dữ liệu là:
2 Sau khi thực hiện đoạn chương trình:
j:=0;
For i:=1 to 10 do j:= j + 1; write(j); thì giá trị của j in ra màn hình là:
3 Cho đoạn chương trình sau:
n:=1;
whileln n<10 do write(n); n:=n+1;
sẽ cho kết quả là:
A In ra các số từ 1 đến 9
B In ra các số từ 1 đến 10
C In ra vô hạn các số 1, mỗi số trên một dòng
D Cả A, B, C đều sai
4 Để tính tích các số từ 1 đến n, trong các câu lệnh sau câu lệnh nào là hợp lệ:
A while i<=n do begin s:=s*i; i:=i+1; end;
B while i<=n do s:=s*i; i:=i+1;
C while i>n do begin s:=s*i; i:=i+1; end;
D while i>=n do s:=s*i; i:=i+1;
5 Câu lệnh khai báo biến mảng nào sau đây là hợp lệ:
A var A: array[1 10] of real; B var A: array[10 1] of real;
B var A array:[1 10] of real; D var: A array[1 10] of real;
6 Cho câu lệnh khai báo biến mảng var A: array[1 10] of real; số phần tử của mảng là:
II Hãy xác định đúng/sai cho các phát biểu dưới đây và đánh dấu X vào ô tương ứng:(1đ)
1 Trong câu lệnh lặp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối>
do <câu lệnh>; Nếu giá trị đầu nhỏ hơn giá trị cuối thì chương trình dịch
sẽ báo lỗi để ta chỉnh sửa lại
2 Trong nhiều trường hợp, việc thực hiện câu lệnh lặp while do tón ít
thời gian hơn so với lệnh fof do
3 Câu lệnh sau từ “do” trong lệnh lặp “while do” có thể không thực
hiện lần nào nếu ngay từ đầu điều kiện điều khiển vòng lặp số giá trị “sai”
4 Không nên thay đổi giá trị của biến đếm trong câu lệnh lặp for do, ví
dụ câu lệnh lặp sau đây là không sử dụng:
For i:=1 to n do begin S:=S+i; i:=i+1 end;
Trang 2III Trong các câu lệnh sau có hợp lệ không, sửa lại cho đúng nếu có (2đ)
1 For i:=10 to 1 do; s:=s+1;
………
2 s:=0; i:=0; while i<=10 do s:=s+i; i:=i+1 ………
3 Var X Array[5.5 10.5] of integer; ………
4 for i:=2 to n do if max<A[i]; then max:=A[i]; ………
IV Chương trình sau dùng để tính tổng của các số chẵn từ 1 đến 2*n với n được nhập từ bàn phím: Em hãy sắp xếp sao cho hợp lệ và sửa lỗi nếu có: program bai_thi; uses crt; var i, n, s: integer; begin clrscr; write('nhap n= '); readln(n); s:=0;i:=0; if i mod 2 := 0 then s=s+i; for i:=1 to 2*n do; write('tong la ',S:3); readln; end. ………
………
………
………
………
………
………
………
………
………
………
V Viết chương trình tính tổng S = 1 2 1
7 1 5 1 3 1 + + + + + n (2đ)