Đề kiểm tra 1 tiết Tin 8 Hk2 bai 1 năm học 2012_2013

PHÒNG GD&ĐT SI MA CAITRƯỜNG PTDTBT THCS NÀN SÍN ĐỀ KIỂM TRA 1 TIẾT Năm học: 2012 - 2013 Môn: Tin học - Lớp: 8 Thời gian làm bài: 45 phút Em hãy viết chương trình dùng ngôn ngữ Pascal nhậ

Trang 1

Ngày soạn: 09/03/2013

Ngày giảng: Thứ ba 12/03/2013 8A tiết 3 (sáng); 8B tiết 4 (sáng)

PHÒNG GD&ĐT SI MA CAI

TRƯỜNG PTDTBT THCS NÀN SÍN MA TRẬN ĐỀ KIỂM TRA 1 TIẾT

Năm học: 2012 - 2013 Môn: Tin học - Lớp: 8

Thời gian làm bài: 45 phút

(Đề thực hành-HK 2 bài 1)

Mức độ

Nội dung

Tổng

Làm việc với

Luyện gõ

phím nhanh

với Finger

Break Out

Tìm hiểu thời

gian với phần

mềm Sun

Times

======================= Hết =========================

Trang 2

TRƯỜNG PTDTBT THCS NÀN SÍN ĐỀ KIỂM TRA 1 TIẾT

Em hãy viết chương trình (dùng ngôn ngữ Pascal) nhập vào từ bàn phím một dãy số tự nhiên gồm N phần tử rồi in ra trên màn hình số lớn nhất trong dãy số đó

======================= Hết =========================

Trang 3

TRƯỜNG PTDTBT THCS NÀN SÍN HD CHẤM VÀ ĐÁP ÁN

Uses CRT;

Var i,N, Max: Integer;

A: Array[1 100] Of Integer;

0,75

Khai báo biến:

i,N, Max: Integer; (0,25đ) A: Array[1 100] Of Integer; (0,5đ)

CLRSCR;

Write('Nhap so luong phan tu cua day so,

N = '); Readln(N);

0,5 Nhập số phần tử có thật của mảng (N ≤ 100)

Writeln('Nhap cac phan tu cua day so:');

For i:=1 To N Do

Begin

Write('A[',i,'] = '); Readln(A[i]);

End;

3 Nhập giá trị cho các phầntử của mảng từ bàn phím

Max:=A[1];

For i:=2 To n Do

Begin

If Max<A[i] Then max:=A[i];

End;

3 Tìm số lớn nhất

Writeln('So lon nhat la Max = ', Max); 2 In số lớn nhất ra màn hình Readln;

Số liệu nhập thử khi chạy chương trình:

Nhap so luong phan tu cua day so, N = 5 Nhap cac phan tu cua day so:

A[1] = 78 A[2] = 98 A[3] = 45

Trang 4

A[4] = 67 A[5] = 65

So lon nhat la Max = 98

- Ghi chú: Học sinh có cách làm khác mà đúng với yêu cầu bài toán vẫn tính điểm tối

đa Chỉ tính điểm ở các câu lệnh in đậm

======================= Hết =========================

Định dạng
Số trang	4
Dung lượng	32 KB