Giáo án Tin học 11 - Tiết 20 đến tiết 27

- Khai báo biến mảng một chiều: VAR tên biến: tên kiểu mảng; - Tham chiếu đến từng phần tử: Tên biến[chir số] c.Các bước tiến hành: HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH 1.Yêu c[r]

Tiết 20,21

§11- $% TIÊU:

-

%&

-

"$* +

-

Pascal

II ,- DÙNG 12 34

$5 67 89 giáo viên:

- Máy  Projector, máy vi tính    ví / và minh !"

"$5 67 89 > sinh:

- Sách giáo khoa

$3@1 ,A/0 1234:

b.Nội dung:

- Ví

bình tính

-

có cùng chung

-

c.Các bước tiến hành:



-

- VW X N X 2/  "  trên,

thành

và

2.Yêu A ^ sinh tham ! sách giáo

khoa và

1.Quan sát trên màn hình, suy > và (

Y

- trình 2 * (' dài

2.Nghiên a sách giáo khoa  ( Y

-

 có cùng    các 2A  trong nhau M $ %&

-

-

P  6 & nào? các 2A  ?, nó

a.Mục tiêu:

-

cách khai báo

b.Nội dung:

-

TYPE tên

+

+

- Khai báo

- Tham   R 2A . Tên c( %&d

c.Các bước tiến hành:

1.Yêu A ^ sinh nghiên a sách giáo

khoa và cho

 trong ngôn  12 trình Pascal

- Tìm

- j^ ^ sinh khác, S Ý >, ?, 

" *R, *U

-

Type

Arrayr=array[1 200] of real;

Arrayr=array[byte] of real;

Arrayb=[-100 0] of Boolean;

- <S C khai báo nào )U

2.Yêu A ^ sinh cho  cách khai báo

a *    *R, "!

- j^ ^ sinh khác, S Ý >, ?, 

" *R, *U

- Dung

bao nhiêu?

- Chú ý cho ^ sinh * cách [ tên  

mj  cách tham   R 2A

1.Tham ! sách giáo khoa và ( Y

- TYPE tên km= Array[kieeur cs]Of  thành 2Ag

- Ví / Type mmc=array[1 100] of integer;

-

- Quan sát  và ^ khai báo ) Arrayr=array[1 200] of real;

Arrayb=array[-100 0] of Boolean;

2.Tham ! sách giáo khoa và ( Y

-VAR tên  tên km;

- Khai báo

- a 3.Theo dõi

12 suy >  ( Y

a[1] là a[i] là

a.Mục tiêu:

-

b.Nội dung:

Bài toán: j 56 bài toán M 2A [ *'  trong !"  1, trong # có % / 

c.Các bước tiến hành:

3@1 ,A/0 B
GIÁO VIÊN 3@1 ,A/0 B
34 SINH

;j   bài

- J  bài lên 

- Yêu A ^ sinh xác P @  vào, @

 ra

-

không? Khó s gì không?

2

   56 bài toán

- Yêu

- Yêu

A  56

3.Chia 2 thành 3 nhóm Yêu A *

- Thu 2 ( Y9  lên  j^ ^

sinh nhóm khác 1 xét + giá

1.Quan sát  bài, theo dõi  yêu A A  56 ?,  bài

- Vào: 7 %& là giá (P   ?, 7 ngày trong A

- Ra: :& ntb là   trung bình trong

A và %& nch là %& ngày có   cao

G   trung bình

-

- 2.Theo dõi Type tuan=array[1 7] of real;

Var ndtuan: tuan;

-

- Tính trung bình

- bình

- Báo cáo

- C1 xét, + giá và w sung   sót ?, nhóm khác

4.Quan sát và ghi 

IV ,C/3 GIÁ 'I BÀI:

;C  dung H ^

- Cách

TYPE tên

VAR tên

-

2.Câu S và bài 12 * nhà:

-

6 & không quá 300 Tính w giá (P các 2A  có giá (P chia  cho k

- -( Y các câu S 1-4, làm bài 12 5,6,7, sách giáo khoa trang 79

-

Tiết 24,25

§11- $% TIÊU:

1

-

-

2$* +

-

Pascal

II ,- DÙNG 12 34:

1$5 67 89 giáo viên :

- Máy tính, máy  Projector, sách giáo khoa, máy  Overhead, 2 ^ 12

2.5 67 89 > sinh:

- Sách giáo khoa

III.3@1 ,A/0 12 - 34

a.Mục tiêu:

-

%& bài toán

b.Nội dung:

Bài toán:

- Khái

-

b.Các

;j  ví / trong sách giáo khoa

Tính và

-

1.Chú ý theo dõi yêu A và W X ?, giáo viên

hãy

-

bao nhiêu

- Có  khó s gì?

- N X 2/ các khó s này, ta xem



- Yêu



2.Các

-

xác P  6 & chính nào?

( 1 hàng ?, 

-Khai báo 9

-Khai báo  9 12 và O'   dài

-

là

2.Các

- Tên

-

-

a.Mục tiêu:

-

b.Nội dung:

-

TYPE tên

- Khai báo

- Tham   R 2A . Tên c$ %& dòng, $ %& d

c.Các

1.Yêu A ^ sinh nghiên a sách giáo

khoa và cho



- Yêu A ^ sinh tìm ví / minh !"

-

 mà " *R, *U

2.Yêu A ^ sinh cho  cách khai báo

 *R, "!

mj  cách tham   R 2A

1.Tham ! sách giáo khoa và ( Y

- TYPE tên kmhc=Array[csd,csc] of  thành 2Ag

- Ví / Type mhc=aray[1 10,1 5] of integer;

-

các 2A  có    integer

2.Tham ! sách giáo khoa và ( Y

- VAR tên K kmhc;

- Ví / Var a:mhc;

3.Quan sát ' trúc chung và suy > tìm ví

/

a[1,2] là 2A  M dòng %& 1,  %& 2 ?, a[I,j] là 2A  M dòng %& I,  %& j ?,

,7/ tiêu:

-

b.Nội dung:

- j 56 bài toán [ *'  trong !"  1

c.Các bước tiến hành:

;j   bài

- J  bài lên 

- Yêu A ^ sinh xác P cách a w

a  

- Yêu

chính ?, bài toán A  56

2.Chia 2 thành 3 nhóm Yêu A *

- Thu 2 ( Y9  lên  j^ ^

sinh nhóm khác 1 xét + giá

cách

quan sát và

sinh '6  5

khoa trang 62  ^ sinh quan sát

-

- Giáo viên

nhà tìm  them

1.Quan sát  bài, theo dõi  yêu A A  56 ?,  bài

- Dùng

- N giá (P cho a[I,j]=i*j

- ' giá (P a[I,j] theo R dòng

- Báo cáo  5 khi hoàn thành

- C1 xét +9 giá và w sung   sót ?, các nhóm khác

3.Ghi 4.Quan sát ?, giáo viên

-

IV ,C/3 GIÁ 'I BÀI:

-

TYPE tên

- Khai báo

- Tham   R 2A . Tên c$ %& dòng, $ %& d

2.Câu

- Làm các bài 12 %& 8, 9, sách giáo khoa, trang 79, 80

- Xem

Tiết 22,23 BÀI 3V HÀNH DI 3

$% TIÊU:

-

"$* +:

- Nâng cao



+Khai báo

-

+Tính w các 2A  ! mãn   nào #g

+Tìm 2A   '9 S '

3.Thái FG

- Góp

trong tìm

II ,- DÙNG 12 34

$5 67 89 giáo viên:

- Phòng máy vi tính, máy  Projector  minh !"

"$5 67 89 > sinh:

- Sách giáo khoa

$3@1 ,A/0 12 - 34

trình có %ƒ

a.Mục tiêu:

-

# tìm ra cách  56 câu b

b.Nội dung:

a-Tìm

Program Sum1;

Uses Crt;

Cosnt nmax:=100;

Type Myarray=Array[1 nmax] of integer;

Var A:myarray;

S, n, I, k:integer;

Begin

Clrscr; Randomize; Write(‘Nhap n=’); Readln(n);

For i:= 1 to n do a[i]:=random(300)-random(300);

For i:= 1 to n do Write(A[i]:5);

Writeln;

Write(‘Nhap k=’); Readln(k); S:=0;

For i:= 1 to n do

If a[i] mod k=0 then s:=s+a[i];

Write(‘Tong can tinh la’,s);

Readln;

End

b-Thêm các

trình

Posi, neg: integer;

Posi:=0;neg:=0;

If a[i]>0 then Posi:=posi+1

Else if a[i]<0 then neg:=neg+1;

Write(posi:4,neg:4);

c.Các

"$3;E FG 2: Rèn 6 r s 12 trình.

a.Mục tiêu:

-



b.Nội dung:

-

 có $ %& S '

c.Các bước tiến hành:

viên

dãy các viên %S   ý cho ^ sinh 1

toán tìm giá (P  '

- Yêu A nêu 1 toán tìm 2A  có giá

(P  '

2.Tìm

 '

-

trang 64

-

-

%., M F nào?

-

$ %&  ' ta %., M F nào?

3

ra các $ %& ?, các 2A  có giá (P 

'

-

(P  ' không?

- <S JA thêm  nào ,U

- <S BP trí thêm các  #U

- Yêu

1.Theo dõi ví / ?, giáo viên

-So sánh $ %& ?, 2A   '

2.Quan sát

- j " $ %& ?, 2A  có giá (P 

'

- Phép so sánh a[i]<a[j]

- J6 a @ 6 R n-1 * 1

3.Theo dõi yêu A9 suy > các câu S

- Có

- ~  in ra các $ %& có giá (P  giá

- Sau khi tìm

-

- Yêu A ^ sinh 12   vào ?,

giáo viên và báo cáo  5

- N+ giá  5 ?, ^ sinh

- C12   và thong báo cho giáo viên

  ra

IV ,C/3 GIÁ 'I BÀI:

7 %& 1 toán G 

+Tính w các 2A  ! mãn   nào #

+Tìm 2A   '9 S '

2.Câu

-

trong A có giá (P  x

- Xem  dung ?, bài @ hành %& 4, sách giáo khoa, trang 65

Tiết 26,27 BÀI 3V HÀNH DI 4

p7J TIÊU:

-

- Làm quen * 1 toán %X2 O2 G 

"$* +

- Rèn 6 r s % /    có ' trúc, r s ‹ " 1 toán 

- Rèn

"6 nhanh G

3.Thái FG

- -@ giác, ?  trong khi @ hành

II N DÙNG V‘] <’J

$5 67 89 giáo viên:

- Phòng máy vi tính, máy

"$5 67 89 > sinh:

- Sách giáo khoa,

ppp<e‘- N“Cj V”]<’J

a.Mục tiêu:

-

b.Nội dung:

Bài 1:

-

Const nmax=250;

Type arrint=array[1 nmax] of integer;

Var n, I, j, y:integer; A: arrant;

Begin

Randomize; Write(‘Nhap n=’); Readln(n);

For i:=1 to n do a[i]:=random(300)-random(300);

For i:=1 to n do write(a[i]:5);

Writeln;

For J:=n downto 2 do

For i:=1 to j-1 do

If a[i]>a[i+1] then Begin t:=a[i]; a[i]:=a[i+1]; a[i+1]:=t; End;

Writeln(‘Day so sau khi sap xep’);

For i:=1 to n do write(a[i]:7); Writeln;

Readln; End

- Yêu

c.Các

;j ý cho ^ sinh 1 toán %X2 O2 s

A

-

- Yêu

2.Tìm

khoa, trang 65

1.Chú ý theo dõi  W X ?, giáo viên  ( Y câu S

-

- các 2A  a bên 2 ?, nó

- C S G thì w F

2.Quan sát

Bài

W ,X Yêu Y

Giúp

Z ,7 MT

1-Trình bày cách khai báo

2-Hãy khai báo 1

3>9 ,G Y[ 3;E ,G Trò Bài toán

n*m %& nguyên cho 1

và m

màn hình giá (P  '

Var n,m,I,j,max:integer;

A: array[1 30,1 50] of

Integer;

Begin

Write (‘nhap n va m:=’);

Readln(n,m);

For i:=1 to n do

For j:= 1 to m do

Begin

Write(‘Nhap phan tu dong

‘, i, ’cot’,j);

Readln(A[i,j]);

End;

For i:= 1 to n do

Begin Max:=0;

For j:=1 to m do

If a[i,j]>max then

max:=a[I,j];

Writeln( ‘gia tri lon nhat

-Cho  Input ?, bài toán -Theo em A  

nào, và



7 em lên * 2A khai báo và

n dòng m

giá dòng I ' kì

-  tìm giá (P  ' cho n dòng thì ta [2  [2 " n A

công * tìm giá (P  '

?, 1 dòng do # ta dùng thêm 1 vòng [2 For

-( Y

 n, m   Integer,

mà  2A  ?, nó là

-HS1:

Var n,m:integer;

A: array[1 30,1 50] of Integer; Begin

Write (‘nhap n va m:=’);Readln(n,m);

For i:=1 to n do For j:= 1 to m do Begin

Write(‘Nhap phan tu dong

‘,I,’cot’,j);

Readln(A[I,j]);

End;

HS2:

Max:=0;

For j:=1 to m do

If a[i,j]>max then max:=a[I,j];

cua dong ‘,I,’la’,max);

End;

Readln;END.

Bài

C12 n %& nguyên R bàn

phím hãy %X2 O2 dãy %&

-Phân tích 1 toán

Tiết 29,30 §12.]  ^' _' XÂU

$% TIÊU:

-

- Phân

-

-  các phép toán lien quan  xâu

"$* +:

- Khai báo

phép toán trên xâu

II ,- DÙNG 12 34

$5 67 89 giáo viên:

- Máy vi tính, máy  Projector    ví /

"$5 67 89 > sinh:

- Sách giáo khoa

$3@1 ,A/0 1234

$3;E FG 1: Tìm  * xâu và cách % /

a.Mục tiêu:

-

xâu, 12 O'   cho  xâu và tham   R ký @ trong xâu

b.Nội dung:

- Xâu ký

xâu

(F

- Khai báo  VAR tên  :-ipCjc  dài  ' ?, xâu];

- Tham   R ký @ trong xâu: tên c$ %&d

c.Các bước tiến hành:

1.Tìm

- J  bài ?, bài toán [ *'  B

trong 2

-

Khai báo

- Yêu A ^ sinh: B !"   12

và O'   cho R 2A .

1.Quan sát, suy > và ( Y

-

- Khai báo

Readln(A[1]);Readln(A[2]);

Readln(A[3]);Readln(A[4]);

…

- <S Có  khó s gì [2 2U

-

phép ta



2.Tìm

- J lên  cách khai báo  xâu

trong ngôn  12 trình Pascal

- <S Ý >, ?, R String, [n]

- <S Khi khai báo không có [n] thì %&

- Yêu

- <S Xâu có bao nhiêu ký @U

-

^ là  dài ?, xâu

-

-

ngôn  Pascal

- j  ' trúc chung ?, ? /

12‚O'  

- Yêu A ^ sinh tìm ví / / 

- <S Khi *  12‚O'   cho

ký @

- VW X Ta có  % /  gán 

12 giá (P cho  xâu J' trúc chung:

tên  OLb xâu;

- Yêu

4.Tham

- j  ' trúc chung

- <S Có gì & và khác nhau so * cách

tham

- Yêu

-

Var st:string[1]; c:char;

Begin

c:=st[1]; {1}

c:=st; {2}

End

- <S Trong hai  {1} và {2},  nào

)U

-

-

 9 2 @  F  phím

2.Quan sát ' trúc khai báo và tham ! sách giáo khoa

- String là  xâu

- [n] là giá

mà  xâu có  a,

- :& ký @ & , là 255

- Ví / ‘HA NOI’

- Xâu có 6 ký

- Ký Xâu này có  dài là 1

- Ký  ?, xâu (F là ‘ ‘ Xâu này có  dài là 0

3.Quan sát   ( Y

- Ví / Readln(hoten);

- Ví / Write(‘Ho ten’,hoten);

-

- Ví / St:=’HA NOI’;

4.Quan sát và suy >  ( Y

- j& ' trúc chung khi tham  tên

c$ %&d

- Ví / st[2]

5.Quan sát

12 suy >

- ~ {1} )

-

"$3;E FG 2: Tìm  các phép toán liên quan  xâu.

a.Mục tiêu:

-

trong ngôn  12 trình Pascal

b.Nội dung:

- Phép ghép xâu: ký

- Các phép so sánh: =,< >, >, <, <+, >=:

$ %& trong  mã ASCII là  G C A và B là các xâu có  dài khác nhau và A là !" A ?, B thì A S G B

c.Các bước tiến hành:

- <S Hãy X " các phép toán H ^

trên    u

2.Tìm

toán trong

-

Var st:string;

Begin

St:=’Ha’+’Noi’; Write(st);

Readln; End

-

hình?

-

 5

- Yêu

- <S Ja s ?, phép U

-

A ^ sinh cho   5

St:=’Ha’ +’Noi’;

St:=’Ha ‘+’Noi’;

1.Chú ý theo dõi, suy > và ( Y

- Phép toán %& ^

- Phép toán so sánh

- Phép toán logic

2.Quan sát ví /9 suy > và ( Y

- Quan sát

- T 5 cho ta: st=’HA NOI’

- Quan sát

- Ví / st:=’HA NOI’+’Co ho GUOM’ T 5 st=’HA NOIco ho GUOM’

- Là phép toán & xâu a hai vào & xâu

a '

St:=’HaNoi’;

St:=’Ha Noi’;

length(st) lên 6.

- <S Ý >, ?, Length và ?, st?

-

Var st:string;

Begin

St:=’Ha Noi’; Write(length(st));

Readln; End

-

hình?

-

 5

- <S Ja s ?, hàm Length( ) là gì?

-

trình

1.Quan sát ' trúc chung

- Length: là tên hàm, có >, là  dài, st:

là

- Quan sát

- T 5 là: 6

- Quan sát

- hàm cho

‘a’ có trong xâu.

Upcase(ch).

-

Var ch:char;

Begin

Ch:=’h’; Write(upcase(ch));

Readln; End

-

hình?

-

 5

- <S Ja s ?, hàm upcase( )?

-

hoa

pos(s1,s2)

-

Var vt:byte;

Begin

Vt:=pos(‘cd’,”abcdefcd’);Write(vt);

Readln;End

-

hình?

-

 5

- Ja s ?, hàm pos?

- Thay tham

trình  pos(‘k’,’abc’) <S  5 ?,

hàm  bao nhiêu?

-

' cách hay không?

- <S Có cách  nào khác?

copy(st,vt,n).

-

Var st:string;

Begin

St:=copy(‘bai tap’,3,4); Write(st);

Readln; End

-

hình?

-

2.Quan sát ' trúc chung ?, hàm Upcase

- Quan sát

- T 5 là: H

- Quan sát

- Cho giá (P là  cái in hoa ?, ch

Var st:string;

Begin Readln(st);

For i:=1 to length(st) do Write(upcase(st[i]));

End

3.Quan sát ' chung ?, hàm pos và các ví

/   a s

- Quan sát

- T 5 là : 3

- Quan sát

- Hàm cho giá ?, xâu st2 trong xâu st2

-  không 0

Var st:string;

Begin Readln(st);

If pos(‘ ‘,st)< >0 then write(‘Co’) Else write(‘Khong’);

End

- Có  % / For  tìm ' cách trong xâu

4.Quan sát ' trúc chung ?, hàm copy và

ví /   a s

- Quan sát

? ?1 1- $% TIÊU:

1

-

-

2$* +

-

Pascal

II ,- DÙNG 12 34:

1$5 67 89 giáo viên :

- Máy...

2.Các

- Tên

-

-

a.Mục tiêu:

-

b.Nội dung:

-

TYPE tên

- Khai báo

- Tham   R 2A...

-

%& toán

b.Nội dung:

Bài toán:

- Khái

-

b.Các

;j  ví / sách giáo khoa

Tính

-

1.Chú ý