Giáo án Tin học 11 - Trường THPT Quang Trung

Về kỹ năng:  Cài đặt được thuật toán của một số bài toán đơn giản với kiểu dữ liệu mảng một chiều  Thực hiện được khai báo mảng, truy cập, tính toán các phần tử của mảng 3.. Về thái độ[r]

Trang 1

Tuần: 09,10 - Tiết PPCT:16,17 Ngày dạy:

1.Về kiến thức:

sinh sau

 Xây

 Làm quen

2.Về kỹ năng:

 Rèn

3 Về thái độ:



ngôn

II

1 Giáo viên:

 Sách giáo viên, máy vi tính ?I cài ?J Turbo Pascal

2 Học sinh:



1

2

3 Giảng bài mới:

GV: TU qua chúng ta ?I

làm quen và tìm

Điều kiện Đúng Câu lệnh

BÀI < VÀ = HÀNH 2

Trang 2

GV : Khuùc Thò My õ Trinh

2

-nào có

3@#( if-then ?D không?

HS: <0 -Y theo câu Z

1 giáo viên

GV:

trúc

GV: Yêu

vào

sách và gõ vào máy

GV: Sau khi

yêu

PITAGO

GV:

có

phím F2

GV:

theo dõi quá trình

readln(a, b, c) thì giáo

viên

cách

M a= 3, b= 4, c= 5 Các

giá

Enter.

GV: Yêu

giai

bài toán và

a, b, c khác ?Q rõ

ràng

HS: < hành và quan

 Input:

 Output:

không?



Điều kiện Câu lệnh 2 Sai Đúng Câu lệnh 1

Nh2p a, b, c

a2:= a;

b2:= b;

c2:= c;

a2:=a 2*a;

b2:=b2*b;

c2:=c2*c;

a2= b2 + c2;

b2= a2 + c2;

c2= a2 + b2

Ba sC ?ã nh2p là b@

sC Pi-ta-go không b@ sC Pi-ta-goBa sC ?ã nh2p là

Sai Đúng

 j

Bước 1: [23 a, b, c

Bước 2: Tính a2, b2, c2

a2:= a;

b2:= b;

c2:= c;

a2:= a2* a;

b2:= b2* b;

c2:= c2* c;

Bước 3: k Q" tra

j IF a2= b2+ c2 or

j

Lop11.com

Trang 3

sát

GV: Sau khi ?I quan sát

quá trình nhánh in ra

%2 ?Q sao / giá M a2,

b2, c2 bây YX

GV: Chúng ta

Debug

Watch

phím Crtl+ F7 J chon

a2, b2, c2 vào ?Q xem 4

hành

xem 4*;

GV:

quá trình

dòng

1 a2, b2, c2.

GV: Chúng ta có Q 4

?7 kích & 9 7

màn hình hay phím F6 ?Q

dõi không /M 9 7 khác

che -3;

GV: Yêu



program Pi_ta_go;

uses crt;

var a,b,c:integer;

a2,b2,c2:longint;

begin clrscr;

write('nhap a, b, c: ');

readln(a, b, c);

a2:=a;

b2:=b;

c2:=c;

a2:=a2*a;

b2:=b2*b;

c2:=c2*c;

if ((a2=b2+c2)or(b2=a2+c2)or(c2=a2+b2)) then

writeln('ba so nhap la so Pi_ta_go') else

writeln('ba so nhap khong la so Pi_ta_go');

readln end.

a) b) trình, c)Vào xem giá M 1 a2, b2, c2

d)

Trang 4

làm các thao tác nhu trên.

HS: Làm theo yêu

các thao tác

giá c2=25

e)Quan sát quá trình nhánh

c=800

4.Củng cố và luyện tập:



5.Hướng dẫn học sinh chuẩn bị bài ở nhà:

 bài x;

 BTVN :

 Yêu

Xem

1000, c = 800 không? Và tìm ra -Y 0 thích

 Xem & bài 11 : kdz{ |}[S

+

+ sinh:

+ Giáo viên: 1 [@ dung:

2

3 <7 8

Trang 5

Tuần: 10 - Tiết PPCT: 18 Ngày dạy:

df TRA 1 

Trang 6

1 Về kiến thức:

sinh sau



 Cài



2 Về kỹ năng:

 Cài

 Rèn

trong



ngôn

II

1 Giáo viên:

 Sách giáo viên

2 Học sinh:

 Xem & bài 11

1

2 Kiểm tra bài cũ:

Bài 11

Trang 7

 !"#$ %&' ()*+ trò " dung

kl E4# !m

Xét các ví ( sau:



ngày trong

khai báo

Var t1,t2,t3,t4,t5,t6,t7



hàng trong 1

 Quan sát, theo dõi và

nghe

Cùng

"@ tháng %2 các em có

dùng?

Hôm nay, chúng ta tìm

 Suy

dùng

GV:

` ra ví ( 1 trang 53 sách

giáo khoa :

trung bình 1 " ngày

trong 1

và

có

trung bình

trình ?Q so sánh cách 9

1 .o (.@0 Em U.p0 ]q#$ ]" %(.m0

cùng

nó có xác

VD1 : program Nhietdo_Tuan;

var t1,t2,t3,t4,t5,t6,t7,tb:real;

dem:integer begin

writeln(‘nhap vao nhiet do cua 7 ngay);

readln(t1,t2,t3,t4,t5,t6,t7);

tb:=(t1+t2+t3+t4+t5+t6+t7)/7;

dem:=0;

if t1>tb then dem:=dem+1;

writeln(‘nhiet do trung binh tuan : ’, tb:4:2);

writeln(‘so ngay nhiet do cao hon trung binh : ‘,dem);

readln end

!p mô q /t 3.@0 %(vw#$ trình !vy% E.z 3 #(v

program Nhietdo_Nngay;

const Max = 366; (gia thiet N lon nhat la 366)

type Kmang1 = array [1 Max] of real;

var Nhietdo: Kmang1;

Trang 8

 Quan sát, theo dõi, ghi

chép

trên ta quan tâm

trên ta xét :

Tên

real

Cách khai báo

Kmang1;

Cách truy

 Quan sát theo dõi và ghi

chép

Cùng %& giáo viên ? ra

câu 0 -Y

<U ví ( trên ta có cách khai

báo

Cách khai báo nào

Tùy theo bài mà chúng ta

dem,i,N:byte;

Tong, trung_binh: real;

begin writeln(‘nhap vao so ngay: ‘);

readln(N);

Tong:=0;

for i:=1 to N do begin write (‘nhap nhiet do ngay

Tong:= Tong + Nhietdo [i];

end;

dem: = 0;

Trung_binh:= Tong/N;

For i: 1 to N do

if Nhietdo [i] >Trungbinh then dem:= dem+1

writeln(‘nhiet do trung binh ’,N,’ngay:

’,Trung_binh:8:3);

writeln(‘so ngay nhiet do cao hon trung binh : ‘,dem);

readln end

 Tên ]q#$ ]" %(.m0

 d.p0 /t 3.@0 %&' R()# r

 Cách khai báo I.z# ]q#$ ]" %(.m0

 Cách truy %R vào #$ R()# r ]q#$

1a.Khai báo:

Cách 1: khai báo

var <tên I.z# ]q#$ : array {U.p0 %( Q~|

Cách 2: khai báo gián

type <tên U.p0 ]q#$ = array {U.p0 %(

Q~| of U.p0 R()# r_

Trang 9

cho

cách 1

Thông

Cách 1

Ví

và

K*

C 1 2 3 4

Giá

M 11 42 61 79

B[3] = 61

var <tên I.z# ]q#$ :<tên U.p0 ]q#$_

trong ?

liên

Type: là

kp truy %R vào R()# r ]q#$ ta E.z :

<tên

Ví /s khai báo ]q#$ ]" %(.m0 var ten_mang_1 : array [1 50] of real;

hay:

type mang_so_thuc = array [1 50] of real;

var ten_mang_1 : mang_so_thuc ;

4 Củng cố và luyện tập:

-

- Khai báo

* < 3

<kiểu phần tử>;

* Gián 3

Type <tên kiểu mảng> = array [kiểu chỉ số] of

<kiểu phần tử>;

Var <tên biến mảng> : <tên kiểu mảng>;

- Khi khai báo

5 Hướng dẫn học sinh chuẩn bị bài ở nhà:

 bài x;

 Xem

Trang 10

V RÚT KINH e

+

+ sinh:

2

3 <7 8

sinh sau



 Cài



 Có

toán



ngôn

II

1 Giáo viên:

2 Học sinh:

 Xem 3 bài 11

Bài 11

Trang 11

IV TRÌNH 

1

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

Pascal

a) var dayso: array[-1 20.5] of real;

b) var mang: array[0 255] of byte;

c) type A: array[-11 20] of integer;

var mang: A;

Hot !"ng 1: Trình bày

toán ví d( 1 Trình bày

Input và Output c1a bài

toán Và yêu c\u HS theo

dõi thu2t toán trong SGK

HS: Quan sát và nghe

gi0ng

toán ?Q gi0i bài toán trên

`Jt câu hZi ?Q HS hiQu rõ

hn:

1/ Bin i dùng ?Q làm gì?

2/ Ý ngh5a c1a b&c 3

3/ Có s9 d(ng vòng lJp

không?

4/ Khi nào thì vòng lJp

dUng lAi?

5/ Cho HS chAy th9 thu2t

toán v&i b@ dF li)u: 5 1

7 6 3 15 8 4

b> " Q~ ví /s :

Ví

nguyên

… , AN dãy

- Ý v#$ :

+ `J C A1 là + Cho i

A[i]

(vw#$ trình #(v sau :

Program timmax ; Uses crt ;

var a : array[1 250] of integer ; n,i,max,csmax : Integer ; Begin

clrscr ; Write('Nhap n = ') ; Readln(n) ;

For i := 1 to n do Begin

Write('a[',i,'] = ') ;

Trang 12

HS: Nghe gi0ng, tr0 lYi

câu hZi và ghi bài

trình và ?Jt câu hZi:

1/ Khai báo bao nhiêu

bin

2/ Các bin có kiQu dF

li)u là gì?

3/ Câu l)nh nào dùng ?Q

nh2p giá trM cho các ph\n

t9 c1a m0ng?

4/ Nu dãy sC có nhiyu

ph\n t9 ?At giá trM l&n

nht thì chng trình s

xut ra ch* sC c1a ph\n t9

th8 my?

GV: Nêu n@i dung bài

toán Trình Input và

Output c1a bài toán Cho

HS xem thu2t toán ?Dc

chuLn bM trên b0ng ph(

và chng trình `Jt câu

hZi ?Q HS hiQu rõ chng

trình:

1/ Mô phZng thu2t toán

v&i b@ dF li)u:

6 1 5 3 7 8 10 7 12 4

readln(a[i]) ; End ;

max := a[i] ; csmax := 1 ; For i := 2 to n do

If a[i] > max then Begin

max := a[i] ; csmax :=i ; End ;

Writeln('Gia tri lon nhat : ',max) ; Writeln('chi so ptu lon nhat : ',csmax) ; Readln ;

End

Ví

toán tráo ?7

…, AN

- Output : Dãy A ?D W3 R3 theo 8 không

0"

- Ý v#$ :

+ + Làm

(vw#$ trình #(v sau :

Program sapxep ; Uses crt ;

var A : Array[1 250] of integer ; n,i,j,tg : Integer ;

Begin clrscr ; Write('Nhap so phan tu mang n = ') ; Readln(n) ;

For i := 1 to n do Begin

Write('A[',i,'] = ') ; readln(A[i]) ; End ;

Trang 13

2/ Trong thu2t toán c\n

duy)t qua bao nhiêu l\n?

3/ Mi lDt thc hi)n trên

?oAn nào c1a dãy sC?4/

Câu l)nh nào trong

