Đang tải... (xem toàn văn)
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.. Thùc h[r]
(1)së GD - §T 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 Mục tiêu đánh giá: §¸nh gi¸ kÕt qu¶ tiÕp thu cña häc sinh sau häc §11 Mục đích, yêu cầu đề: KiÕn thøc: - Hiểu và thực cách khai báo, truy cập đến các phần tử mảng - Cài đặt thuật toán bài toán đơn giản với kiểu liệu mảng Ma trận đề: BiÕt C©u HiÓu C©u VËn dông 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¶ 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ảng các số nguyên đếm xem có bao nhiêu phÇn tö cã gi¸ trÞ b»ng 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 readln(a[i]); for i:=1 to n If a[i]=1 then d:=d+1; Writeln('So phan tu co gia tri =1 la: ',d:4); Readln End Lop11.com ®iÓm ®iÓm ®iÓm (2)