© 2020 Bài Kiểm Tra.com. All Rights Reserved.

Bài giảng tin học 8 - Xử lý dãy số trong chương trình (Tiết 1)

Chủ nhật - 07/10/2018 12:13
Bài giảng tin học 8 - Xử lý dãy số trong chương trình (Tiết 1)
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH(t1)
 
I.MỤC ĐÍCH
1.Kiến thức
  • Biết cách sử dụng biến mảng vào trong các bài toán.
2.Kĩ năng
  • Ôn luyện cách khai báo mảng <tên mảng>:array[1..100] of real; lệnh lặp if ..then, for..do;
  • Củng cố các kĩ năng đọc, hiểu và chỉnh sửa chương trình.
  • Hiểu và viết được chương trình với thuật toán tìm giá trị lớn nhất, nhỏ nhất của một dãy số, tính tổng dãy số.
3.Thái độ
  • HS có thái độ ham hiểu biết, học hỏi.
II. PHƯƠNG PHÁP
  • Luyện tập – thực hành
III. CHUẨN BỊ :
1. Giáo viên  :
  • SGK, giáo án, phòng máy.
  • Đồ dùng dạy học
2. Học sinh :
  • Xem trước bài thực hành.
IV. TIẾN TRÌNH TIẾT DẠY :
  1. Ổn định tổ chức lớp(1 phút)
  2. Kiểm tra bài cũ( kiểm tra trong quá trình thực hành)
  3. Bài mới
Hoạt động của giáo viên và học sinh Nội dung
Hoạt động 1 : hướng dẫn ban đầu (5’)
G: Gợi ý và cho hs khai báo biến trong chương trình.
H: Khai báo
G: Nhập n
G: Nhập giá trị cho mảng
H: Viết lệnh nhập n và nhập giá trị cho mảng
 
Hoạt động 2 : thực hành (35’)
Bài 1. Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, trung bình và kém (theo tiêu chuẩn từ 8.0 trở lên đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khá, từ 5.0 đến 6.4 đạt trung bình và dưới 5.0 xếp loại kém).
a) Xem lại các ví dụ 2 và ví dụ 3, bài 9 về cách sử dụng và khai báo biến mảng trong Pascal.
b) Liệt kê các biến dự định sẽ sử dụng trong chương trình. Tìm hiểu phần khai báo dưới đây và tìm hiểu tác dụng của từng biến:
c)Gõ phần khai báo trên vào máy tính và lưu tệp với tên Phanloai. Tìm hiểu các câu lệnh trong phần thân chương trình dưới đây:
d) Gõ tiếp phần chương trình này vào máy tính sau phần khai báo. Dịch, chạy chương trình.
H:F9 sửa lỗi và chạy chương trình.
H: Nhận xét chương trình.
program Phanloai;
uses crt;
Var
  i, n, Gioi, Kha, Trungbinh, Kem: integer;
  A: array[1..100] of real;
 
Begin
clrscr;
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do Begin write(i,’. ‘); readln(a[i]);  End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
   begin
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1
   end;
writeln(‘Ket qua hoc tap:’);
writeln(Gioi,’ ban hoc gioi’);
writeln(Kha,’ ban hoc kha’);
writeln(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’);
readln
End.
 
Hoạt động 2 : củng cố (5’)
  • Cách khai báo mảng trong Pascal.
  • Câu lệnh nhập dãy số từ bàn phím
 
  1. Hướng dẫn về nhà (5’)
  • Soạn bài thực hành sử dụng biến mảng trong chương trình.

  Ý kiến bạn đọc

Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây