Tiết 60. Bài Tập

Mục đích, yêu cầu: Làm các bài tập để: + Nắm rõ đợc khái niệm mảng một chiều.. + Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng.. + Hiểu thuật toán tìm số lớn nhất, số

Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.

D ạy Lớp: 8B; 8C; 8D Ngày soạn: 12/04/2009.

Ti ết PPCT: 60 Ngày dạy: 14/04/2009.

Bài tập.

I Mục đích, yêu cầu:

Làm các bài tập để:

+) Nắm rõ đợc khái niệm mảng một chiều

+) Biết cách khai báo mảng, nhập, in, truy cập các phần tử của mảng

+) Hiểu thuật toán tìm số lớn nhất, số nhỏ nhất của một dãy số

II Chuẩn bị:

GV: Soạn bài, đọc tài liệu tham khảo, dụng cụ dạy học

HS: Xem lại kiến thức bài học trớc, làm bài tập ở nhà, dụng cụ học tập

III Tiến trình dạy học:

Hoạt động 1:

GV: Yêu cầu làm bài tập sau:

Bài 1: Hãy viết chơng trình nhập 5 số ngyên

từ bàn phím và ghi ra màn hình số lớn nhất

trong 5 số đó theo hai cách: không sử dụng

biến mảng và sử dụng biến mảng

GV Yêu cầu viết chơng trình có sử dụng

biến mảng và không sử dụng biến mảng

GV: Kiểm tra nhận xét, sửa sai nếu cần

HS: Thc hiện và trình bày:

a) Nếu không sử dụng biến mảng, chơng

trình có thể dài nh sau:

uses crt;

var So_1, So_2, So_3, So_4, So_5, Max: integer;

begin clrscr;

write('Nhap so thu nhat: ');

readln(So_1);

write('Nhap so thu hai: '); readln(So_2); write('Nhap so thu ba: '); readln(So_3); write('Nhap so thu tu: '); readln(So_4); write('Nhap so thu nam: ');

readln(So_5);

Max:=So_1;

If Max<So_2 then Max:=So_2;

If Max<So_3 then Max:=So_3;

If Max<So_4 then Max:=So_4;

If Max<So_5 then Max:=So_5;

writeln('So lon nhat: ',Max);

end.

b) Nếu sử dụng biến mảng, chơng trình chỉ

ngắn gọn nh sau:

Giáo án tin học lớp 8.

Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh.

Hoạt động 2:

Bài 2: Viết chơng trình sử dụng biến mảng

để tính giá trị trung bình của tổng N số

nguyên đợc nhập vào từ bàn phím

GV: Kiểm tra tính đúng đắn của đoạn

ch-ơng trình trên

Hoạt động 3:

Hớng dẫn về nhà:

Xem lại phần lý thuyết và các bài tập đã

làm, ôn tập kỹ tiết sau kiểm tra thực hành

uses crt;

var i, Max: integer;

A: array[1 5] of integer;

begin clrscr;

for i:=1 to 5 do begin write('Nhap so thu ',i,':');

readln(A[i]) end;

Max:=a[1];

for i:=2 to 5 do If Max<a[i] then Max:=a[i];

writeln('So lon nhat: ',Max);

end.

HS: Thực hiện

Bài 2: Viết chơng trình sử dụng biến mảng

để tính giá trị trung bình của tổng N số nguyên đợc nhập vào từ bàn phím

uses crt;

var N, i: integer;

TB: real;

A: array[1 100] of real;

begin clrscr;

write(’Nhap so phan tu cua mang, n= ’); read(n);

for i:=1 to n do begin

write(’Nhap gia tri ’,i,’cua mang, a[’,i,’]= ’);

readln(a[i]) end;

TB:=0;

for i:=1 to n do TB:=TB+a[i];

TB:=TB/n;

write(’Trung binh bang ’,TB);

end

Giáo án tin học lớp 8.