- Học bài và làm lại cỏc bài tập Nghiờn cứu trước bài thực hành
a. Mơ tả thuật tốn.
INPUT: Nhập n, nhập n số nguyên. OUTPUT: Kết quả TBC của n số nguyên
B1: Nhập giá trị của n( tính TBC bao nhiêu số); dem←0; S←0;
B2: Trong khi dem <= n thì làm
Nhập số thứ (1,2,3….n) (cho x) S←S+x; dem←dem +1; B3: Tính TB ←S/n; B4: In kết quả TB, kết thúc chơng trình. b. Viết chơng trình. Program tinhTB; Uses Crt;
Var n,dem: integer; x, S, TB: real; BEGIN
ClrScr;
Write(‘Muon tinh TB bao nhieu so n=’); Readln(n); dem:= 0; S:=0;
HĐ của GV và hs Nội dung
Write(‘Nhap so thu’, dem, ‘ = ‘ );readln(x); S:= S + x; dem:= dem + 1;
End; TB:= S/n;
Write(‘ Vay trung binh cong ’, n, ‘so la: ‘, TB:6:2); Readln
END.
HĐ2: Thực hành trên máy tính
Gv: Cho Hs thực hành soạn chơng trình trên vào máy tính.
Hs: tiến hành soạn thảo và dịch, chạy ch- ơng trình, rồi lu lại
*Thực hành:
- Mở Pascal, soạn chơng trình trên. - Dịch chơng trình, chạy chơng trình. - Lu chơng trình với tên LAPWHILEDO
HĐ 3:Bài 2
Gv: Viết chương trỡnh bài 2 lờn bảng. Hs: Ghi bài vào vở.
Gv: Cho Hs lần lượt tỡm hiểu ý nghĩa của từng cõu lệnh
-Tỏc dụng: While n mod i <> 0 do i:= i + 1;
Hs: Lần lượt trả lời.
Gv: Chương trỡnh trờn cú tỏc dụng gỡ?
Hs: Mục đớch là nhận dạng một số cú là số nguyờn tố hay khụng?
Bài 2: Đọc và tìm hiểu ý nghĩa của từng câu lệnh sau đây.
Uses Crt;
Var n,i : integer; BEGIN
ClrScr;
Write(‘Nhap vao mot so nguyen: ‘);Readln(n); If n<=1 Then Writeln(‘N khong la so nguyen to’); Else
Begin i:=2;
While n mod i <> 0 do i:= i + 1;
If i = n Then Writeln(n,’ la so nguyen to’) Else Writeln(n,’ khong la so nguyen to’); End;
Readln END.
IV. Hớng dẫn về nhà (2 phút)
- Ghi nhớ cú pháp và ý nghĩa của câu lệnh lặp while ... do...,
Ngày soạn : 14/3/10 Ngày dạy :
Tiết 54; 55: BÀI TẬP
A. Mục tiêu:
- Viết đợc chơng trình Pascal cĩ sử dụng vịng lặp While ... do - Biết sử dụng câu lệnh ghép.
- Rèn kỹ năng đọc hiểu chơng trình cĩ sử dụng vịng lặp while ... do
B. Phơng pháp
1. Phơng pháp: Thuyết trình, nêu vấn đề, vấn đáp 2. Phơng tiện: Máy tính, .
C. Chuẩn bị:
1. Giáo viên:
- Chuẩn bị một số thuật tốn và chơng trình . - Chuẩn bị máy tính,.
2. Học sinh:- Thực hiện nhiệm vụ về nhà của tiết trớc.
D. Tiến trình bài dạy:
Bài 1: Lập trình tính tổng dùng lệnh lặp While ...do. Trong đú n là số tự nhiên đợc nhập từ bàn phím. 1 1 1 1 ... ( ) 2 3 A n Z n = + + + ∈ GIẢI Program tinhA; Uses CRT; Var i, n: integer; tong: real; BEGIN Clrscr;
write('cho so tu nhien n: '); Readln(n); tong:=0; i:=1;
while i<= n do Begin
tong:= tong+ 1/i; i: = i+1;
End;
writeln(' Tong can tim la: ', tong:12:6); Readln;
END.
Bài 2: Viết chương trỡnh tỡm ƯCLN(a,b). Biết a, b được nhập từ bàn phớm. a,b∈Z
Giải
Program timUCLN; Uses Crt;
Var a,b,r,a1,b1: integer; BEGIN
ClrScr;
Begin
r:= a mod b; a: = b; b: = r; End;
Write (‘ Vay UCLN(‘, a1, ‘;’,b1,’)=’,b:2); Readln
END.
Bài 3: Viết chương trỡnh tỡm BCNN(a,b). Biết a, b được nhập từ bàn phớm. a,b∈Z
Giải
Program timBCNN; Uses Crt;
Var a,b,n,min,max,max1: integer; BEGIN
ClrScr;
Write(‘Nhap so thu nhat, a= ‘); Readln(a); a1:= a; Write(‘Nhap so thu hai, = ‘); Readln(b); b1:= b; If a>b then
Begin max: = a; min:=b; End Else Begin max:=b; min:= a; End; n:= 2; max1:=max;
While max mod min <> 0 Do Begin
max:= max1*n; inc(n); {n:=n+1} End;
Write (‘ Vay BCNN(‘, a, ‘;’,b,’)=’,max:2); Readln
END.
Ngày soạn : 21/3/10 Ngày dạy :
Tiết PPCT 56: KIỂM TRA 1 TIẾT (VIẾT)
Cãu 1.(4,0 ủieồm) Caực doứng leọnh sau ủuựng hay sai? Neỏu ủuựng thỡ ủaựnh daỏu X vaứo coọt ủuựng. Neỏu sai thỡ sửỷa lái nhử theỏ naứo?
Doứng leọnh ẹuựn
g
Sai – Sửỷa lái
a. Program Pascal; b. Uses Ctr;
c. Var a,b;c,d: Real;
d. Write(‘Pascal that la thu vi); e. a:= 4; If a>6 Then max:=7; f. x: = 6; While x ≠ 8 do x:= x+1; g. For i:= 1 to 8 do Writeln(‘8/’,i); h. If a>8 then a:= a+1;
Cãu 2. (3,0 ủieồm) Dửùa vaứo caực leọnh sau ủãy, haừy vieỏt keỏt quaỷ hieọn trẽn maứn hỡnh:
a. Writeln(‘5+20=’, 20+5);
Keỏt quaỷ in lẽn maứn hỡnh:………
b. x: = 18; y:= 10; z:=x; x:=y; y:=z; Write(‘x=’, x, ‘y=’, y);
Keỏt quaỷ in lẽn maứn hỡnh:………
c. For i := 1 to 8 do Write(‘Tin hoc; ’);
Keỏt quaỷ in lẽn maứn hỡnh:………
d. Write(‘P’);Write(‘A’);Write(‘S ’);Write(‘C’);Write(‘A’); Write(‘L ’);Write(‘8’); Keỏt quaỷ in lẽn maứn hỡnh:………
e. x:= 6; y:= 19; Write(‘kq=’,(y div x)/(y mod x):4:2);
Keỏt quaỷ in lẽn maứn hỡnh:………
f. x:= 4; If 2+4 = 5 Then x:=x+1; Write(‘x=’,x:2);
Keỏt quaỷ in lẽn maứn hỡnh:………
Cãu 3. (3,0 ủieồm) Vieỏt chửụng trỡnh in baỷng cửỷu chửụng.
ẹỀ 02:
Cãu 1.(4,0 ủieồm) Caực doứng leọnh sau ủuựng hay sai? Neỏu ủuựng thỡ ủaựnh daỏu X vaứo coọt ủuựng. Neỏu sai thỡ sửỷa lái nhử theỏ naứo?
Doứng leọnh ẹuựn
g
Sai – Sửỷa lái
a. Program Pascal; b. Uses Crt;
c. Var a,b,c,d: Real
d. Write(‘Pascal that la thu vi’); e. a:= 4; If a≥6 Then min :=5; f. x: = 6; While x ≠ 8 do x:= x+1; g. For i:= 1 to 8 do Writeln(‘8/’,i); h. If a>8 then a= 8;
Cãu 2. (4,0 ủieồm) Dửùa vaứo caực leọnh sau ủãy, haừy vieỏt keỏt quaỷ hieọn trẽn maứn hỡnh:
a. Writeln(‘4x20=’, 4*20);
Keỏt quaỷ in lẽn maứn hỡnh:………
b. x: = 8; y:= 10; z:=x; x:=y; y:=z; Write(‘x=’, x:2, ’y=’, y:2);
Keỏt quaỷ in lẽn maứn hỡnh:………
c. For i := 1 to 8 do Write(‘Pascal; ’);
Keỏt quaỷ in lẽn maứn hỡnh:………
d. Write(‘T’);Write(‘I’);Write(‘N ’);Write(‘H’);Write(‘O’); Write(‘C ’);Write(‘8’); Keỏt quaỷ in lẽn maứn hỡnh:………
e. x:= 5; y:= 16; Write(‘kq=’,(y div x)/(y mod x):4:2);
Keỏt quaỷ in lẽn maứn hỡnh:………
f. x:= 4; If 2+4 = 5 Then x:=x - 1; Write(‘X=’,X:2);
Keỏt quaỷ in lẽn maứn hỡnh:………
Cãu 3. (3,0 ủieồm) Vieỏt chửụng trỡnh in baỷng cửỷu chửụng.
Ngàysoạn: 15/02/2009 Ngày dạy:
Tuần 24:
Giảng ngày: Tiết 48: học vẽ hình với phần mền geogebra I/ Mục tiêu:
- Hs hiểu được cỏc đối tượng hỡnh học cơ bản của phần mềm và quan hệ giữa chỳng - Thụng qua phần mềm học sinh biết và hiểu cỏc ứng dụng của phần mềm trong toỏn học, thiết lập quan hệ toỏn học giữa cỏc đối tượng này.
- Biết cỏch sử dụng phần mềm để vẽ cỏc hỡnh học trong chương trỡnh lớp 8. - Hs ý thức trong việc ứng dụng phần mềm trong học tập của mỡnh .
II/ Chuẩn bị:
- Sách giáo khoa, giáo án, tài liệu tin học cĩ liên quan. - Đọc tài liệu ở nhà trớc khi
III. Tiến trình lên lớp:ổn định tổ chức lớp : ổn định tổ chức lớp :
- Kiển tra sĩ số :
8A : ––. 8B :––. 8C:––.. 8D:––––. 8E:–––– Kiểm tra. Kiểm tra.
- Kiểm tra sự chuẩn bị của học sinh .
Bài mới:
Hoạt động của giáo viên Hoạt động của học sinh
Hoạt động 1: E đĩ biết gỡ về Geogebra
Hs đọc sgk
Hoạt động 2 : Đối tượng hỡnh học
Hs nờu khỏi niệm
3 . Đối tượng hỡnh học
a) Khỏi niệm đối tượng hỡnh học
b) Đối tượng tự do và đối tượng phụ thuộc Nằm trờn (thuộc về)
Đi qua
Giao của hai đối tượng
c) Danh sỏch cỏc đối tượng trờn màn hỡnh. Hiển thị → Hiển thị danh sỏch đối tượng d) Thay đổi thuộc tớnh của đối tượng. - Ẩn đối tượng :
B1 chọn đối tượng
B2 hủy chọn “ Hiển thị đối tượng “trong bảng hiển thị
- Ẩn hiện tờn của đối tượng B1 chọn đối tượng
B2 hủy chọn “ Hiển thị đối tờn” trong bảng hiển
- Thay đổi tờn của đối tượng
B1 nhỏy nỳt chuột phải lờn đối tượng B2 chọn đổi tờn
- Đặt / hủy vết chuyển động đối tượng. B1 nhỏy nỳt chuột phải lờn đối tượng B2 chọn “ Mở dấu vết khi di chuyển Để xúa cỏc vết nhấn tổ hợp phớm Ctrl + F - Xúa đối tượng : thực hiện 1 trong cỏc cỏch C1 dựng nhấn Delete
C2 nhỏy nỳt chuột phải lờn đối tượng, chọn xúa
C3 chọn trờn thanh cụng cụ , chọn đối tượng xúa
IV.Củng cố:
- Giáo viên hệ thống lại tồn bộ nội dung bài học.
V.H
ớng dẫn về nhà:
- Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.