Giáo án Tin học 8 - Tiết 53-56 - Năm học 2009-2010

b Lệnh lặp với số lần cho trước, điều kiện là giá trị của một biến đếm có giá trị nguyên đã đạt được giá trị lớn nhất hay chưa, còn trong câu lệnh lặp với số lần lặp chưa biết trước, điề[r]

 27 Ngày 

Bài  hành  6

I 01 tiêu:

-

- Rèn

3 Thái độ:

- Thái

II 34 56

Hs: xem bài

III  trình  hành:

( 9: ;< trò ( 9: 1: 18’

D +E  

-Làm bài tập

1

  While … do +/ tính

n

- Ý

- Mô

+E P   và (/ 1

chúng

( 9: 2: 20’

-Thực hành

- Gõ

Program tinh_trung_binh;

Var n, dem: integer;

X, tb: real;

+

và   While…do +/

5 và 4 " các !

vào cho +  khi 5 +1 n !

+ Chú ý Y nghe => ghi

+ >, sinh +4 5 gõ

1

x1,x2,x3…xn Các ! n và x1,x2,x3…, xn

phím

Program tinh_trung_binh;

Var n, dem: integer;

X, tb: real;

Begin Dem:=0; tb:=0;

Begin

Dem:=0; tb:=0;

Writeln(‘nhap cac so can tinh

n =’);

Readln(n);

While dem < n do

Begin

Dem:= dem + 1;

Writeln(‘nha so thu’,

dem,’=’);

Readln(x);

Tb:= tb + x;

End;

Tb:=tb/n;

Witeln(‘Trung binh 1C-

n,’so là =’, tb:10:3);

Readln;

End

-

tinh_tb

- f, / và tìm / ý

bàn phím và

( 9: 3: 5’

-Củng cố:

và cho +/.

-Giáo viên 5 xét và +0

giá

( 9: 4: 2’

^ dò:

-Xem

hành

-

+ trình theo yêu " 1 giáo viên

+ yêu " 1 giáo viên

Writeln(‘nhap cac so can tinh n

=’);

Readln(n);

While dem < n do Begin

Dem:= dem + 1;

Writeln(‘nha so thu’, dem,’=’); Readln(x);

Tb:= tb + x;

End;

Tb:=tb/n;

Witeln(‘Trung binh 1C- n,’so là

=’, tb:10:3);

Readln;

End

 27 Ngày 

Bài  hành  6

I 01 tiêu:

-

- Rèn

3 Thái độ:

- Thái

II 34 56

Hs: xem bài

III  trình  hành:

( 9: ;< trò ( 9: 1: 18’

D +E  

Làm bài tập 2 ở SGK

- ;, , sinh +, +r bài A

sách giáo khoa

- Ý

- Giáo viên

+/ , sinh tìm r

Ý

N có chia

nhiên 2 t i t N hay không

#u phép chia v' "

mod)

? f, và tìm / ý )

Uses Crt;

Var n,i:integer;

Begin

Clrscr;

write('Nhap vao mot so

nguyen: ');readln(n);

Bài 2 Tìm

trình nhiên N bàn phím có O là !

- >, sinh tìm / ý 1 giáo viên

+ trình và tìm / ý )

Bài 2 Tìm

.

Uses Crt;

Var n,i:integer;

Begin

Clrscr;

write('Nhap vao mot so nguyen: ');readln(n);

If n<=1 then writeln('N khong la

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

phai la so nguyen to!');

end;

readln

end.

( 9: 2: 20’

 hành:

Gõ

tra

( 9: 3: 5’

-Củng cố:

-và cho +/

-Giáo viên 5 xét và

( 9: 4: 2’

Dặn dò:

-Xem i các 4 dung +o

-

+ >, sinh +4 5 gõ

+ <v Ctrl + F9 +/ i'

và

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 phai la

so nguyen to!');

end;

readln

end.

 28 Ngày 

I 01 tiêu:

-

- Rèn

3 Thái độ:

- Thái

II 34 56

GV:Sách giáo khoa, máy tính

HS: xem bài

III

( 9: ;< trò ( 9: 1: 10’

D +E  

-Ôn tập câu lệnh lặp xác định

For do.

? Nêu cú pháp 1 vòng 

xác +E

? Nêu

( 9: 2: 33’

Bài tập.

1 Các câu  Pascal sau có

J  không, vì sao?

a) for i:=100 to 1 do

+ Cú pháp: For b#  + [Z

<giá

do <câu [T +

- B1:

- B2:

 câu 

- B3:

lên 1 + E và quay i B2

- B4:

vòng 

+

 +r không J 

+ Cú pháp: For b# 

<giá

[T

+

- B1:

+"

- B2:

- B3:

lên 1 + E và quay i B2

- B4:

ra (~ vòng 

Bài

1 Các câu  Pascal sau

có J  không, vì sao?

a/ for i:=100 to 1 do

writeln('A');

b/ for i:=1.5 to 10.5 do

writeln('A');

b) for i:=1.5 to 10.5

do writeln('A');

c) for i=1 to 10 do

writeln('A');

d) for i:=1 to 10 do;

writeln('A');

e) var x: real; begin

for x:=1 to 10 do writeln('A');

end.

2 Hãy mô

i. A =

1.3  2.4  3.5  n n( 1)



.

( 9: 3: 2’

Dặn dò:

-

giáo khoa,

bài

a) Giá

b) Các giá

O là ! nguyên;

c) 3  v hai v khi gán giá

d)

câu

e)

là

và vì trong câu  

* L toán tính O

A=

) 1 (

1

5 3

1 4 2

1 3 1

1









n n

Bước 1 Gán A  0, i  1

Bước 2 A  1 .

( 2)

i i

Bước 3 i  i + 1

writeln('A');

c/ for i=1 to 10 do

writeln('A');

d/ for i:=1 to 10 do;

writeln('A');

e/ var x: real; begin for x:=1

to 10 do writeln('A'); end.

 28 Ngày 

I 01 tiêu:

-

- Rèn

3 Thái độ:

- Thái

II 34 56

GV:Sách giáo khoa, máy tính

HS: xem bài

III

( 9: ;< trò ( 9: 1:13’

D +E  

s/ tra bài ƒ

Nêu sự khác biệt giữa câu

lệnh xác định và câu lệnh

không xác định

b)

giá trong câu     ! " 

quát c)

câu

( 9: 2: 30’

Bài tập.

? Hãy tìm

toán sau

S

các

a)

Bước 1 S  10, x

 0.5

Bước 2 <  S  5.2,

Bước 3 S  S  x và

quay

Bước 4 Thông báo S

và

toán

b)

Bước 1 S  10, n  0.

Bước 2 <  S ≥ 10, '/

Bước 3 n  n + 3, S  S 

n quay

thúc

( 9: 3: 2’

-Dặn dò

-Xem

a)

S = 5.0

S:=10; x:=0.5;

while S>5.2 do S:=S-x;

writeln(S);

b)

nào

nên các

10 khi

S:=10; n:=0;

while S<10 do begin n:=n+3;

S:=S-n end;

writeln(S);

Bài LW.

a)

5.0

Pascal

S:=10; x:=0.5;

while S>5.2 do S:=S-x; writeln(S);

b)

vòng

mãn nên các thúc

S:=10; n:=0;

while S<10 do begin n:=n+3; S:=S-n end;

writeln(S);

 29 Ngày 

Z,[0 TRA 1 ,]

I 01 tiêu:

-

-

II ^_ bài:

I.Hãy khoanh tròn d e cái 9 câu em cho là 9h (mỗi câu 0,25đ)

a

b

c

d

S:=0;

For i:=1 to 5 do S:=S+i;

Sau khi

a While <điều kiện> to <câu lệnh>;

b While <điều kiện> do <câu lệnh>;

c While <điều kiện> to <câu lệnh1> do <câu lệnh 2>;

d While <điều kiện>; do <câu lệnh>;

i:=4; K:=7

While i <6 do

i:=i+1; k:=k+i;

Writeln (i, ,k );

Sau khi

i:=1; j:=2;k:=3;

While i <6 do

i:=i+1; j:=j+1; k:=k+j;

Writeln (i, j,k );

Sau khi

i:=1; j:=2;k:=3;

While i <6 do

begin

i:=i+1; j:=j+1; k:=k+j;

end;

Writeln (i, j,k );

Sau khi

p:=1;

For i:=1 to 5 do p:=p*i;

Sau khi

so:=1;

while so < 10 do

so:=so+1;

writeln(so);

Sau khi

c In ra vô i các ! 1, g ! trên 1 dòng d Không

,,.^M e X vào : Đúng  em cho là 9h k vào : Sai  em cho là sai.

(mỗi câu 0,25đ)

Câu 9: While i := 2 do t:= 10;

Câu 10: While a<b ; do write (‘a nho hon b’);

Câu 11: For i = 1 to n do write(i);

Câu 12: For i:= 10 to 1 do x:=x+1;

III.Hãy  gl ý d Cột A Jn g: ý d Cột B vào : Kết Quả sao cho có p< 9h

(mỗi câu 0,25đ)

Cho x:=5;

Bài 1: (2 +/.a

a) Cấu trúc rẽ nhánh có hai dạng:

b) Câu lệnh lặp với số lần cho trước trong Pascal là:

c) Câu lệnh lặp với số lần chưa biết trước trong Pascal là:

Bài 2:

Bài 3: a/

b/

I.Hãy khoanh tròn d e cái 9 câu em cho là 9h (mỗi câu 0,25đ)

,,.^M e X vào : Đúng  em cho là 9h k vào : Sai  em cho là sai.

(mỗi câu 0,25đ)

III.Hãy  gl ý d Cột A Jn g: ý d Cột B vào : Kết Quả sao cho có p< 9h

(mỗi câu 0,25đ)

Cho x:=5;

Bài 1:

a/ IF < f‰Š‹ s‰Œ<[ THEN < CÂU eŒ<>[T

# 9; IF < f‰Š‹ s‰Œ<[ THEN < CÂU eŒ<>[ ELSE < CÂU eŒ<> 2>;

b/ For

c/ While b+r ([ do <câu lênh>;

Bài 2: Var a,b,c,max: integer;

Begin

Writeln(‘ nhap a,b,c’); readln(a,b,c);

Max:=a;

If max <b then max:=b;

If max <c then max:=c;

Writeln(max);

Readln

End

Bài 3 a/

Program tinh_tong;

Var i, S,n: Integer;

Begin

Writeln(‘ nhap n’); readln(n);

S:=0;

For i:= 1 to n do

S:= S + i;

Wirteln(‘Tong la’,S);

Readln;

End

b/

ZŽ s=0+1=1

Z$Ž s=1+2=3

Z2Ž s=3+3=6

Z}Ž s=6+4=10

ZlŽ s=10+5=15

ZqŽ s=15+6=21

Z†Ž s=21+7=28

ZBŽ s=28+8=36

 29 Ngày 

I 01 tiêu:

- Làm quen    khai báo và   các #  O

- Tìm

-

3 Thái độ:

- Thái

II 34 56

Gv:Sách giáo khoa, máy tính

Hs: xem bài

III

( 9: ;< trò ( 9: 1: 15’

D +E  

Tìm hiểu dãy số và biến

mảng

- Yêu cầu HS đọc ví dụ 1

- Ví

ta " r câu  khai

báo và 5 j  i

sau +'- g câu 

? ^j  O là gì

+ Ví  1 ;O  chúng ta +/ (/ tra 1 các , sinh trong

in ra màn hình +/ ! cao

có chúng, ta "   r

sinh

có

có cùng

 #u cách gán cho g

1 Dãy  và 5 gq

( 9: 2: 23’

Ví dụ về biến mảng.

- f/ làm    các dãy

chúng ta O khai báo

\ trong " khai báo

- Yêu " , sinh nghiên

\ SGK => Nêu cách

khai báo #  O

- Cách khai báo + O

ngôn

Var

Chieucao: array[1 50] of

real;

var Tuoi: array[21 80] of

integer;

( 9: 3: 5’

Củng cố

-Hãy nêu cách khai báo

#  OM Chi ví M

( 9: 4: 2’

^ dò:

-

SGK

Giá nguyên,

+ >, sinh chú ý Y nghe

=> ghi

+ Cách khai báo O

trong Pascal Tên O : 'b „ !

+"[ b „ ! ![‘ of b(/ j [

- Trong +h „ ! +" và „

! ! là hai ! nguyên

mãn „ ! +" ≤ „ ! !

và integer H real

Tên O : 'b „ !

+"[ b „ ! ![‘ of b(/ j [

Ví 

Var Diem:array[1 100] of integer;

2 Ví 1 J_ 5 gq

Cách khai báo O trong Pascal Tên O : 'b „ ! +"[

b „ ! ![‘ of b(/ j [

 30 Ngày  

LÀM A,'3 As, DÃY !vTI

I 01 tiêu:

- Làm quen    khai báo và   các #  O

-

-Rèn

3 Thái độ:

- Thái

II 34 56

Gv:Sách giáo khoa, máy tính

Hs: xem bài

III

( 9: ;< trò ( 9: 1: 8’

D +E  

s/ tra bài ƒ

-Hãy nêu cách khai báo # 

.OM Chi ví M

( 9: 2: 30’

Tìm hiểu cách tìm giá trị lớn

nhất và giá trị nhỏ nhất của dãy

số.

Ví

N

ra màn hình

bàn phím

- Giáo viên

5 vào Sau +h khai báo N

.O A Ngoài ra, " khai báo

Tên O : 'b „ !

+"[ b „ ! ![‘ of b(/ j [

Ví 

Var DANHSACH:array[1 100]

of integer;

+ >, sinh +, và tìm /

yêu " 1 bài toán

- >, sinh chú ý Y nghe

=> ghi

1 Tìm giá 76 Cn w và giá

76 x w ;< dãy 

program MaxMin;

uses crt;

Var

i, n, Max, Min: integer;

A: array[1 100] of integer;

Begin clrscr;

write('Hay nhap do dai cua day

so, = '); readln(n);

writeln('Nhap cac phan tu cua day so:');

- Yêu " , sinh tìm / ý

- Trong

ta hãy

( 9: 3: 5’

+ yêu " 1 giáo viên

program MaxMin;

uses crt;

Var

i, n, Max, Min: integer;

A: array[1 100] of integer;

Begin clrscr;

write('Hay nhap do dai cua day so, = '); readln(n);

writeln('Nhap cac phan tu cua day so:');

For i:=1 to n do Begin

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

readln(a[i]);

End;

Max:=a[1]; Min:=a[1];

for i:=2 to n do begin if Max<a[i] then Max:=a[i];

if Min>a[i] then Min:=a[i]

end;

write('So lon nhat la Max

= ',Max);

write('; So nho nhat la Min = ',Min);

readln;

End

+ >, sinh chú ý Y nghe

For i:=1 to n do Begin

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

readln(a[i]);

End;

Max:=a[1]; Min:=a[1];

for i:=2 to n do begin if Max<a[i] then Max:=a[i];

if Min>a[i] then Min:=a[i]

end;

write('So lon nhat la Max = ',Max);

write('; So nho nhat la Min

= ',Min);

readln;

End

Củng cố

“Có

cùng

tên duy

hay sai

( 9: 4: 2’

Dặn dò

-

-Làm các bài tập2,4,5 sgk

BÀI H*

I 01 tiêu:

- Làm quen    khai báo và   #  O

- Ôn ' cách   câu   for do

-

3 Thái độ:

- Thái

II 34 56

HS: xem bài

III  trình  hành:

( 9: ;< trò ( 9: 1: 8’

D +E  

s/ tra bài ƒ

-Hãy nêu cách khai báo

#  OM Chi ví M

-Bài

a/ var x: array[1,13] of

integer;

b/ var x:array[5 10.5] of

real;

( 9: 2:30’

39 hành

nguyên P_Min ?

HS chia nhóm làm

hành

a/ Sai b/ Sai

Bài 1:

Program P_Min;

Var

i, n, Min : integer;

A: array[1 100] of integer;

Begin

write('Hay nhap do dai cua day so, N='); readln(n);

writeln('Nhap cac phan tu cua day so:');

For i:=1 to n do Begin

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

readln(a[i]);

P_Min ?

Bài 1:

Program P_Min;

Var

i, n, Min : integer;

A: array[1 100] of integer; Begin

write('Hay nhap do dai cua day so, N='); readln(n); writeln('Nhap cac phan tu cua day so:');

+/ 1 các #i trong

  Sau +h in ra màn hình

Hi ~- khá, TB và kém

Tiêu €

-

- eHi khá: 6.5 +  7.9

- eHi TB: 5.0 +  6.4

-

GV J ý:

- Dùng câu 

if…then…

End;

Min:=a[1];

for i:=2 to n do if Min>a[i]

then Min:=a[i];

write('So nho nhat la Min = ',Min);

readln;

End.

Bài 2:

Program Phan_loai;

uses crt;

Var

i, n, G, Kh, TB, K: integer;

A: array[1 100] of real;

Begin clrscr;

write('nhap so HS trong lop, n= ');

readln(n);

writeln('Nhap diem :');

For i:=1 to n do Begin

write(i,' '); readln(a[i]);

End;

G:=0; Kh:= 0; TB:= 0; K:= 0;

for i:=1 to n do

Begin

if a[i] >= 8.0 then G:= G + 1;

if a[i] <5.0 then K:= K + 1;

if (a[i] <8.0 ) and (a[i] >=6.5)

then Kh:= Kh + 1;

if (a[i] >= 5 ) and (a[i] < 6.5)

For i:=1 to n do Begin

write('a[',i,']='); readln(a[i]);

End;

Min:=a[1];

for i:=2 to n do if Min>a[i] then Min:=a[i];

write('So nho nhat la Min = ',Min);

readln;

End.

Bài 2:

+/ 1 các #i trong   Sau +h in ra màn hình !

~- khá, TB và kém

Tiêu €

-

- eHi khá: 6.5 +  7.9

- eHi TB: 5.0 +  6.4

-

Program Phan_loai;

uses crt;

Var

i, n, G, Kh, TB, K: integer;

A: array[1 100] of real; Begin

clrscr;

write('nhap so HS trong lop, n= '); readln(n);

writeln('Nhap diem :');

For i:=1 to n do Begin

write(i,' ');

readln(a[i]);

End;

G:=0; Kh:= 0; TB:= 0; K:=

0;

( 9: 3:5’

I1 !

-Cho +/ vài nhóm làm

-Giáo viên 5 xét và

( 9: 4:2’

Dặn dò:

-Xem i các 4 dung +o

-

then TB:= TB + 1;

end;

writeln(' Ket qua hoc tap: ');

writeln(G, ' ban hoc gioi ');

writeln(Kh, ' ban hoc kha ');

writeln(TB, ' ban hoc trung binh');

writeln(K, ' ban hoc kem ');

readln;

End

for i:=1 to n do

Begin

if a[i] >= 8.0 then G:= G +

1;

if a[i] <5.0 then K:= K + 1;

if (a[i] <8.0 ) and (a[i]

>=6.5) then Kh:= Kh + 1;

if (a[i] >= 5 ) and (a[i] <

6.5) then TB:= TB + 1;

end;

writeln(' Ket qua hoc tap: '); writeln(G, ' ban hoc gioi '); writeln(Kh, ' ban hoc kha '); writeln(TB, ' ban hoc trung binh');

writeln(K, ' ban hoc kem '); readln;

End

-Giáo viên 5 xét +0

giá

( 9: 4: 2’

^ dị:

-Xem

hành

-

+ trình theo yêu " 1 giáo viên

+ yêu " 1 giáo viên...

-< /b>Củng cố:

-và cho +/

-Giáo viên 5 xét

( 9: 4: 2’

Dặn dò:

-Xem i 4 dung +o

-

+... data-page="5">

 28 Ngày 

I 01 tiêu:

-

- Rèn

3 Thái độ:

- Thái

II 34 56

GV:Sách giáo