Giáo án Tin học 8 - Tuần 8-34 - Năm học 2009-2010 - Lê Viết Bảo Khánh

Hãy nêu khái niệm bài toán, để giải quyết được một bài toán cụ thể ta phải làm gì HOẠT ĐỘNG CỦA THẦY VÀ TRÒ NỘI DUNG Hoạt động 1: Tìm hiểu khái niệm thuật toán - Việc dùng máy tính giải [r]

 15 Ngày  …./…./2010

I )$ TIÊU:

- #,- / 0, là công 4 trong 156 trình

- #,- / cách khai báo 0, trong 9 trình Pascal

- Rèn 1>?@ 8A B khai báo 0, trong 9 trình

3 Thái độ:

- Thái D  -56 nghiêm túc, yêu thích 0D môn

II

- GV:Sách giáo khoa, máy tính @ -I*

- HS:  -J bài, KG bút

III

- L L*

IV

% :; 1: Tìm >? @ trong B>CD trình

Tìm M> 0, trong 9 trình

M 9 trình luôn 0,- chính xác OP 1@>

Q NI lí / 1> -P K R trí nào trong 0D

JG các ngôn P 156 trình cung S6 ED-

công 4 156 trình T là 0, J*

- #, là ED- U 1/ có giá -R thay V

trong quá trình -X @ 9 trình

? #, dùng M làm gì

 sinh chú ý 1\ nghe => ghi J 8,

-`*

#, / dùng M 1> -P OP 1@> và OP 1@>

./ 0, 1> -P có -M thay V trong khi

-X @ 9 trình

1  là công BG trong EHI trình:

- 

này có -M thay V trong khi -X @

9 trình

- aP 1@> do 0, l> -P /  là giá -R

b( 0,*

* Ví O4 1 :

In 8,- W>L phép D 15+5 lên màn hình ,- 1@ :

writeln(15+5);

In lên màn hình giá -R b( 0, x + giá -R b( 0, y ,- 1@ :

writeln(X+Y);

* Ví O4 2 : Tính và in giá -R b( các 0M> -`

100 50 3



và

100 50 5



ra màn hình

Cách làm :

x := 100 + 50 ;

y :=x/3 ;

% :; 2: Tìm >? cách khai báo @

- S- L các 0, dùng trong 9 trình

.k> 6L / khai báo ngay trong 6Q khai

