Bài kiểm tra 15 phút năm học: 2008 - 2009 moomn Tin học - Khối 11

<span class='text_page_counter'>(1)</span>së GD - §T thanh hãa. Trường THPT Vĩnh Lộc ---------***---------. Bµi kiÓm tra 15 phót. N¨m häc: 2008 - 2009 M«n: Tin häc Khèi 11 Hä vµ tªn GV: §ç ThÞ Thu HiÒn. 1. Mục tiêu đánh giá: §¸nh gi¸ kÕt qu¶ tiÕp thu cña häc sinh sau khi häc §11 2. Mục đích, yêu cầu của đề: KiÕn thøc: - Hiểu và thực hiện cách khai báo, truy cập đến các phần tử của mảng - Cài đặt được thuật toán của bài toán đơn giản với kiểu dữ liệu mảng 3. Ma trận đề: BiÕt C©u 1 HiÓu C©u 2 VËn dông 4. Nội dung đề: C©u 1: Trong NNLT Pascal, h·y khai b¸o m¶ng mét chiÒu gåm 100 phÇn tö cã gi¸ trÞ kiÓu real. (Thùc hiÖn b»ng c¶ 2 c¸ch trùc tiÕp vµ gi¸n tiÕp) Câu 2: Viết chương trình nhập vào một mảng các số nguyên rồi đếm xem có bao nhiêu phÇn tö cã gi¸ trÞ b»ng 1 5. Hướng dẫn chấm và giải: C©u 1: (4 ®iÓm) C¸ch 1: Trùc tiÕp (1 ®iÓm) Var A: array[1..100] of real; C¸ch 2: Gi¸n tiÕp (1 ®iÓm) Type Ka =array[1..100] of real; Var A: Ka; C©u 2: (6 ®iÓm) Chương trình Thang ®iÓm program Bai_tap; Uses crt; Var a:array[1..100] of integer; n,i,d: integer; Begin clrscr; d:=0; Write('Nhap n: '); Readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do If a[i]=1 then d:=d+1; Writeln('So phan tu co gia tri =1 la: ',d:4); Readln End.. Lop11.com. 2 ®iÓm. 2 ®iÓm. 2 ®iÓm.

<span class='text_page_counter'>(2)</span>