KT 15p K11- tháng 12 tự luận

Họ và tên:................................................. Lớp: 11.......
KIỂM TRA 15 PHÚT
Đề số 01.
Câu 1. (3 điểm)
Hãy sửa lại các lỗi (viết sang bên cạnh) có trong chương trình Pascal sau để được chương trình đúng:
Progam Bai1;
Var a,b,c = integer;
Begin
a = 100;
b := 200
c:=a x b;
Write(‘Gia tri cua c la:’,c); Readln.
End.







Câu 2 (3 điểm)
Không thực hiện chương trình, hãy đoán nhận kết quả thực hiện chương trình Pascal sau (Hãy nêu kết quả hiện ra màn hình khi thực hiện chương trình):
Program Bai2;
Var x, y: integer;
Begin
x: = 10; y:= 20;
x:= x + 10;
y:= x-y;
Writeln(‘Gia tri moi cua x= ’, x);
Writeln(‘Gia tri moi cua y= ’, y);
Readln ;
End.
Câu 3 (4 điểm)
Lập chương trình nhập 2 số nguyên a và b vào từ bàn phím. Hãy tính và đưa ra màn hình tổng các số trong khoảng từ a đến b (a(Phần làm bài câu 2, 3 trình bày ở trang bên)
Họ và tên:................................................. Lớp: 11.......
KIỂM TRA 15 PHÚT
Đề số 02.
Câu 1. (3 điểm)
Hãy sửa lại các lỗi (viết sang bên cạnh) có trong chương trình Pascal sau để được chương trình đúng:
Program Bai1;
Var x,y,z : interger;
Begin :
x := 100; y := 30
z :=x:y;
Write(‘Gia tri cuoi cung la: ’, c);
Readln;
End









Câu 2 (3 điểm)
Không thực hiện chương trình, hãy đoán nhận kết quả thực hiện chương trình Pascal sau (Hãy nêu kết quả hiện ra màn hình khi thực hiện chương trình):
Program Bai2;
Var x, y: integer;
Begin
x: = 10;
y:= 20;
x:= y + 10;
y:= x-y;
Writeln(‘Gia tri moi cua x= ’, x);
Writeln(‘Gia tri moi cua y= ’, y);
Readln
End.
Câu 3 (4 điểm)
Lập chương trình nhập 2 số nguyên x và y vào từ bàn phím. Tính và đưa ra màn hình tích các số trong khoảng từ x đến y (x(Phần làm bài câu 2, 3 trình bày ở trang bên)
Họ và tên:................................................. Lớp: 11......
KIỂM TRA 15 PHÚT
Đề số 03.
Câu 1. (3 điểm)
Hãy sửa các lỗi (viết sang bên cạnh) có trong chương trình Pascal sau để được chương trình đúng:
Program 1Baitap;
Var a,b;c : integer;
Begin.
a = 200;
b := 10;
c:=a.b;
Write(‘Gia tri cua c la: ’,c);
Realln;
End.








Câu 2 (3 điểm)
Không thực hiện chương trình, hãy đoán nhận kết quả thực hiện chương trình Pascal sau (Hãy nêu kết quả hiện ra màn hình khi thực hiện chương trình):
Program Bai2;
Var x, y: integer;
Begin
x: = 10;
y:= 20;
x:= x*3;
y:= x-y;
Writeln(‘Gia tri moi cua x= ’, x);
Writeln(‘Gia tri moi cua y= ’, y);
Readln ;
End.

Câu 3 (4 điểm)
Lập chương trình nhập 2 số nguyên m và n vào từ bàn phím, đưa ra màn hình tổng các số lẽ trong khoảng từ m đến n (m
(Phần làm bài câu 2, 3 trình bày ở trang