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’) | |
|
Ý kiến bạn đọc
Những tin cũ hơn