GVHD : LÂM THANH VI TỆ SVTT : DANH PH NGƯƠ
VŨ
Ngày so n : 15 – 03 – 2010ạ
Ngày d y : 19 – 03 – 2010ạ
L p d y : 8A2ớ ạ
Bài th c hành 7: X LÝ DÃY S TRONG CH NG TRÌNHự Ử Ố ƯƠ
I - M C TIÊUỤ
1. Ki n th cế ứ
- Làm quen v i vi c khai báo và s d ng các bi n m ngớ ệ ử ụ ế ả
2. K Năngỹ
- Ôn luy n cách s d ng câu l nh l p ệ ử ụ ệ ặ for…do.
- C ng c các kĩ năng đ c, hi u và ch nh s a ch ng trình.ủ ố ọ ể ỉ ử ươ
3. Thái đ :ộ Nghiêm túc
II. CHU N BẨ Ị
1. Giáo viên: giáo án, máy chi uế
2. H c sinh:ọ Ki n th c cũ, sách, v .ế ứ ở
III - PH NG PHÁPƯƠ
- Thuy t trình, gi ng gi i, v n đáp.ế ả ả ấ
IV - TI N TRÌNH LÊN L PẾ Ớ
1 - N Đ NH (1’)Ổ Ị
2 - KI M TRA BÀI CŨ Ể
? Hãy cho m t s ví d v l p v i s l n ch a bi t tr c.ộ ố ụ ề ặ ớ ố ầ ư ế ướ
3 - BÀI M I (38’)Ớ
Ho t đ ng c a GV & HSạ ộ ủ Nghi b ngả
GV: Đ a ra bài t p 1 SGKư ậ
? G i h c sinh nêu ý t ngọ ọ ưở
- GV h ng d nướ ẫ
HS: Làm bài t pậ
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:ể ụ ủ ừ ế
program Phanloai;
uses crt;
Var
i, n, Gioi, Kha, Trungbinh,
Giáo án Tin h c 8 Tr ng THCS Mọ ườ ỹ
Xuyên
GVHD : LÂM THANH VI TỆ SVTT : DANH PH NGƯƠ
VŨ
Kem: integer;
A: array[1..100] of real;
a) 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:ầ ươ ướ
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.
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.ầ ị ạ ươ
4- C NG C (3’)Ủ Ố
- Cách s d ng bi n m ngử ụ ế ả
- Cách k t h p v i l nh l p for…doế ợ ớ ệ ặ
M Xuyên, ngày / / 2010 ỹ
Ng i duy t Ng i so n ườ ệ ườ ạ
Giáo án Tin h c 8 Tr ng THCS Mọ ườ ỹ
Xuyên
GVHD : LÂM THANH VI TỆ SVTT : DANH PH NGƯƠ
VŨ
GVHD : LÂM THANH VI T Ệ SVTT : DANH PH NGƯƠ
VŨ
Giáo án Tin h c 8 Tr ng THCS Mọ ườ ỹ
Xuyên