Câu 1: Hãy chỉ ra lỗi sai trong đoạn chương trình pascal sauđánh dấu x vào câu lệnh sai, viết lại để có chương trình đúng.. 3điểm C©u lÖnh..[r]
(1)phòng GD - đt sơn động Đề kiểm tra chất lượng học kì I N¨m häc 2008 – 2009 M«n: Tin häc Thêi gian: 45 phót I/tr¾c nghiÖm (3điểm) C©u 1: Trong c¸c tªn sau ®©y, tªn nµo lµ hîp lÖ ng«n ng÷ Pascal? a- 8a b- Tamgiac c- Program d- Bai Tap Câu 2: Để chạy chương trình ta sử dụng tổ hợp phím nào? a- Ctrl +F9 b- Ctrl + Shift + F9 c- F9 d- Alt + F9 Câu 3: Trong Pascal khai báo nào sau đây đúng? a- Var R=100; b- Type 4hs: integer; c- Const x:real; d- Var tb:real; C©u 4: BiÓu thøc to¸n häc (a2 + 1)(b+1)2 ®îc biÓu diÔn nh thÕ nµo? a- (a*a +1)(b+1)(b+1) c- (a*a +1)*(b+1)^2 c- (a*a + 1)*(b+1)*(b+1) d- (a^2 +1)(b+1)^2 Câu 5: Cho đoạn chương trình sau: Writeln(‘Ban hay nhap nam sinh:’); Readln(NS); ý nghÜa cña c©u lÖnh trªn lµ: a- Th«ng b¸o mµn h×nh dßng ch÷ “ Ban hay nhap nam sinh ” b- Thông màn hình dòng chữ “ Ban hay nhap nam sinh ” và yêu cầu người sử dông nhËp gi¸ trÞ cho biÕn NS c- Yêu cầu người sử dụng nhập giá trị cho biến NS d- Tất sai Câu 6: Cú pháp câu lệnh điều kiện dạng đầy đủ: a- If <®iÒu kiÖn > then <c©u lÖnh>; b- If <c©u lÖnh 1> then <®iÒu kiÖn> else <c©u lÖnh 2>; c- If <®iÒu kiÖn > then <c©u lÖnh1> else <c©u lÖnh 2>; d- §¸p ¸n kh¸c II/ Tù luËn: (7®iÓm) C©u 1(1®iÓm) Viết các biểu thức toán sau đây dạng biểu thức Pascal a- a2 2b c b- 10 x 2 3 y 18 5 y C©u 2: H·y m« t¶ thuËt to¸n tÝnh tæng c¸c sè ch½n d·y sè A={a1, a2, an}(2®iÓm) Câu 3: Viết chương trình nhập số a, b từ bàn phím, kiểm tra xem tổng số là sè ch½n hay lÎ (4 ®iÓm) -HÕt -Lop8.net (2) phòng GD - đt sơn động Đề kiểm tra chất lượng học kì II N¨m häc 2008 – 2009 M«n: Tin häc Thêi gian: 45 phót I/tr¾c nghiÖm (3điểm) Câu 1: Đâu là công việc phải thực nhiều lần với số lần biết trước? a Hµng ngµy em ®i häc b Em bÞ èm vµo dÞch cóm c §Õn nhµ bµ ngo¹i ch¬i vµo mét h«m bè mÑ ®i v¾ng d Ngày đánh ba lần Câu 2: Số vòng lặp câu lệnh For <biến đếm>:=<giá trị đầu> to <giá trị cuối> <câu lệnh>; ta luôn xác định và bằng: a- Gi¸ trÞ ®Çu + gi¸ trÞ cuèi – 1; b- Giá trị cuối – biến đếm + 1; c- Gi¸ trÞ cuèi – gi¸ trÞ ®Çu +1; d-Giá trị đầu + biến đếm – 1; Câu 3: Sau thực đoạn chương trình j:=0 for i:=1 to j:=j+2; thì giá trị j in mµn h×nh lµ: a- 4; b- 6; c- 8; d-10 C©u 4: Có ph¸p cña khai b¸o m¶ng Pascal? a- var <tªn m¶ng>;array[<chØ sè ®Çu> <chØ sè cuèi>] of<kiÓu d÷ liÖu> b- var <tªn m¶ng>:array[<chØ sè ®Çu> , <chØ sè cuèi>] of<kiÓu d÷ liÖu> c- var <tªn m¶ng>:array[<chØ sè cuèi> <chØ sè ®Çu>] of<kiÓu d÷ liÖu> d- var <tªn m¶ng>:array[<chØ sè ®Çu> <chØ sè cuèi>] of<kiÓu d÷ liÖu> Câu 5: Đoạn lệnh nào đúng? a- If a=5 then b-If a=5 then Begin a:=d+1; b:=2; end a:=d+2; b:=2; Else a:=d+2; c- if a:=5 then d- If a=5 then Begin a:=d+1; b:=2; end Begin a:=d+1; b:=2 end; Else a:=d+2; Else a:=d+2 C©u 6: §o¹n lÖnh sau cho kÕt qu¶ g×? so:=2; While so<5 writeln(so); so:=so+1; a- In kết từ đến b- In các số từ đến c- In sè d- In v« h¹n sè Lop8.net (3) II/ Tù luËn : (7®iÓm) Câu 1: Hãy lỗi sai đoạn chương trình pascal sau(đánh dấu x vào câu lệnh sai), viết lại để có chương trình đúng (3điểm) C©u lÖnh Sai Söa l¹i Program Thi HK II; Var i,n=integer; S:Integer; Begin Readln(n); For i:=1 to n do; S:=S+i; Writeln(S); Readln End; Câu 2:Viết chương trình nhập vào dãy số nguyên, đếm các số chẵn có dãy (4đ) -HÕt Lop8.net (4) phòng GD - đt sơn động Đề kiểm tra chất lượng học kì II N¨m häc 2008 – 2009 M«n: Tin häc Thêi gian: 45 phót I/tr¾c nghiÖm (3điểm) C©u 1: Trong Pascal phÐp g¸n nµo hîp lÖ a S b S:=3 c S=3 d S:3 C©u 2: Víi ng«n ng÷ lËp tr×nh Pascal c©u lÖnh lÆp For i:=1 to 10 n:=n+2; th× biÕn đếm I phảI khai báo kiểu liệu là: a- Integer; b- String; c- Real; d- Const; C©u 3: LÖnh For i:=3 to 10 Vßng lÆp thùc hiÖn bao nhiªu lÇn? a- 7lÇn; b- 6lÇn; c- 8lÇn; d-9 lÇn Câu 4: Cho đoạn chương trình S:=0; For i:=1 to S:=S*i; Sau thùc hiÖn xong kÕt qu¶ cña S lµ: a- 20 b- 0; c- 25; d- 42 C©u 5: C©u lÖnh nµo sau ®©y lÆp v« h¹n lÇn? a- s:=5; i:=0; b s:=5; i:=0; while i<=s while i<=s s:=s+i; i:=i+1; c- -s:=5; i:=1; d- s:=5; i:=0; while i>s while i<=s begin i:=i+1; s:=s+i; i:=i+1; end; Câu 6: Lần lượt thực đoạn lệnh a[1]:=2; a[2]:=4; s:=(a[1]^2+a[2]*2)+1 Gi¸ trÞ cña S lµ: a- 13 b- c- 10 d-7 II/ Tù luËn : (7®iÓm) C©u 1: (3®iÓm) Cho đoạn chương trình sau: n:=6; S:=0; For i:=1 to n If (i mod = ) then S:= S+i; Lần lượt điền các giá trị tương ứng thực đoạn lệnh trên: i i mod S Câu 2:Viết chương trình nhập vào dãy số nguyên, tính tổng các phần tử dương có d·y (4®) -HÕt -Lop8.net (5) phòng GD - đt sơn động Đề kiểm tra chất lượng học kì I N¨m häc 2008 – 2009 M«n: Tin häc Thêi gian: 45 phót I/tr¾c nghiÖm (3điểm) Câu 1: Từ khoá để khai báo biến ngôn ngữ lập trình pascal là: A Const B Var C Real D End Câu 2: Cấu trúc chung hợp lý chương trình Pascal là : A Begin -> Program -> End B Program -> End -> Begin C End -> Program -> Begin D Program -> Begin -> End Câu 3: Trong Pascal khai khai báo nào sau đây là đúng : A Var hs : real; B Var 5hs : real; C Const hs : real; D Var S = 24; a2 C©u 4: BiÓu thøc to¸n häc 3b c 3b ®îc biÓu diÔn nh thÕ nµo? A- a*a /(3b+1)*3*b B- a*a/((3*b – c)*3*b C- a^2 /(3*b+1)*3*b D- a^2 /(3b+1)3b C©u 5: PhÇn nguyªn phÐp chia cña sè 16 vµ lµ A 16 div = B 16 mod = C 16 div = D 16 mod = C©u 6: Cho biÕn A:=’12abc’, A ph¶i ®îc khai b¸o biÕn kiÓu d÷ liÖu lµ: A- Longint B- Char C- Integer D-Real; II/ Tù luËn : (7®iÓm) Câu 1:Viết các biểu thức toán sau đây dạng biểu thức Pascal :(1 điểm) y z 1 z a x3 x Câu 2: Hãy lỗi sai chương trình sau sau đó sửa lại cho đúng?(2điểm) Program vi_du; Var a,b := integer; Const c := 3; Begin a := 200 b := a/c ; write (b); readln; End C©u 3: (4 ®iÓm) Viết chương trình nhập số a, b, c, d từ bàn phím Đưa màn hình giá trị lớn và nhỏ các số đó -HÕt -Lop8.net (6) Lop8.net (7)