chng trình thQ hi)n hai

yêu c\u trên?

5/ Mi lDt duy)t thc

hi)n các thao tác gì?

6/ Câu l)nh nào thc hi)n

vi)c tráo ?7i?

và ghi bài

For j := n downto 2 do Begin

For i := 1 to j-1 do

If A[i] > A[i+1] then Begin

tg := A[i] ; A[i] := A[i+1] ; A[i+1] := tg ; End ;

End ; Writeln('day sau khi sap xep : ') ; For i := 1 to n do

write(a[i]:8) ; readln ;

End Writeln('chi so ptu lon nhat : ',csmax);

readln ;

End

-

A" Y ;

 BTVN :

 Xem

+

+ sinh:

2

3 <7 8

Trang 14

sinh sau



 Cài



 Có

toán



ngôn

II

1 Giáo viên:

2 Học sinh:

 Xem 3 bài 11

1

Trình bày cách khai báo gián

Pascal Có khai báo sau, cho

nhiêu

trong

Bài 11

Trang 15

Type diem = array[1 15] of byte; Var A, mang: diem;

GV: Nêu n@i dung c1a

ví d( 3 Trình bày ph\n

Input và Output Yêu

c\u HS quan sát thu2t

toán trong SGK Gi0ng

gi0i thu2t toán

HS: Nghe gi0ng và ghi

chép

GV: `Jt nhFng câu hZi

?Q HS hiQu rõ thu2t

toán và chng trình:

1/ Cho ví d( mô phZng

thu2t toán v&i b@ dF

li)u: 2 4 5 6 9 21 22

30 31 33

2/ `iyu ki)n c1a lJp là

