IV Củng cốvà hướng dẫn tự học ở nhà (3 phỳt) 1 Củng cố
5. Một số chức năng nõng cao
a) Thay đổi mẫu thể hiện hỡnh. * Thao tỏc thực hiện:
1. Nhỏy đỳp chuột để mở hộp thoại t/c của hỡnh.
2. Chọn Surface apperance. 3. Chọn Use material và chọn mẫu trong danh sỏch Material. b) Quay hỡnh trong khụng gian. + Nhỏy cỏc nỳt lệnh ở khung Rotation.
Hoạt động 2 : Thực hành tổng hợp. (25 phỳt) Yc học sinh tạo một số mụ hỡnh Chỳ ý lắng nghe và thực hiện
như hỡnh: nún, hỡnh chúp, hỡnh lăng trụ, hỡnh trụ vả thực hiện một số chức năng sau:
- Phúng to thu nhỏ - Thay đổi, di chuyển - Thay đổi kớch thước. - Thay đổi màu
- Thay đổi tớnh chất
theo yờu cầu của giỏo viờn
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (5 phỳt) 1. Củng cố
- GV nhận xột, đỏnh giỏ tiết thực hành
2. Hướng dẫn về nhà
Tuần: 35 Tiết: 69 Ngày Soạn: 23/4/2015 Ngày dạy : 29/4/2015
KIỂM TRA THệẽC HAỉNH 1 TIẾT I. MUẽC TIÊU
1.Kieỏn thửực:
- Kiểm tra lại những kiến thức cơ bản đĩ học.
2. Kú naờng:
- Vận dụng những kiến thức đĩ học vào bài kiểm tra.
3. Thaựi ủoọ:
- Cú ý thức nghiờm tỳc trong học tập và kiểm tra.
II. PHẦN CHUẨN Bề
- GV: Giỏo ỏn, Đề kiểm tra, phũng mỏy, …. - HS: ễn bài, nắm chắc kiến thức.
III. PHƯƠNG PHÁP:
- Thực hành cỏ nhõn.
IV. TIẾN TRèNH BAỉI DAẽY
1. Ổn định lớp 2. Kiểm tra:
ĐỀ:Viết chương trỡnh nhập vào mảng gồm 10 phần tử. Rồi truy xuất dữ liệu đến phần tử bất kỡ của mảng
Yờu cầu:
- Khởi động Turbo Pascal. - Viết chương trỡnh.
3. Đỏp ỏn
Program truy_xuat; Uses crt;
Var a: array[1..10] of integer; i: integer; Begin
Clrscr;
For i:=1 to 10 do Begin
Write('Nhap phan tu thu',i,':'); Readln(a[i]); End;
Write('Muon xem phan tu nao: '); Readln(i); Write('Gia tri cua phan tu thu',i,' la ', a[i]); Readln;
End.
* Học sinh cú thể khai bỏo tờn biến, tờn mảng khỏc nhưng vẫn đỳng cấu trỳc, chương trỡnh cú thể chạy được vẫn cho điểm.
V. C ỦNG CỐ - DẶN Dề
- Nhận xột tiết kiểm tra. - Chuẩn bị cho tiết ụn tập.
Tuần: 35 Tiết: 70 Ngày Soạn: 23/4/2015 Ngày dạy : 29/4/2015 ễN TẬP I. MỤC TIấU CẦN ĐẠT 1. Kiến thức: - Sử dụng một số kiến thức để làm một số bài tập 2. Kĩ năng:
- Rốn luyện kĩ năng sử dụng cỏc cõu lệnh trong pascal. 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1. GV: Sỏch giỏo khoa, mỏy tớnh điện tử. 2. HS: Sỏch, vở ,đọc bài ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ 3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Hoạt động 1: ễn tập cõu lệnh lặp xỏc định For..do. (12 phỳt)
? Nờu cỳ phỏp của vũng lặp xỏc định.
? Nờu hoạt động của vũng lặp.
+ Cỳ phỏp: For <biến đếm>:= <giỏ trị đầu> to <giỏ trị cuối> do <cõu lệnh>;
+ Hoạt động của vũng lặp: - B1: biến đếm nhận giỏ trị đầu - B2: Chương trỡnh kiểm tra biểu thức điều kiện, nếu biểu thức điều kiện đỳng thỡ thực hiện cõu lệnh. - B3: Biến đếm tự động tăng lờn 1 đơn vị và quay lại B2.
- B4: Nếu biểu thức điều kiện nhận giỏ trị sai thỡ thoỏt ra khỏi vũng lặp.
? Nờu cỳ phỏp của vũng lặp xỏc định.
? Nờu hoạt động của vũng lặp
Hoạt động 2: Bài tập.(30 phỳt) 1. Cỏc cõu lệnh Pascal sau cú
hợp lệ khụng, vỡ sao?
a)for i:=100
+ Trừ cõu d), tất cả cỏc cõu lệnh đều khụng hợp lệ:
a) Giỏ trị đầu phải nhỏ hơn giỏ trị
cuối;
1. Cỏc cõu lệnh Pascal sau cú hợp lệ khụng, vỡ sao?
to 1 do writeln('A'); b)for i:=1.5 to 10.5 do writeln('A'); c)for i=1 to 10 do writeln('A'); d)for i:=1 to 10 do; writeln('A'); e)var x: real; begin for x:=1 to 10 do writeln('A'); end.
2. Hĩy mụ tả thuật toỏn để tớnh tổng sau đõy:
i. A =
1 1 1 1
...
1.32.43.5 n n( 1) .
b) Cỏc giỏ trị đầu và giỏ trị cuối
phải là số nguyờn;
c) Thiếu dấu hai chấm khi gỏn giỏ
trị đầu;
d) Thừa dấu chấm phẩy thứ nhất,
nếu như ta muốn lặp lại cõu lệnh
writeln('A') mười lần, ngược lại cõu
lệnh là hợp lệ;
e) Biến x đĩ được khai bỏo như là
biến cú dữ liệu kiểu số thực và vỡ thế khụng thể dựng để xỏc định giỏ trị đầu và giỏ trị cuối trong cõu lệnh lặp. * Thuật toỏn tớnh tổng: A = 1 1 . 3+ 1 2 . 4+ 1 3 . 5+.. .. .. . 1 n(n+1) Bước 1. Gỏn A 0, i 1. Bước 2. A 1 ( 2) i i . Bước 3. i i + 1.
Bước 4. Nếu i n, quay lại bước 2.
Bước 5. Ghi kết quả A và kết thỳc
thuật toỏn. i:=100 to 1 do writeln('A'); g)for i:=1.5 to 10.5 do writeln('A'); h)for i=1 to 10 do writeln('A'); i)for i:=1 to 10 do; writeln('A'); j)var x: real; begin for
x:=1 to 10 do
writeln('A');
end.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (3 phỳt)
1. Củng cố: nhắc nhở học sinh làm bài cẩn thận, đọc kĩ đề bài, 2. Hướng dẫn về nhà: học bài, xem lại bài
Tuần: 36 Tiết: 71 Ngày Soạn: 30/4/2015 Ngày dạy : 6/5/2015
ễN TẬP I. MỤC TIấU CẦN ĐẠT
- Sử dụng cỏc kiến thức đĩ học để làm một số bài tập.
2. Kĩ năng:
- Rốn luyện kĩ năng sử dụng một số cõu lệnh trong pascal.
3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
- Gv: Giỏo ỏn, sỏch giỏo khoa, mỏy tớnh điện tử. - Hs: SGK, vở ghi, học trước bài ở nhà …
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1.Ổn định lớp 1.Ổn định lớp
2.Kiểm tra bài cũ 3.Bài mới
Hoạt động của thầy Hoạt động của trũ Nội dung
Hoạt động 1 : ễn lại một số kiến thức đĩ học.(13 phỳt) ? Nờu cỳ phỏp của vũng lặp
chưa biết trước.
? Nờu hoạt động của vũng lặp chưa biết trước.
? Nờu cỳ phỏp khai bỏo biến mảng. Cho vớ dụ.
Cỳ phỏp:
While <điều kiện> do <cõu lờnh>;
+ Hoạt động:
- B1. Kiểm tra điều kiện.
-B2. Nếu điều kiện sai, cõu lệnh sẽ bị bỏ qua và việc thực hiện cõu lệnh lặp kết thỳc. Nếu điều kiện đỳng, thực hiện cõu lệnh và quay lại B1 Cỳ phỏp: Tờn mảng:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu; Vớ dụ: a:array[1..10] of integer; ? Nờu cỳ phỏp của vũng lặp chưa biết trước.
? Nờu hoạt động của vũng lặp chưa biết trước.
? Nờu cỳ phỏp khai bỏo biến mảng. Cho vớ dụ. Hoạt động 2: Bài tập (30 phỳt) Bài tập 1: Tỡm n nhỏ nhất sao cho 1/1+1/2+1/3+...+1/N >A. Với 0<A<2. Yc Hs hoạt động theo nhúm. - Gv hướng dẫn cỏch khai bỏo biến, vũng lặp.
Chỳ ý lắng nghe và làm việc theo sự hướng dẫn của giỏo viờn.
Program timnn; Uses crt;
Var A,S,n: real;
Bài tập 1: Tỡm n nhỏ nhất sao cho 1/1+1/2+1/3+...+1/N >A. Với 0<A<2.
Program timnn; Uses crt;
Bài tập 2:Viết chương trỡnh nhập vào mảng gồm 5 phần tử. - Yc Hs hoạt động theo nhúm. - Gv hướng dẫn trỡnh tự làm bài, khai bỏo biến mảng, vũng lặp.
Begin Clrscr;
Write('Nhap A:'); Readln(A); S:=0; n:=0; While S<= A do Begin N:=n+1; S:=s+1/n; End;
Writeln('De bieu thuc lon hon A, n= ',n);
Readln; End.
Chỳ ý lắng nghe và làm việc theo sự hướng dẫn cựa GV. Program mang;
Uses crt;
Var a:array[1..5] of integer; i:integer;
Begin
For i:=1 to 5 do Begin
Write('Nhap vao phan tu thu ',i); Readln(a[i]); End; Readln; End. Begin Clrscr;
Write('Nhap A:'); Readln(A); S:=0; n:=0; While S<= A do Begin N:=n+1; S:=s+1/n; End;
Writeln('De bieu thuc lon hon A, n= ',n);
Readln; End.
Bài tập 2:Viết chương trỡnh nhập vào mảng gồm 5 phần tử
Program mang; Uses crt;
Var a:array[1..5] of integer; i:integer;
Begin
For i:=1 to 5 do Begin
Write('Nhap vao phan tu thu ',i); Readln(a[i]);
End; Readln; End.
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (2 phỳt)