Nhập vào N số nguyên dương, kiểm tra xem có bao nhiêu số dương và tính tổng của chúng.(HD: dùng for..do để nhập từng số hạng,nếu số nhập vào là dương thìa. dem:=dem+1,tong:=tong+số dươn[r]
(1)Đề kiểm tra tiết tin học 11 Đề 1:
Câu 1: Cho a, b, biến thực Trong câu lệnh sau, câu lệnh ?
a If a<b;then min:=a ;
b If a<b then min=a else min=b; c If a<b then min:=a else min:=b; Câu 2: Cho đoạn chương trình sau:
x:=a;
if a<b then x:=b;
Cho a=20 ; b=15 Kết x bao nhiêu? ( Đánh giấu vào đáp số đúng)
a 10 c 15
b 20 d 25
Câu 3: Cho đoạn chương trình sau:
i:=1; s:=0; while i<5
begin
s:=s+1; i:=i+1; end;
Kết s bao nhiêu? ( Đánh giấu vào đáp số đúng)
a c
b d
Câu 4: Cho đoạn chương trình sau:
p:=1;
for i:=1 to do p:=p*i;
kết p bao nhiêu? ( Đánh giấu vào đáp số đúng)
a 120 c 5040
b 720 d 40320
Câu 5: Cho đoạn chương trình sau Var i:byte;S,n:real; Begin
Write(‘nhap n=’),readln(n); S:=0
For i:=1 to n s:=s+(1/i) Write(‘tong s=’,s);
Readln End.
Đoạn chương trình có lỗi?
a.2 c
b.3 d.5
Câu 6: Tự luận (5 điểm) Viết chương trình sau:
a Nhập N từ bàn phím để tính tổng sau: s=12+22+32+….N2 (3 điểm)
b Nhập vào N số nguyên dương, kiểm tra xem có số dương tính tổng chúng.(HD: dùng for để nhập số hạng,nếu số nhập vào dương
(2)