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 (68.97 KB, 2 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<i><b>Câu 1: </b>Cho a, b, min là các biến thực. Trong các câu lệnh sau, câu lệnh nào đúng ?</i>
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;
<i><b>Câu 2: </b>Cho đoạn chương trình sau:</i>
<b>x:=a; </b>
<b>if a<b then x:=b;</b>
<i>Cho a=20 ; b=15. Kết quả x bằng bao nhiêu? ( Đánh giấu vào đáp số đúng)</i>
a. 10 c. 15
b. 20 d. 25
<i><b>Câu 3: </b>Cho đoạn chương trình sau:</i>
<b>i:=1; s:=0;</b>
<b>while i<5 do </b>
<b>begin</b>
<b>s:=s+1;</b>
<b>i:=i+1; </b>
<b>end;</b>
<i>Kết quả s bằng bao nhiêu? ( Đánh giấu vào đáp số đúng)</i>
a. 3 c. 5
b. 4 d. 6
<i><b>Câu 4: </b>Cho đoạn chương trình sau:</i>
<b>p:=1;</b>
<b>for i:=1 to 6 do</b>
<b>p:=p*i;</b>
<i>kết quả p bằng bao nhiêu? ( Đánh giấu vào đáp số đúng)</i>
a. 120 c. 5040
b. 720 d. 40320
<i><b>Câu 5: Cho đoạn chương trình sau</b></i>
<b>Var</b> <b> i:byte;S,n:real;</b>
<b>Begin</b>
<b>Write(‘nhap n=’),readln(n);</b>
<b>S:=0</b>
<b>For i:=1 to n do s:=s+(1/i)</b>
<b>Write(‘tong s=’,s);</b>
<b>Readln</b>
<b>End.</b>
Đoạn chương trình trên có mấy lỗi?
a.2 c. 4
b.3 d.5
<b>Câu 6: Tự luận (5 điểm). Viết các chương trình sau:</b>
a. Nhập N từ bàn phím để tính tổng sau: s=12<sub>+2</sub>2<sub>+3</sub>2<sub>+….N</sub>2<sub>. (3 điểm)</sub>
b. 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ì