Tải bản đầy đủ (.doc) (5 trang)

DE KT HOC KI 1 TIN 11 (ct 1t/tuan)

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (85.45 KB, 5 trang )

Đề kiểm tra học kì 1
Môn Tin học 11
(thời gian 45 phút)
Câu 1) (1 điểm):Trong Pascal có biểu thức: (sqr(x) + sqr(y))/(a + sin(x)) hãy
chuyển biểu thức này sang dạng toán học
Câu 2) (2 điêm): Chưong trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ
cho các biến trong khai báo sau:
Var i, j , k , dem : integer ;
A, B, S : real ;
X: extended ;
Câu 3) (1 điểm): m là một số nguyên khi chia m cho 100 dư nhỏ hơm 10 và
phần nguyên lớn hơn 0. Trong ngôn ngữ Pascal hãy viết biểu thức logic kiểm
tra m thoả mãn điều kiện trên.
Câu 4) (1 điểm): Kết thúc vòng lặp sau T nhận gia trị bao nhiêu khi nhập vào từ
bàn fím m = 11, n = 29
Var T: logint
m, n, i : integer;
BEGIN
T:= 0;
For i:=m to n do
if (i mod 4 = 0) and (i mod 6 = 0) then
T:=T + i;
END.
Câu 5) (5 điểm)
a./ Viết chương trình nhập vào từ bàn fím đường kính của một đường tròn và
chiếu lên màn hình diện tích và chi vi của đường tròn đó
b./ Viết chương trình nhập vào từ bàn fím 2 số nguyên m, n kiểm tra xem nếu
m < n thì tính tông các số từ m đến n còn m > n thì hiện lên màn hình câu “mời
bạn nhập lại”.
Thông báo kết quả lên màn hình
-----------------------------------


Bài làm:
Họ và tên
Lớp
Đề kiểm tra học kì 1
Môn Tin học 11
(thời gian 45 phút)
Câu 1) (1 điểm):Trong Pascal có biểu thức: sqr(x) + sqr(y)/(a + sin(x)) hãy
chuyển biểu thức này sang dạng toán học
Câu 2) (2 điêm): Chưong trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ
cho các biến trong khai báo sau:
Var i, j , dem : integer ;
A, B, S ,T : real ;
X: extended ;
Câu 3) (1 điểm): m là một số nguyên khi chia m cho 50 dư nhỏ hơm 10 và
phần nguyên lớn hơn 0. Trong ngôn ngữ Pascal hãy viết biểu thức logic kiểm
tra m thoả mãn điều kiện trên.
Câu 4) Kết quả khi thực hiện vòng lặp sau S nhận giá trị là bao nhiêu
i:= 1 ; S:= 1
While i < = 5 do Begin
S:= S + i;
i: = i + 1;
End.
Giá trị của S là:
Câu 5) (5 điểm)
a./ Viết chương trình nhập vào từ bàn fím hai số nguyên m, n là độ dài đường
cao và cạnh đáy của một tam giác và chiếu lên màn hình diện tích của tam giác
đó
b./ Viết chương trình nhập vào từ bàn fím 2 số nguyên m, n kiểm tra xem nếu
m < n thì tính tổng các số từ m đến n còn m > n thì hiện lên màn hình giá trị
m - n

Thông báo kết quả lên màn hình
-----------------------------------
Bài làm:
Họ và tên
Lớp
Đề kiểm tra học kì 1
Môn Tin học 11
(thời gian 45 phút)
Câu 1) (1 điểm):Trong Pascal có biểu thức: (sqr(x) + sqr(y))/a + sin(x) hãy
chuyển biểu thức này sang dạng toán học
Câu 2) (2 điêm): Chưong trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ
cho các biên trong khai báo sau:
Var i, j , k , dem : Byte;
A, B, S : real ;
Z : Word ;
Câu 3) (1 điểm): m là một số nguyên dương và là số chia hết cho 3. Trong
ngôn ngữ Pascal hãy viết biểu thức logic kiểm tra m thoả mãn điều kiện trên.
Câu 4) (1 điểm): Với vòng lặp sau khi nhập n = 5, S sẽ có giá trị là bao nhiêu :
Var n : integer;
BEGIN
READLN(n) ;
S: =3;
For i := 1 TO n DO
S := S + i ;
END.
Câu 5) (5 điểm)
a./ Viết chương trình nhập vào từ bàn fím hai số thực m, n là độ dài đường cao
và cạnh của một hình bình hành và chiếu lên màn hình diện tích của hình bình
hành đó
b./ Viết chương trình nhập vào từ bàn fím 2 số nguyên m, n kiểm tra xem nếu

m , n là các số chẵn thì tính tổng các số nằm trong khoảng (m, n) còn m lẽ hoặc
n lẽ thì hiện lên màn hình giá trị thương của m và n
Thông báo kết quả lên màn hình
-----------------------------------
Bài làm:
Họ và tên
Lớp
Đề kiểm tra học kì 1
Môn Tin học 11
(thời gian 45 phút)
Câu 1) (1 điểm):Trong Pascal có biểu thức: sqrt(sqr(x) + sqr(y))/(a + sin(x))
hãy chuyển biểu thức này sang dạng toán học
Câu 2) (2 điêm): Chưong trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ
cho các biên trong khai báo sau:
Var i, j , k , dem : word ;
A, B, S : Integer;
X, y, tong : extended ;
Câu 3) (1 điểm): m là một số nguyên dương hoặc m là số lẽ . Trong ngôn ngữ
Pascal hãy viết biểu thức logic kiểm tra m thoả mãn điều kiện trên.
Câu 4) (1 điểm): Cho x = 18 , y = 22, Lệnh write(i) dưới đây chiếu lên màn
hình giá trị bao nhiêu?
Var i, x, y: integer
BEGIN
Readln(x, y);
If x > y then
begin
i := x
else
i:= y - x;
Write(i)

end;
END.
Câu 5) (5 điểm)
a./ Viết chương trình nhập vào từ bàn fím hai số thực m, n là độ dài đường cao
và cạnh đáy của một tam giác và chiếu lên màn hình diện tích của tam giác đó
b./ Viết chương trình nhập vào từ bàn fím 2 số nguyên m, n (m < n) kiểm tra
xem nếu m , n là các số lẽ thì tính tổng các số từ m đến n còn m hoặc n là số
chẵn thì hiện lên màn hình giá trị biểu thức m + 2nS
Thông báo kết quả lên màn hình
-----------------------------------
Bài làm:
Họ và tên
Lớp

×