gì?

3/ Bin logic Tim_thay

có tác d(ng gì?

4/ ThQ hi)n s ki)n

cha tìm thy hoJc

không gian tìm kim

cha rng bEng biQu

th8c logic nào?

5/ Bin Giua có tác

c> " Q~ ví /s :

A1, A2, …, AN, sC nguyên k

tim thay” nu không có sC hAng nào c1a dãy A có giá trM bEng k

* Thu2t toán:

B voc 1: Nh2p N, các sC hAng A1, A2, …, AN, và

khóa k;

2

Dau Cuoi

Bvoc 4: Nu A Giua = k thì thông báo ch* sC Giua, ri

kt thúc;

Bvoc 5: Nu A Giua > k thì ?Jt Cuoi = Giua – 1 ri

chuyQn ?n b&c 7;

Bvoc 7: Nu Dau > Cuoi thì thông báo dãy A

không có sC hAng có giá trM bEng k, ri kt thúc;

B voc 8: Quay lAi b&c 3.

Program sapxep ; Uses crt ;

var A : Array[1 250] of integer ; n,i,k : Integer ;

dau,cuoi,giua : Integer ;

TK : boolean ; Begin

clrscr ; Write('Nhap so ptu mang n = ') ;

Trang 16

d(ng gì?

6/ PhAm vi tìm kim

?Dc xác ?Mnh bqi

nhFng bin nào?

d ụng.

GV: Cho m@t b@ dF

li)u c( thQ và yêu c\u

HS chAy chng trình

v&i b@ dF li)u ?ó

c\u

Readln(n) ; For i := 1 to n do Begin

Write('A[',i,'] = ') ; readln(A[i]) ; End ;

Write('nhap so can tim k : ') ; Readln(k);

dau := 1 ; cuoi := n ;

TK := false ; while (dau <= cuoi) and Not TK Do Begin

giua := (dau+cuoi) div 2 ;

If A[giua] = k then TK := true Else

If a[giua]>k then cuoi := giua - 1 Else dau := giua + 1 ;