báo b( 9 trình

- @ khai báo 0, lE

* Khai báo tên 0,

* Khai báo 8M> OP 1@> b( 0,*

Ví O4

Var m,n: Integer;

S, O@ tích: real;

Thongbao: Strinh;

Trong T

Var ?

M,n ?

S, dientich ?

Thongbao ?

>m theo ngôn P 156 trình, cú pháp khai

báo 0, có -M khác nhau

 sinh chú ý 1\ nghe => ghi J 8,

-`*

- Var là -n khoá b( ngôn P 156 trình dùng

.M khai báo 0,*

- m,n: là 0, có 8M> :o nguyên

- S, dientich: là các 0, có 8M> :o -X*

- thongbao: là 0, 8M> xâu

2 Khai báo @

- @ khai báo 0, lE :

+ Khai báo tên ;

+ Khai báo

* Ví O4 :

var m n : integer;

Trong  :

- var là -n khoá b( ngôn P 156 trình dùng .M khai báo 0,G

- m, n là các 0, có 8M> nguyên (integer),

* aU -V quát :

Var danh sách tên @ : K? P EQ ;

V

-  bài 8,- /6 SGK

- Làm bài -56 1,2,3,4/33/SGK

RÚT KINH

………

………

………

………

 16 Ngày  …./…./2010

I )$ TIÊU:

- #,- / cách :I O4 0, trong 9 trình Pascal

- #,- / khái @E t trong ngôn P 156 trình

- Rèn 1>?@ 8A B :I O4 0, trong 9 trình

3 Thái độ:

- Thái D  -56 nghiêm túc, yêu thích 0D môn

II

- GV:Sách giáo khoa, máy tính @ -I*

- HS:  -J bài, KG bút

III

- L L*

IV

% :; 1: Tìm >? cách NY G @ trong B>CD trình.

Các thao tác có -M -X @ J 0, là:

- Gán giá -R cho 0,

- Tính toán J giá -R b( 0,*

Câu 1@ gán giá -R trong các ngôn P 156 trình - có

OU  -, nào?

Hãy nêu ý A( b( các câu 1@ sau:

x:=12;

- Gán giá -R :o 12 vào 0, J x

x:=y;

- Gán giá -R u 1> trong 0, J Y vào 0, J X

x:=(a+b)/2;

- X @ phép toán tính trung bình D hai giá -R tE

trong hai 0, J a và b &,- W>L gán vào 0, J X

x:=x+1;

- B giá -R b( 0, J X lên ED- 9 R* &,- W>L gán

-K 1U vào 0, X

Câu 1@ gán giá -R trong các ngôn P 156 trình có OU

Tên 0, <= #M> -` Q gán giá -R cho 0,

 sinh chú ý 1\ nghe => ghi J 8, -`*

3 Y G @ trong B>CD trình:

- >o dùng 0, ta 6L -X

@ các thao tác :

.T*

gán giá -R cho 0,*

- @ M :I O4 0, : + @ 56 giá -R cho 0, -n bàn phím :

Readln(tên @XR

+ @ gán giá -R cho 0, :

Tên @ := ? >]B B gán giá A^ cho @R

% :; 2: Tìm >_ >` trong B>CD trình.

- t là ED- U 1/ có giá -R không thay V trong quá

trình -X @ 9 trình

- Ví O4 k khai báo t

Const pi = 3.14;

Bankinh = 2;

Trong T

- Const ?

- pi, bankinh ?

 sinh chú ý 1\ nghe => ghi J 8, -`*

- Const: là -n khoá M khai báo t

- pi, bankinh: là các t / gán giá -R -9 ` là 3.14

và 2

4 %`

- t là U l/ M lu -P OP

trong :>o- quá trình -X @

ch9 trình

- Cách khai báo t :

Const tên >` =giá A^ BbL

>` ;

Ví O4 :

const pi = 3.14 ;

V

-  bài 8,- /6 SGK

- Làm bài -56 5, 6/33/SGK

RÚT KINH

………

………

………

………

 17 Ngày  …./…./2010

Bài >eB hành Nf 3 KHAI BÁO VÀ

I )$ TIÊU:

- X @ / khai báo F cú pháp, 1X(  / 8M> OP 1@> phù /6 cho 0,*

- &,- /6 / P( 1@ Write, Writeln J Read, Readln M -X @ @ 56 OP 1@> cho 0, -n bàn phím

- M> k các 8M> OP 1@> >{ :o nguyên, :o -X*

- M> cách khai báo và :I O4 t*

- Rèn 1>?@ 8A B 8,- /6 P( câu 1@ Write, Writeln J Read, Readln

3 Thái độ:

- Thái D  -56 nghiêm túc, yêu thích môn *

II

- GV: bài -X hành, máy tính @ -I*

- HS:  bài, :GKG bút

III

- X hành nhóm, -L 1>5

IV

% :F 1 : HCg h ban :

- V 0, D dung yêu Q> chung trong -,-

-X hành là khai báo và sử dụng biến, hằng.

- \ nghe

% :; 2: bài HI 1.

- Yêu Q> HS  bài toán trong SGK

-nào?

+ thanh toán = , l-./ 01 giá + Phí 3

- Yêu Q> HS làm bài toán

-  các máy 8ME tra và J O|G >o \ HS

cách :U -L ch9 trình

- L thích :9 0D -n 6Q n( ( lên

- &,- /6  giá và cho ME HS qua -,- -X

hành

-  bài toán trong SGK và nghiên `>*

- Nghiên `> SGK -L 1*

- Theo dõi

- Làm câu a theo yêu Q> SGK

,- 9 trình Pascal có khai báo và :I O4 0,*

Bài toán: D- I( hàng cung S6 OR 4 bán hàng thanh toán -U nhà Khách hàng

~ Q B kí :o l/ E- hàng Q mua, nhân viên I( hàng :€ -L hàng và

5 -k thanh toán -U nhà khách hàng Ngoài -R giá hàng hoá, khách hàng còn 6L -L thêm phí OR 4* Hãy ,-

9 trình Pascal M tính -k thanh toán trong tr /6 khách hàng ~ mua ED- E- hàng duy S-*

-  các máy 8ME tra và hJ O|G >o \ HS

cách :U -L ch9 trình

- L thích :9 0D -n 6Q n( a lên

- &,- /6  giá và cho ME HS qua -,- -X

hành

- Làm câu b, c, d theo yêu Q> SGK

program Tinh_tien;

uses crt;

var soluong: integer;

dongia, thanhtien: real;

thongbao: string;

const phi=10000;

begin

clrscr;

thongbao:='Tong so tien phai thanh toan : ';

{Nhap don gia va so luong hang}

write('Don gia = '); readln(dongia);

');readln(soluong);

thanhtien:= soluong*dongia+phi;

(*In ra so tien phai tra*) writeln(thongbao,thanhtien:10:2); readln

end

a) L> ch9 trình J tên

TINHTIEN.PAS aR và ~ :I( các 1‚ gõ, ,> có

b)

1@> q.9 giá và :o l/r  sau (1000, 20), (3500, 200), (18500, 123) &ME tra tính F b( các 8,- W>L in ra

c)

(1, 35000) Quan sát 8,- W>L 5 ./* Hãy -I  lí do -U sao

9 trình cho 8,- W>L sai

V

- ,- sau -X hành: “ Bài -X hành :o 3” (tt)

RÚT KINH

………

………

………

………

- 

- 18 Ngày  …./…./2010

Bài >eB hành Nf 3 (tt) KHAI BÁO VÀ

I )$ TIÊU:

- M> k các 8M> OP 1@> >{ :o nguyên, :o -X*

- M> cách khai báo và :I O4 t*

- Rèn 1>?@ 8A B 8,- /6 P( câu 1@ Write, Writeln J Read, Readln

3 Thái độ:

- Thái D  -56 nghiêm túc, yêu thích môn *

II

- GV: bài -X hành, máy tính @ -I*

- HS:  bài, :GKG bút

III

- X hành nhóm, -L 1>5

IV

% :; 1 : HCg h ban :

- V 0, D dung yêu Q> chung trong -,- -X hành

là khai báo và sử dụng biến, hằng Và yêu Q> 

sinh 8K D máy

- \ nghe và 8K D và 8ME tra tình -U máy

tính b( mình => Báo cáo tình hình cho GV

- HJ O| HS ~ ra các 0J M L W>?,- bài toán

này

- &ME tra và J O| trên các máy

- M -X @ tráo V giá -R b( hai 0, ta làm 

-, nào ?

-  k bài 2 SGK và nghiên `> M M> cách làm

- X hành Tham 8L 9 trình hoan_doi trong

SGK

- UG OR và U? ch9 trình này trên máy

- L 1*

các :o nguyên x và y, in giá -R b( x

và y ra màn hình Sau .T hoán V các giá -R b( x và y l in 1U ra

màn hình giá -R b( x và y.

Tham 8L ch9 trình sau:

program hoan_doi;

var x,y,z:integer; begin

read(x,y);

writeln(x,' ',y); z:=x;

x:=y;

y:=z;

writeln(x,' ',y); readln

end.

% :; 3: o K ; dung  >eB hành.

- a lên màn hình D dung chính Q U- trong 2 -,-

-X hành này (SGK)

- V 8,- 1U

- ` -U ‚  1U*

- \ nghe

1 Cú pháp khai báo 0, trong Pascal:

var <danh sách 9: <

;

trong .T danh sách  lE tên

các 0, và / cách nhau 0K OS> 6{?*

2 Cú pháp 1@ gán trong Pascal:

<>:= < :>

3. @ read (<danh sách >)

trong .T danh sách  là tên

các 0, u khai báo, / :I O4 M 56 OP 1@> -n bàn phím Sau khi 56 OP 1@> Q

S phím Enter M xác 5*

,> giá -R 56 vào v/- quá 6UE vi b( 0,G nói chung 8,- W>L tính toán :€ sai

4. D dung chú thích tE trong

6 OS> { và } 0R 0ˆ qua khi

OR ch9 trình Các chú thích

./ dùng M làm cho ch9 trình O‰ G O‰ M>* Ngoài ra có -M :I O4 6 các OS> (* và *) M -U chú thích

V

- Làm 1U các bài -U6

- ,- sau bài -56

RÚT KINH

………

………

………

………

- 

 19 + 20 Ngày  …./…./2010

BÀI r.

I )$ TIÊU:

-  sinh \E \ vai trò b( 0,G tG cách khai báo 0,G t*

- #,- cách :I O4 0, trong 9 trình và S> trúc b( 1@ gán

- Rèn 1>?@ 8A B :I O4 0, trong 9 trình

3 Thái độ:

- HS nghiêm túc trong  -56 và nghiên `> bài G giáo O4  sinh tính sáng -UG tích X trong  -56G lòng yêu thích 0D môn

II

- GV:Sách giáo khoa, máy tính @ -I*

- HS: Ôn 1U 8, -` u 

III

- J O|G -L 1>5

IV

% :; 1: Củng cố lại một số kiến thức đã học

- #, là U 1/  -, nào?

#, dùng M - tên cho ED- vùng b( 0D J máy tính

#, 1> -P OP 1@> (giá -Rr* Giá -R b( 0, có -M thay V

trong quá trình -X @ 9 trình

- Cách khai báo 0,  -, nào?

Var tên 0, : 8M> b( 0,h

- Có -M -X @ các thao tác nào J 0,Y

Các thao tác có -M -X @ J 0, là gán giá -R cho 0,

 56 giá -R cho 0, và tính toán J giá -R b( 0,*

- ,- S> trúc b( 1@ gán, 1@ 56 giá -R cho 0,G 1@

in giá -R b( 0,Y

- @ gán có OU

Tên 0, := 0M> -`q-rh

- @ 56 giá -R cho 0,<](O1q- 0,rh

- @ in giá -R cho 0, : Write(tên 0,rh  Writeln(tên

0,rh

1 $b Bf E =; Nf K

>]B :s >tB

- #, là U 1/  -, nào?

- Cách khai báo 0,  -, nào?

- Có -M -X @ các thao tác nào J 0,Y

- ,- S> trúc b( 1@ gán, 1@ 56 giá -R cho 0,G 1@

in giá -R b( 0,Y

% :; 2: Vận dụng để làm một số bài tập.

Bài 1: ,- 9 trình tính -V b( 2 :o nguyên O9

56 -n bàn phím:

Program tinhtong;

Var a,b: integer;

S: real;

Begin

Writeln(‘ Nhap so nguyen duong a:’); readln(a);

Writeln(‘ Nhap so nguyen duong b:’); readln(b);

S:= a + b;

Writeln( ‘ Tong cua 2 so a va b la:’, s:3:0);

Readln;

End

2 0H G :? làm =; Nf bài HI

Bài 1: ,- 9 trình tính -V b( 2 :o nguyên O9

56 -n bàn phím:

Bài 2: ,- 9 trình tính O@ tích chu vi hình P

5-Program chu_vi_hinh_chu_nhat;

Var a,b,p: integer;

Begin

Writeln(‘ Nhap chieu dai a:’); readln(a);

Writeln(‘ Nhap chieu rong b:’); readln(b);

P:= a + b;

Writeln( ‘ Chu vi hinh chu nhat la:’, P:3:0);

Readln;

End

Bài 3:

Hãy ~ ra 1‚ và :I( 1‚ trong 9 trình sau :

+  sinh tìm và :I( 1‚ b( 9 trình theo yêu Q> b(

giáo viên

Bài 2: ,- 9 trình tính O@ tích chu vi hình P

5-Bài 3:Hãy ~ ra 1‚ và :I( 1‚ trong 9 trình sau:

Const pi:=3.1416;

Var cv,dt:integer R:real;

Begin R=5.5 Cv=2*pi*r;

Dt=pi*r*r;

Writeln(‘chu vi la:= cv’); Writeln(‘dien tich la:=dt’);

Readln End

Bài 4:

,- 9 trình tính O@ tích S b( hình tam giác J

.D dài ED- U a và k> cao -9 ` h (a và h là các :o

-X nhiên / 56 vào -n bàn phím)

+  sinh ,- 9 trình:

Program tinhtoan;

Var a,h: interger; S : real;

Begin

Write(‘Nhap canh day và chieu cao :’);

Readln (a,h);

S:=(a*h)/2;

Writeln(‘ Dien tich hinh tam giac la :’,S:5:1);

Readln;

End

Bài 4:

,- 9 trình tính O@

tích S b( hình tam giác J

.D dài ED- U a và k>

cao -9 ` h (a và h là các

:o -X nhiên / 56 vào -n bàn phím)

V

- k nhà  bài, 8,- /6 SGK

RÚT KINH

………

………

………

………

 21 Ngày  …./…./2010

 11 Ngày

KIỂM TRA THỰC HÀNH

THỜI GIAN: 45 phút

- Hs 0,- cách phân tích ED- bài tốn và :I O4 / ngơn P Passcal M ,- thành ED-

9 trình hồn ~

- &ME tra 8, -`  sinh k

Phân tích bài tốn

,- / ->5- tốn

#,- :I O4 0,G câu 1@ 9 L trong Passcal

- ,- F các câu 1@G -n khĩa

III

- U- D cá nhân trên máy

2u

2JI án Program HINH_CHU_NHAT;

Uses Crt;

Var a,b,s,c:

real; Begin

Clrscr;

Writeln(‘ TINH DIEN TICH & CHU VI HINH CHU NHAT:’);

Writeln(‘ -‘);

Write('Nhap chieu dai='); readln(a);

Write('Nhap chieu rong=');readln(b);

s:=a*b;

c:=(a+b)*2;

Writeln('Dien tich hinh chu nhat la:’,s:6:2);

Writeln('Chu vi hinh chu nhat:',c:6:2); Readln;

End

 24 Ngày  …./…./2010

I )$ TIÊU:

- M> / bài toán và 0,- cách xác R bài toán

- Rèn 1>?@ 8A B phân tích và xác R bài toán

3 Thái độ:

- Thái D  -56 nghiêm túc, yêu thích môn *

II

GV:Sách giáo khoa, máy tính @ -I*

HS: Sách, KG bài

III

- L L

IV

Hoạt động 1: Tìm hiểu khái niệm bài toán

? Bài toán là khái @E quen ->D ta - 6 K

P môn  nào?

- Giáo viên phân tích => yêu Q>  sinh ( ra khái

@E bài toán

+ Bài toán là khái @E ta - 6 K các môn 

toán, 5- lý, hoá ’

? Em hãy cho P ví O4 k bài toán

Ví O4  tính -V các :o -X nhiên -n 1 , 100, tính

W>L  ô tô  / trong 3  J 5 -o 60

8Ei*

- Tuy nhiên, t ngày ta - 6 và L W>?,- các

công @ ( OU 9 k>  156 0L I>

9G 156 0L ME b( các 0U trong 1J6’

+  sinh chú ý 1\ nghe => ghi J 8, -`*

? 5? bài toán là gì?

 Ta có -M M> bài toán là ED- công @ hay ED-

@E 4 Q 6L L W>?,-*

1 Bài toán và xác :^> bài toán:

a) Bài toán:

- Bài toán là ED- công @ hay ED-

@E 4 Q L

W>?,-Bài toán là gì?

Là công vic hay môt nhiêm vu câ"n pha$i gia$i quyê&t

Để giải quyết được một bài toán cụ thể,

ta cầ n phải xác định rõ điều gì̀?

* Xa & c (inh ca&c (iê"u kiên cho tr,-&c.

* Kê & t qua$ thu (,-c

Xa & c (inh ba"i toa&n

Vi ́ dụ 2: Xét bài toán “Tìm đường đi tra ́ nh các điểm nghẽn giao thông”.

Kê & t qua$ câ"n thu (,-c

• Vi tri& (iê$m nghe3n giao thông.

• Ca & c con (,-"ng co& thê$ (i t," vi tri& hiên tai t-&i vi tri& câ"n t-&i

vi tri& câ"n t-&i ma" không qua (iê$m nghe3n giao thông.

-  ,- S> trúc b( 1@ gán, 1@ 56 giá - R cho 0,G 1@

in giá - R b( 0,Y

- @ gán có OU

Tên 0, := 0M> - `q-rh

- @...

- #, U 1/  - , nào?

- Cách khai báo 0,  - , nào?

- Có - M - X @ thao tác J 0,Y

-  ,- S> trúc b( 1@ gán, 1@ 56 giá - R cho 0,G... Ta có - M M> tốn ED- cơng @ hay ED-

@E 4 Q 6L L W>? ,-*

1 Bài toán xác :^> toán:

a) Bài toán:

- Bài toán ED- cơng @ hay ED-

@E