kiem tra tin 8 tiet 66

§Ò kiÓm tra : Thùc hµnh §Ò 3: Câu 1: Vẽ đờng tròn ngoại tiếp tam giác C©u 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số... §Ò kiÓm tra : Th[r]

Hä vµ tªn: …………………………………………………….…………….líp : … KiÓm tra: tin häc (45 phót) §iÓm Lêi nhËn xÐt §Ò bµi : C©u (1 ®iÓm): §Ó ch¹y ch¬ng tr×nh Turbo Pascal ta dïng tæ hîp phÝm nµo ? Câu (3 điểm): Biểu diễn thức toán học sau thành ngôn ngữ đợc Pascal : a) (a2 + b)(1 + c)3 (10  2)  24 (3  1) b) Câu (3 điểm) : Tìm lỗi sai các câu lệnh sau và chữa lại cho đúng (viết lại chơng trình đúng) Program bai tap; Var a, b, c, TB : = Integer; Const n : 3; …………………………………………… Begin ………………………………….…………… Writeln(nhap vao ba so a, b, c’); ……………………………………………… Readln(a, b, c) ……………………………………………… TB : = (a + b + c)/n ; ……………………………………………… Writeln(‘Trung binh cong cua so da cho la: ,TB’); ………………… Readln ……………………………………………… End …………………………………………… Câu : (3 điểm) Xác định biến và kiểu liệu các biến các bài toán sau: a) ViÕt ch¬ng tr×nh nhËp vµo sè nguyªn a, b, c tõ bµn phÝm, tÝnh trung b×nh céng (TB) ba số đó b) ViÕt ch¬ng tr×nh nhËp vµo hä tªn (hoten), n¨m sinh (namsinh)vµ ®iÓm trung b×nh (§TB) cña c¸c häc sinh líp 8A c) B¹n TuÊn ch¹y mét vßng s©n trêng h×nh ch÷ nhËt cã chiÒu réng lµ a mÐt, chiÒu dµi là b mét khoảng thời gian là t giây Viết chơng trình để tính vận tốc trung bình v cña b¹n TuÊn Bµi lµm : ……………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………………………… ……………………………………………………………………………………………………………… ……………………………… Hä vµ tªn: …………………………………………………….…………….líp : … KiÓm tra: §iÓm tin häc (45 phót) Lêi nhËn xÐt §Ò ra: I.trắc nghiệm khách quan:(khoanh trớc đáp án đúng) C©u : Trong Pascal, lÖnh For to lµ lÖnh a LÆp víi sè lÇn biÕt tríc; b LÆp víi sè lÇn cha biÕt tríc; c LÖnh ®iÒu kiÖn; Câu : Trong các câu lệnh sau câu lệnh nào đúng ? a For i:= 1.5 to 10.5 writeln(‘lenh dung’); b For i:= to 10 do; writeln(‘lenh dung’); c For i:= to 10 writeln(‘lenh dung’); d For i:= 10 to writeln(‘lenh dung’); C©u 3: s := 10; n := 0; While s <= 10 begin n = n + 1; s := s + n; end; ý nghÜa cña ®o¹n ch¬ng tr×nh trªn lµ : a TÝnh tæng cña 10 sè tù nhiªn b TÝnh tæng cña 10 sè tù nhiªn ®Çu tiªn c Tính tổng n số tự nhiên đầu đầu tiên đến tổng lớn 10 thì dừng lại d Tính tổng n số tự nhiên đến tổng lớn 10 thì dừng lại Câu : Câu lệnh nào sau đây là đúng ? a) x:= while x < 15 x := x + 2; b) x := 5; while x > 15 x := x + 2; c) x := 5; while x := 15 x:= x + 2; d) x := 5; while x < ; x := x + 2; II.tù luËn: C©u : (3 ®iÓm) : ViÕt ch¬ng tr×nh tÝnh vµ in tæng A sau: A = + + + + + n Víi n nhËp vµo tõ bµn phÝm C©u 2: ViÕt ch¬ng tr×nh nhËp chiÒu cao cña hai b¹n Minh vµ H»ng, in mµn h×nh kÕt qu¶ so s¸nh chiÒu cao cña hai b¹n Bµi lµm: §Ò kiÓm tra : Thùc hµnh §Ò 1: Câu 1: Vẽ tam giác C©u 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử dãy số Độ dài dãy nhập từ bàn phím Chương trình có thể sau: var N, i: integer; A: array[1 100] of real; begin write('Nhap so phan tu cua mang, n= ',n); for i:=1 to n write('Nhap gia tri ',i,'cua mang, a[',i,']= '); end §Ò kiÓm tra : Thùc hµnh §Ò2: C©u 1: VÏ h×nh vu«ng C©u 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử dãy số Độ dài dãy nhập từ bàn phím Chương trình có thể sau: var N, i: integer; A: array[1 100] of real; begin write('Nhap so phan tu cua mang, n= ',n); for i:=1 to n write('Nhap gia tri ',i,'cua mang, a[',i,']= '); end §Ò kiÓm tra : Thùc hµnh §Ò 3: Câu 1: Vẽ đờng tròn ngoại tiếp tam giác C©u 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử dãy số Độ dài dãy nhập từ bàn phím Chương trình có thể sau: var N, i: integer; A: array[1 100] of real; begin write('Nhap so phan tu cua mang, n= ',n); for i:=1 to n write('Nhap gia tri ',i,'cua mang, a[',i,']= '); end §Ò kiÓm tra : Thùc hµnh §Ò 4: C©u 1: VÏ h×nh thang c©n C©u 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử dãy số Độ dài dãy nhập từ bàn phím Chương trình có thể sau: var N, i: integer; A: array[1 100] of real; begin write('Nhap so phan tu cua mang, n= ',n); for i:=1 to n write('Nhap gia tri ',i,'cua mang, a[',i,']= '); end §Ò kiÓm tra : Thùc hµnh §Ò 5: Câu 1: Vẽ đờng tròn ngoại tiếp tam giác C©u 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử dãy số Độ dài dãy nhập từ bàn phím Chương trình có thể sau: var N, i: integer; A: array[1 100] of real; begin write('Nhap so phan tu cua mang, n= ',n); for i:=1 to n write('Nhap gia tri ',i,'cua mang, a[',i,']= '); end