Giáo án Tin học Lớp 11 - Chương trình cả năm - Nguyễn Văn Thìn

;
 Write(‘chi so cña phan t­ lon nhat la', csmax);
 readln;
End.
? Vßng lÆp ®Çu tiªn For i:=1 to N do 
dïng ®Ó lµm g×?
? C©u lÖnh max: = A[1]; csmax: = 1;
lµ c©u lÖnh g×?
? d·y C©u lÖnh 
 For i:=2 to N do 
 if a[i] > max then
 begin
 max: = a[i];
 csmax: = i;
 end;
cã ý nghÜa nh­ thÕ nµo?
- cuèi cïng lµ 2 c©u lÖnh in ra mµn h×nh gÝa trÞ lín nhÊt vµ chØ sè cña phÇn tö lín nhÊt qua 2 c©u lÖnh write. 
VD: d·y A gåm cã 5 phÇn tö nh­ sau
A1 A2 A3 A4 A5
3 5 4 11 3
- Gi¸o viªn cho häc sinh nh×n vµo bµi to¸n vµ ch¹y ch­¬ng tr×nh trªn ®Ó cho häc sinh ®­a ra kÕt qu¶ nh­ trªn.
 3. Ho¹t ®éng 3: S¾p xÕp d·y sè nguyªn thµnh 1 d·y kh«ng gi¶m b»ng thuËt to¸n trao ®æi.( D·y gåm N sè vµ N<250 vµ gi¸ trÞ mçi sè kh«ng v­ît qu¸ 500(VD2)
? Input cña bµi to¸n lµ g×? 
? output cña bµi to¸n lµ g×?
ThuËt to¸n: 
program SX;
Uses Crt;
Const nmax:=250;
Type arrInt = Array[1..nmax] of integer ;
Var A: arrInt;
 Max, N, i, j,t: integer;
Begin
 Clrscr;
 Write(‘nhap vµo sè phÇn tö n=’);
 readln(n);
 For i:=1 to N do 
 Begin
 write(' phan t­ thu',i,'=');
 readln(a[i]);
 end;
 For j:=N dowto 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;
 Write(‘d·y ®­îc Xs la' );
For i:=1 to N do 
 Write(a[i]);
 readln;
End.
- Líp tr­ëng b¸o c¸o sÜ sè líp.
- 
-Häc sinh nhí l¹i kiÕn thøc ®· häc vµ ®­a ra nhËn xÐt cña m×nh.
input: d·y gåm N sè nguyªn d­¬ng(N<250) A1, A2... AN, mçi sè ®Òu kh«ng v­ît qu¸ 500.
output: ChØ sè vµ gi¸ trÞ lín nhÊt trong d·y ®· cho.
- Häc sinh suy nghÜ, x©y dùng tõng b­íc cña thuËt to¸n, häc sinh kh¸c bæ sung.
ThuËt to¸n:
B1: NhËp N vµ d·y A1,A2AN;
B2: Max<- A1, i,<-2;
B3: NÕu i>N th× ®­a ra gi¸ trÞ Max råi kÕt thóc.
B4: 
 B41 NÕu Ai> Max th× Max<- Ai
 B42 i<-i+1 råi quay l¹i b­íc 3;
 chiÕu ch­¬ng tr×nh trªn lªn b¶ng cho häc sinh quan s¸t.
Häc sinh quan s¸t trªn m¸y chiÕu VD trªn 
- häc sinh suy nghÜ tr¶ lêi c©u hái.
dïng ®Ó nhËp gi¸ trÞ tõ phÇn tö thø nhÊt ®Õn phÇn tö thø N.
- Lµ c©u lÖnh g¸n gi¸ trÞ lín nhÊt b»ng phÇn tö ®Çu tiªn trong m¶ng vµ chØ sè cña phÇn tö lín nhÊt chÝnh lµ phÇn tö ®Çu tiªn trong m¶ng.
- DuyÖt tõ phÇn tö thø 2 trë ®i nÕu gi¸ trÞ phÇn tö thø 2 ®ÕnN lín h¬n gi¸ trÞ phÇn tö thø 1 th× ®æi chç cho phÇn tö thø 1 vµ g¸n chØ sè = chØ sè cña phÇn tö lín nhÊt ®ã.
- Häc sinh chó ý nghe gi¸o viªn gi¶i thÝch tõng c©u lÖnh cã trong ch­¬ng tr×nh
- VËy trong d·y trªn thÊy phÇn tö nµo lµ lín nhÊt?
- phÇn tö lín nhÊt lµ 11
- Nã ®øng ë vÞ trÝ thø mÊy?
- Nã ®øng ë vÞ trÝ thø 4
- Häc sinh chó ý quan s¸t vµ nÕu ch­a hiÓu th× yªu cÇu gi¸o viªn gi¶ng l¹i cho häc sinh thÊy ®­îc.
input: d·y gåm N sè nguyªn d­¬ng(N<250) A1, A2... AN, mçi sè ®Òu kh«ng v­ît qu¸ 500.
output: d·y ®­îc x¾p xÕp thµnh d·y kh«ng gi¶m.
ChiÕu ch­¬ng tr×nh lªn b¶ng cho häc sinh quan s¸t
Gi¶i thÝch tõng c©u lÖnh cã trong ch­¬ng tr×nh ®Ó häc sinh biÕt ý nghÜa cña c¸c c©u lÖnh.
lÊy VD víi d·y sè sau
A1 A2 A3 A4 A5
3 5 3 7 2
 sau khi sx d·y sè trë thµnh
 2 3 3 5 7
- Gi¸o viªn ch¹y ch­¬ng tr×nh trªn cho häc sinh thÊy ®­îc kÕt qu¶ cña ch­¬ng tr×nh.
IV. §¸nh gi¸ cuèi bµi
 1. Nh÷ng néi dung ®· häc.
 - c¸c VD1, 2 trong sgk.
Xác nhận soạn GA ngày tháng năm 2014
 PHỤ TRÁCH CM
Ngµy so¹n:.
Ngµy gi¶ng: Lớp:...............
Tiết 22
Kiểu mảng(tiết 3)
I. Mục đích yêu cầu
 1. KiÕn thøc
 - HiÓu ®­îc VD 2 trong sgk vÒ c¸ch t×m kiÕm mét phÇn tö trong d·y = 1 sè k nµo ®ã.
 2. KÜ n¨ng
 - T¹o ®­îc kiÓu m¶ng mét chiÒu vµ sö dông biÕn m¶ng mét chiÒu trong ng«n ng÷ lËp tr×nh Pascal ®Ó gi¶i quyÕt mét sè bµi to¸n cô thÓ.
- HiÓu ®­îc VD3 trong sgk cã sö dông m¶ng 1 chiÒu
 II. §å dïng d¹y häc
 1. ChuÈn bÞ cña gi¸o viªn.
M¸y chiÕu Projector, m¸y vi tÝnh ®Ó giíi thiÖu vÝ dô vµ minh häa.
 2. ChuÈn bÞ cña häc sinh.
 S¸ch gi¸o khoa.
 III. Ho¹t ®éng d¹y - häc.
Ho¹t ®éng cña gi¸o viªn
Ho¹t ®éng cña häc sinh
 - æn ®Þnh tæ chøc
1 Ho¹t ®éng 1:T×m hiÓu VD 3 trong SGK trang 58
Bµi to¸n:T×m phÇn tö cña d·y gåm N sè nguyªn cã gi¸ trÞ b»ng 1 sè k cho tr­íc 
 ? Input cña bµi to¸n lµ g×? 
? output cña bµi to¸n lµ g×?
? Cho biÕt thuËt to¸n cña bµi to¸n trªn?
ch­¬ng tr×nh duyÖt tuÇn tù c¸c phÇn tö ®Ó t×m ra gi¸ trÞ lín nhÊt.
program TIMMAX;
Uses Crt;
Const nmax:=250;
Type arrInt = Array[1..nmax] of integer ;
Var A: arrInt;
 N, i, k: integer;
 Dau, cuoi, giua: Integer;
 timthay: Boolean;
Begin
 Clrscr;
 Write(‘nhap vµo sè phÇn tö n=’);
 readln(n);
 For i:=1 to N do 
 Begin
 write(' phan t­ thu',i,'=');
 readln(a[i]);
 end;
 write(' nhap vao gia tri k=');
 readln(k);
dau:=1; cuoi:=N; timthay:=false;
 while( dau<= cuoi) and not (timthay) do
 begin
 giua;= (dau+ cuoi) div 2;
 if A[giua] =k then timthay: =true 
 else
 if A[giua] >k then cuoi:= giua-1
 else
 dau:= giua +1;
 end;
 if timthay then write(' chi so t×m duoc la', giua)
 else write('khong tim thay');
readln;
End.
VD: d·y A gåm cã 5 phÇn tö nh­ sau
A1 A2 A3 A4 A5
3 5 4 11 3
 vµ sè k = 4 th× ®­a ra th«ng b¸o cã t×m thÊy vµ chØ sè t×m ®­îc lµ vÞ trÝ thø 3
- Gi¸o viªn cho häc sinh nh×n vµo bµi to¸n vµ ch¹y ch­¬ng tr×nh trªn ®Ó cho häc sinh ®­a ra kÕt qu¶ nh­ trªn.
- Líp tr­ëng b¸o c¸o sÜ sè líp.
- 
-Häc sinh nhí l¹i kiÕn thøc ®· häc vµ ®­a ra nhËn xÐt cña m×nh.
input: d·y gåm N sè nguyªn d­¬ng(N<250) A1, A2... AN, vµ 1 sè nguyªn k
output: Cã hay kh«ng chØ sè i mµ Ai=k
- Häc sinh suy nghÜ, x©y dùng tõng b­íc cña thuËt to¸n, häc sinh kh¸c bæ sung.
ThuËt to¸n:
B1: NhËp N vµ d·y A1,A2AN;
B2: Dau<- 1, cuèi,<-N;
B3: Giua<-[dau+cuoi]/2;
B4: nÕu Agiua = k th× th«ng b¸o chØ sè Giua råi kÕt thóc.
B5: NÕu Agiua >k th× ®Æt cuoi = Giua - 1 råi chuyÓn ®Õn b7;
B6: Dau<-Giua + 1;
B7: NÕu Dau> Cuoi thi th«ng b¸o d·y A kh«ng cã sè h¹ng cã gi¸ trÞ b»ng k råi kÕt thóc.
B8: Quay l¹i B3
chiÕu ch­¬ng tr×nh trªn lªn b¶ng cho häc sinh quan s¸t.
Häc sinh quan s¸t trªn m¸y chiÕu VD trªn 
- Häc sinh chó ý nghe gi¸o viªn gi¶i thÝch tõng c©u lÖnh cã trong ch­¬ng tr×nh
- Häc sinh chó ý quan s¸t vµ nÕu ch­a hiÓu th× yªu cÇu gi¸o viªn gi¶ng l¹i cho häc sinh thÊy ®­îc.
IV. §¸nh gi¸ cuèi bµi
 1. Nh÷ng néi dung ®· häc.
 - VD3trong sgk.
Xác nhận soạn GA ngày tháng năm 2014
 PHỤ TRÁCH CM
Ngày soạn: ................
Ngày giảng: ............... Lớp:............
Tiết 23,24
Bài Tập và thực hành 3
I. Mục đích yêu cầu:
- Xây dựng chương trình có sử dụng cấu trúc rẽ nhánh.
 - Làm quen với việc hiệu chỉnh chương trình.
II. Đồ dùng dạy học:
1. Chuẩn bị của giáo viên:
SGK, GA, các bài tập, phòng máy...
 2. Chuẩn bị của học sinh:
SGK,SBT, vở ghi...
III . Hoạt động dạy – học
Hoạt động của giáo viên
Hoạt động của học sinh
ổn định tổ chức.
Kiểm tra sĩ số.
1.Hoạt động 1: T×m hiÓu c¸ch sö dông lÖnh vµ kiÓu d÷ liÖu m¶ng mét chiÒu qua ch­¬ng tr×nh cã s½n.
 a. Môc tiªu:
 - Häc sinh hiÓu ®­îc ch­¬ng tr×nh cã s½n ë c©u a, biÕt ®­îc kÕt qu¶ ch¹y ch­¬ng tr×nh nµy, tõ ®ã t×m ra c¸ch gi¶i quyÕt c©u b.
 b. Néi dung:
 a – T×m hiÓu, gâ ch­¬ng tr×nh vµo m¸y vµ ch¹y thö:
 Program Sum 1;
 Uses Crt;
 Const 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 lÖnh míi vµo ch­¬ng tr×nh nh»m söa ®æi ch­¬ng tr×nh trong c©u a dÓ ch­¬ng tr×nh thùc hiÖn ®Õm sè d­¬ng vµ sè l­îng sè ©m cña m¶ng.
 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(pãi:4,neg:4);
 c. C¸c b­íc tiÕn hµnh:
1. t×m hiÎu ch­¬ng t×nh ë c©u a, s¸ch gi¸o khoa, trang 63 vµ ch¹y thö ch­¬ng tr×nh.
 - ChiÕu ch­¬ng tr×nh lªn b¶ng .
 - Hái: Khai b¸o Uses CRT; cã ý nghÜa g×?
 - Hái: Myarray lµ tªn kiÓu d÷ liÖu hay tªn biÕn?
 - Hái: Vai trß cña nmax vµ n cã g× kh¸c nhau?
 - Hái: Nh÷ng dßng lÖnh nµo dïng ®Ó t¹o biÕn mµng a?
 - Thùc hiÖn ch­¬ng tr×nh ®Ó häc sinh thÊy kÕt qu¶.
 - Hái: LÖnh g¸n a[i]:=random(300) – random(300) cã ý nghÜa g×?
 - Hái: LÖnh Fori:=1 to n do
 Write(A[i]:5);cã ý nghÜa g×?
 - Hái : LÖnh For – Do cuèi cïng thùc hiÖn nhiÖm vô g×?
 - hái: LÖnh s:=a+a[i]; ®­îc thùchiÖn bao nhiªu lÇn?
 - Thùc hiÖn l¹i ch­¬ng tr×nh lÇn cuèi ®Ó häc sinh thÊy kÕt qu¶.
 2. Söa ch­¬ng tr×nh c©u a ®Ó ®­îc ch­¬ng tr×nh gi¶i quyÕt bµi to¸n ë c©u b.
 - ChiÕu lªn mµn h×nh c¸c lÖnh cÇn thªm vµo ch­¬ng t×nh ë c©u a.
 - Hái: ý nghÜa cña biÕn Posi vµ neg?
 - Hái: Chøc n¨ng cña lÖnh:
 If a[i] >0 then posi:=posi+1
 else if a[i] <0 then neg:=neg+1;
 - Yªu cÇu häc sinh thªm vµo vÞ trÝ cÇn thiÕt ®Ó ch­¬ng tr×nh ®Õm ®­îc sè.
 - Yªu cÇu häc gâ néi dung vµ l­u l¹i víi tªn caub.pas. thùc hiÖn ch­¬ng tr×nh vµ b¸o c¸o kÕt qu¶.
2. Ho¹t ®éng 2: rÌn luyÖn kÜ n¨ng lËp tr×nh.
 - ViÕt ch­¬ng tr×nh t×m phÇn tö cã gi¸ trÞ lín nhÊt cña m¶ng vµ in ra mµn h×nh chØ sè vµ gi¸ trÞ cña phÇn tö t×m ®­îc. NÕu cã nhiÒu phÇn tö cã cïng gi¸ trÞ lín nhÊt th× chØ ®­a ra phÇn tö cã chØ sè nhá nhÊt.
1. l¸y mét vÝ dô thùc tiÔn: Ng­êi mï t×m viªn sái cã kÝch th­íc lín nhÊt trong mét d·y c¸c viªn sái ®Ó gîi ý cho häc sinh thuËt to¸n t×m gi¸ trÞ lín nhÊt.
 - Yªu cÇu: Nªu thuËt to¸n t×m phÇn tö cã gi¸ trÞ lín nhÊt.
 2. T×m hiÓu ch­¬ng tr×nh t×m chØ sè vµ gi¸ trÞ lín nhÊt.
 - ChiÕu ch­¬ng t×nh vÝ dô, s¸ch gi¸o khoa, trang 64. 
 - Hái: Vai trß cña biÕn j trong ch­¬ng tr×nh?
 - Hái: NÕu muèn t×m phÇn tö nhá nhÊt, cÇn söa ë chç nµo?
 - Hái: NÕu muèn t×m phÇn tö lín nhÊt víi chØ sè lín nhÊt ta söa ë chç nµo?
 3. §Æt yªu cÇu míi: ViÕt ch­¬ng tr×nh ®­a ra c¸c chØ sè cña c¸c phÇn tö cã gi¸ trÞ lín nhÊt.
 - Hái: CÇn gi÷ l¹i ®o¹n ch­¬ng tr×nh t×m gi¸ trÞ lín nhÊt kh«ng?
 - Hái: CÇn thªm lÖnh nµo n÷a?
 - Hái: VÞ trÝ thªm c¸c lÖnh ®ã?
 - Yªu cÇu: ViÕt ch­¬ng tr×nh hoµn thiÖn.
 - Yªu cÇu häc sinh nhËp d÷ liÖu vµo cña gi¸o viªn vµ b¸o kÕt qu¶.
Lớp trưởng báo cáo sĩ số.