Tiet 48 KT1tiet Tin 8

3 118 0
Tiet 48 KT1tiet Tin 8

Đang tải... (xem toàn văn)

Thông tin tài liệu

Trờng THCS Nga Thuỷ Kiểm tra : 45 phút Họ và tên: Lớp: Môn: Tin học 8 -Đề lẻ Điểm Nhận xét của thầy cô giáo I. Trc nghim : Khoanh trũn ch cỏi ng trc kt qu ỳng Cõu 1 : Phỏt biu no sau õy l ỳng ? A. Cu trỳc lp c s dng ch th cho mỏy tớnh thc hin lp li mt vi hot ng no ú cho n khi mt iu kin no ú c tho món. B. Ch ngụn ng lp trỡnh Pascal mi cú cỏc cõu lnh lp th hin cu trỳc lp. C. Ngụn ng Pascal th hin cu trỳc lp vi s ln lp cho trc bng cõu lnh whiledo Cõu 2 : Cõu lnh pascal no sau õy l hp l? A. For i:=100 to 1 do writeln(A); B. For i:=1.5 to 10.5 do writeln(A); C. For i:= 1 to 10 do writeln(A); D. For i= 1 to 10 do writeln(A); Cõu 3 : Vũng lp while do l vũng lp: A. Cha bit trc s ln lp B. Bit trc s ln lp C. Bit trc s ln lp nhng gii hn l <=100 D.Bit trc s ln lp nhng gii hn l >=100 Cõu 4 : Hãy tìm hiểu đoạn lệnh sau và cho biết đoạn lệnh đó thực hiện bao nhiêu vòng lặp: s:=0; n:=0; While s<=10 do Begin n:=n+1; S:= S+n; End; A.11 B. 10 C. 9 D. 8 Cõu 5 : Chng trỡnh pascal sau s in ra mn hỡnh ni dung gỡ? Var i: integer; BEGIN For i:=1 to 10 do writeln(Day la lan lap thu ,i); Readln; END. A. 1 cõu Day la lan lap thu i; B. 1 cõu Day la lan lap thu , i; C. 10 cõu Day la lan lap thu , i; D. 10 cõu "Day la lan lap thu i vi i theo th t t 1->10; Cõu 6 : Cho S v i l bin nguyờn. Khi chy on chng trỡnh : s:=0; for i:=1 to 5 do s := s+i; writeln(s); Kt qu in lờn mn hỡnh l ca s l : A.15 B. 55 C. 101 D.11 II. T lun: Câu1: Nêu cú pháp và ý nghĩa của câu lệnh lặp với số lần cha biết trớc. Câu 2: Vit chng trình s dng câu lnh lp For to do tính tng T= 1+2+3 +100 Câu 3: Vit chng trỡnh s dng cõu lnh lp While do để tính tổng T= 1+2+3 +100 . Trờng THCS Nga Thuỷ Kiểm tra : 45 phút Họ và tên: Lớp: Môn: Tin học 8 -Đề lẻ Điểm Nhận xét của thầy cô giáo I. Trc nghim : Khoanh trũn ch cỏi ng trc kt qu ỳng Cõu. nhiêu vòng lặp: s:=0; n:=0; While s<=10 do Begin n:=n+1; S:= S+n; End; A.11 B. 10 C. 9 D. 8 Cõu 5 : Chng trỡnh pascal sau s in ra mn hỡnh ni dung gỡ? Var i: integer; BEGIN For i:=1 to 10

Ngày đăng: 29/06/2014, 15:00

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan