Giáo án 9 đẹp (Pro)
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (823.77 KB, 11 trang )
• Khái niệm mạng máy tính và Internet
• Tìm kiếm thông tin trên Internet
• Thư điện tử
Ngày soạn: 15/08/2009
ƠN TẬP
I. Mơc tiªu :
- ¤n tập khái niệm mảng 1 chiều kiểu dữ liệu số, cách khai báo mảng, truy cập các
phần tử của mảng.
- Viết đúng lệnh lặp với số lần biết trước.
- Nắm khai báo mảng kiểu dữ liệu số, truy cập phần tử mảng, sử dụng các phần tử của
mảng trong biểu thức tính toán.
II. ĐỒ DÙNG DẠY HỌC:
1.Chuẩn bị của giáo viên: Giáo án.
2.Chuẩn bị của học sinh: SGK.
III. NỘI DUNG ƠN TẬP:
1. Ổn định tổ chức: Ổn định lớp, kiểm tra sỉ số.
2. Kiểm tra bài cũ:
3. Nội dung ơn tập:
HOẠT ĐỘNG CỦA GV HOẠT ĐỘNG CỦA HS
- ¤n c¸c kiÕn vỊ m¶ng mét chiỊu
? ViÕt có ph¸p khai b¸o m¶ng mét chiỊu
? Cho vÝ dơ
? ViÕt có ph¸p ®äc gi¸ trÞ cđa m¶ng
? VÝ dơ
Var Tªn_m¶ng:array[<chØ sè ®Çu>..<chØ sè
ci>] of <kiĨu d÷ liƯu>;
Trong ®ã:
- array, of lµ tõ khãa;
- chØ sè ®Çu<chØ sè ci; chØ sè ®Çu, chØ
sè ci lµ gi¸ trÞ x¸c ®Þnh vµ kiĨu cã
thø tù
Var A:array[1..10] of real;
For <biÕn chØ sè>:=<gi¸ trÞ ®Çu> to <gi¸ trÞ
ci> do
Begin
Writln(‘tªn_m¶ng[‘,<biÕn chØ sè>,’] = ‘);
Readln(A[<biÕn chØ sè>]);
End;
VÝ dơ:
? Gán giá trị cho từng phần tử kiểu mảng
? Tính toán với các phần tử của mảng
? Viết chơng trình tính tổng n số thực đợc
nhập vào từ bàn phím
Tơng tự, viết chơng trình tìm giá trị lớn nhất
của các số đợc nhập vào từ bàn phím
- Chữa 2 bài kiểm tra thực hành.
For i:= 1to 10 do
Begin
Writln(A[,i,] = );
Readln(A[i]);
End;
Tên biến:=<phần tử của mảng>;
Ví dụ: Max:=A[1];
Program Tinh_tong;
Uses crt;
Var i, n: integer;
A: array[1..100] of real;
Begin
Clrscr;
Writeln(ban can tinh voi bao nhieu so?);
readln(n);
S:=0;
For i:=1 to n do
Begin
Writeln(A[,i,]=); readln(A[i]);
End;
For i:=1 to n do s:=s+a[i];
Writeln(tong cua cac so do la, S:3:2);
Readln
End.
HS viết chơng trình
IV. CNG C - DN Dề:
V ụn k cng v xem li cỏc bi tp ó lm trong SGK v SBT.
Ngày soạn: 15/08/2009
KIỂM TRA KHẢO SÁT CHẤT LƯỢNG
I. Mơc tiªu:
- KiĨm tra chÊt lỵng häc sinh ®Çu n¨m häc.
- Häc sinh vËn dơng tèt kiÕn thøc ®· häc ®Ĩ lµm bµi kiĨm tra cã kÕt qu¶ tèt.
- RÌn lun ý thøc tù gi¸c trong kiĨm tra.
II. Chn bÞ:
- GV: §Ị kiĨm tra.
- HS: chn bÞ «n tËp ë nhµ.
III. Ph¬ng ph¸p: Lµm bµi viÕt ë trªn giÊy.
IV. TiÕn tr×nh bµi d¹y
1. ỉn ®Þnh: kiĨm tra sÜ sè líp:
2. Bµi míi: KiĨm tra KSCL ®Çu n¨m 45 phót.
a. phÇn tr¾c nghiƯm: (3 ®iĨm)
Câu 1: Cho S và i là biến nguyên. Khi chạy đoạn chương trình : s:=1;for i:=1 to 4
do s := s+i; writeln(s); Kết quả in lên màn hình là của s là :
A. 11 B. 55 C. 15 D. 10
Câu 2: Cho chương trình sau:
Var a,b : integer ;
Begin
a:=24 ; b:=12 ;
If a< b then a:= a + b else
Begin a:= a- b; b:= b + a end;