End ;

If TK then write('Chi so la : ',giua) else write(' Khong tim thay ');

readln ;

End

-

 BTVN :

 Xem

+

+ sinh:

2

3 <7 8

Trang 17

sinh sau



 Cài



 Có

toán



ngôn

II

1 Giáo viên:

2 Học sinh:

 Xem 3 bài 11

1

+ Trình bày thao tác

+

Bài 11

Trang 18

GV : Quay

nhu

GV : Khai báo cách nào

HS :

GV : Tùy theo

GV : Khi khai báo

các em * ra ?D * C 1

GV : S "@ C sinh lên

khai báo

Minh

hai

GV cho

trình và

các

for - do

GV nên

cho các em quan sát

và

- cùng

o ]q#$ hai %(.m0 ta quan tâm !z# :

- Trong ngôn

Cách 1 : Khai báo 3 Var : <Tên

dòng,

báo

Type <Tên kiểu mảng> = Array[kiểu chỉ số dòng, kiểu chỉ số cột] of <kiểu phần tử> ; Var <Tên mảng> : <Tên kiểu mảng> ;

Ví /s :

]q#$ :

Type ArrayInteger = Array[1 10,1 15] of Integer

; ArrayReal=Array[1 50,1 100] of Real ; Var A : ArrayInteger ;

Trang 19

máy

Program Timkiem;

Uses crt;

var A : Array[1 100,1 100] of

Integer;

i,j,n,m : Byte ;

k,d : integer ;

Begin

Clrscr ;

Write(' Nhap so dong, so cot cua

mang : ') ;

Readln(m,n);

For i := 1 to m do

For j := 1 to n do

Begin

Write(' A[',i,',',j,'] = ');

Readln(A[i,j]);

End ;

Writeln(' Mang vua nhap vao la

: ');

Writeln;

For i := 1 to m do

Begin

For j := 1 to n do

Write(a[i,j]:4) ;

Writeln;

End;

Write(' Nhap gia tri k : ');

Readln(k) ;

d := 0 ;

For i := 1 to m do

For j := 1 to n do

If a[i,j] < k then

Begin

write('So nho hon ',k,' la ');

write(a[i,j]:8);

B : ArrayReal ;

Var A : Array[1 10,1 15] og Integer ;

B : Aarray[1 50,1 100] og Real ;

%(.m0 :

<Tên mảng>[chỉ số dòng, chỉ số cột]

b> " Q~ ví /s :

Ví /s 1 :

Program cuuchuong;

Uses crt ; var A : Array[1 9,1 9] of Integer ;

i, j : Byte ;

Begin Clrscr ; Writeln('Bang cuu chuong 1 -> 9 : ');

Writeln ; For i := 1 to 9 do For j := 1 to 9 do A[i,j] := i*j ; For i := 1 to 9 do Begin

For j := 1 to 9 do Write(a[i,j]:4);

Writeln ; Writeln ; End ;

Trang 20

d := d+1 ;

End ;

If d = 0 then

Write('Khong co phan tu nao

nho hon ',k);

readln;

End

Readln ; End

Ví /s 2 :

2

- Khai báo

* < 3

Var <tên biến mảng> : array [kiểu chỉ số dòng, kiểu

chỉ số cột] of <kiểu phần tử>;

* Gián 3

Type <tên kiểu mảng> = array [kiểu chỉ số dòng, kiểu

chỉ số cột] of <kiểu phần tử>;

Var <tên biến mảng> : <tên kiểu mảng>;

-

 Xem & bài BÀI <G VÀ <K HÀNH 3

+

+ sinh:

2

3 <7 8

1 Giáo viên:

2 Học sinh:

 Xem 3 11

Bài 11

Trang 11< /span>

GV : Khúc Thị My õ Trinh

-nào có

3@#( if-then ?D khơng?

HS: <0 -Y theo câu Z

1 giáo viên

Định dạng
Số trang	20
Dung lượng	293,61 KB