Tiết 60. Bài Tập

Trờng THCS Sơn Tiến Giáo viên: Phạm Tuấn Anh. Dy Lp: 8B; 8C; 8D. Ngày soạn: 12/04/2009. Tit 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 của GV Hoạt động của HS 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. . 8C; 8D. Ngày soạn: 12/04/2009. Tit 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. 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