Giáo án tin học 8 Học kỳ II

+ Hoạt động 1: Tìm hiểu dãy số và biến mảng Yêu cầu HS đọc ví dụ 1 +: Ví dụ 1. Giả sử chúng ta cần viết chương trình nhập điểm kiểm tra của các học sinh trong một lớp và sau đó in ra màn hình điểm số cao nhất. Vì mỗi biến chỉ có thể lưu một giá trị duy nhất, để có thể nhập điểm và so sánh chúng, ta cần sử dụng nhiều biến, mỗi biến cho một học sinh. Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự, mọi phần tử đều có cùng một kiểu dữ liệu, gọi là kiểu của phần tử. Việc sắp thứ tự được thực hiện bằng cách gán cho mỗi phần tử một chỉ số: Giá trị của biến mảng là một mảng, tức một dãy số (số nguyên, hoặc số thực) có thứ tự, mỗi số là giá trị của biến thành phần tương ứng. + Học sinh chú ý lắng nghe => ghi nhớ kiến thức

Trang 1

Sách giáo khoa, máy tính điện tử.

III Tiến trình bài dạy:

+ Hoạt động 1: Tìm hiểu dãy số và biến mảng

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

+: Ví dụ 1 Giả sử chúng ta cần viết chương

trình nhập điểm kiểm tra của các học sinh

trong một lớp và sau đó in ra màn hình điểm

số cao nhất Vì mỗi biến chỉ có thể lưu một giá

một kiểu dữ liệu, gọi là kiểu của phần tử Việc

sắp thứ tự được thực hiện bằng cách gán cho

mỗi phần tử một chỉ số:

Giá trị của biến mảng là một mảng, tức một

dãy số (số nguyên, hoặc số thực) có thứ tự,

mỗi số là giá trị của biến thành phần tương

2 Cách khai báo biến mảng:

Cách khai báo mảng trong Pascal như sau:

Var <Tênmảng> : array[<chỉ số đầu>

<chỉ số cuối>] of <kiểu dữ liệu>

VD1: Khai báo biến mảng A chứa tối

đa 100 phần tử số nguyên

Trang 2

- Ví dụ như trong Pascal ta cần nhiều câu lệnh

khai báo và nhập dữ liệu dạng sau đây, mỗi

câu lệnh tương ứng với điểm của một học sinh

? Dữ liệu mảng là gì

GV: Cách khai báo mảng trong Pascal như

sau:

Tên mảng : array[<chỉ số đầu> <chỉ số

cuối>] of <kiểu dữ liệu>

- Trong đó chỉ số đầu và chỉ số cuối là hai số

nguyên hoặc biểu thức nguyên thoả mãn chỉ số

đầu ≤ chỉ số cuối và kiểu dữ liệu có thể là

integer hoặc real

+ Hoạt động 2: Cách khai báo biến mảng.

- Để làm việc với các dãy số nguyên hay số

thực, chúng ta phải khai báo biến mảng có

kiểu tương ứng trong phần khai báo của

chương trình

Var <Tênmảng>: array[<chỉ số đầu> <chỉ số

cuối>] of <kiểu dữ liệu>

HS: Quan sát vào ghi nhớ

+ Hoạt động 3: Cách truy cập vào phần tử

mảng

a> Nhập dữ liệu cho phần tử mảng

GV: Để nhập giá trị cho phần tử mảng chúng

ta sử dụng lệnh Readln như thông thường các

em vẫn dùng để nhập vào giá trị của biến

Chúng ta coi mỗi phần tử mảng là 1 biến các

em viết như sau"

dụng lệnh Write hoặc Writeln như thông

thường các em vẫn dùng để in ra giá trị của

biến Chúng ta coi mỗi phần tử mảng là 1 biến

các emviết như sau"

Write(Tên biến mảng[chỉ số]);

Tổng quát ta viết Write(A[i]);

Var A: Array[1 100] of integer;

VD2: Khai báo biến mảng B chứa tối

đa 200 phần tử số thựcVar B: Array[1 200] of Real;

3 Cách truy cập vào phần tử mảnga> Nhập dữ liệu cho phần tử mảng

Readln(tênbiếnmảng[chỉ số]);

VD3: Nhập giá trị cho phần tử thứ 1 của mảng A

Write(A[2])Tổng quát ta viết Write(A[i]);

Trang 3

HS: Quan sát và ghi chép lại

IV Củng cố (2 phút)

- Hãy nêu cách khai báo biến mảng, cho một vài ví dụ về khai báo biến mảng

- Cách nhập vào giá trị cho phần tử mảng

- Cách in ra giá trị của phần tử mảng

V Dặn dò (5 phút)

- Về nhà học bài, kết hợp SGK

- 

Trang 4

-Ngày soạn: 25/12/2015 -Ngày dạy: / / 2015

Tiết 38:

LÀM VIỆC VỚI DÃY SỐ

I Mục tiêu:

1 Kiến thức:

- Làm quen với việc khai báo và sử dụng các biến mảng

- Biết cách tìm giá trị lớn nhất và giá trị nhỏ nhất của dãy số

Sách giáo khoa, máy tính điện tử

1 Kiểm tra bài cũ: (5p)

? Hãy nêu các lợi ích của việc sử dụng biến mảng trong chương trình

2 Bài mới:

+ Hoạt động : Tìm hiểu bài mẫu

a> Nhập và in ra màn hình dãy số nguyên

GV: Các em hãy khai báo biến mảng là A

co thể chứa tối đa 200 phần tử là số

nguyên Khai báo biến i, n là số nguyên: i

là chỉ số, n chứa số lượng số của mảng

write('Cho biet so luong so n = '); readln(n); writeln('Nhap cac phan tu cua day so:'); {Nhap gia tri cho day so}

For i:=1 to n do Begin

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

End;

{In ra giá trị của dãy số vừa nhập}

Writeln('Day so vua nhap la');

for i:=1 to n do write(A[i]:4);

readln;

End

Trang 5

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

Trước hết ta khai báo biến N để nhập số

các số nguyên sẽ được nhập vào Sau đó

khai báo N biến lưu các số được nhập vào

như là các phần tử của một biến mảng A

Ngoài ra, cần khai báo một biến i làm biến

đếm cho các lệnh lặp và biến Max để lưu

số lớn nhất, Min để lưu số nhỏ nhất

HS: Học sinh chú ý lắng nghe => ghi nhớ

kiến thức

GV Yêu cầu học sinh tìm hiểu ý nghĩa của

từng câu lệnh trong chương trình

- Trong chương trình này, chúng ta hãy

lưu ý một số điểm sau: Số tối đa các phần

tử của mảng phải được khai báo bằng một

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;

Trang 6

-Ngày soạn: 30/12/2015 -Ngày dạy:4/01/ 2016

- Làm quen với việc khai báo và sử dụng biến mảng

- Ôn luyện cách sử dụng câu lệnh lặp for do

Chương trình tìm giá trị nhỏ nhất trong

dãy số nguyên P_Min ?

Chương trình tìm giá trị nhỏ nhất trong

dãy số nguyên P_Min ?

Trang 7

Viết chương trình nhập điểm của các

nếu a[i]>=8 thì xếp loại giỏi

nếu 6,5<=a[i]<8 thì xếp loại khá

nếu 5<=a[i]<6.5 thì xếp loại TB

nếu 3.5<=a[i]<5 thì xếp loại yếu

Nếu a[i]<3.5 thì xếp loại kém

Bài 2:

Viết chương trình nhập điểm của các bạn trong lớp Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, TB và kém

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

readln(n);

writeln('Nhap diem :');

For i:=1 to n do Begin

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

Trang 9

-Ngày soạn: 30/12/2015 -Ngày dạy:4/01/ 2016

write('Day so vua nhap la: ');

for i:=1 to n do write(a[i], ' ');

Bổ sung và chỉnh sửa chương trình

Trang 10

a/ điểm TB của mỗi bạn

trong lớp theo công thức:

Điểm TB = (Điểm toán +

TBtoan, TBvan: real;

diemT, diemV: array[1 100] of real;

Begin clrscr;

writeln('Diem TB : ');

For i:=1 to n do

write(i,' ',(diemT[i] + diemV[i])/2:3:1);

TBtoan: =0; TBvan: =0;

TBtoan: = TBtoan + diemT[i] ;

TBvan: = TBvan + diemV[i] ;

a/ điểm TB của mỗi bạn trong lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2b/ Điểm TB của cả lớp theo từng môn Toán và Ngữ văn

Trang 11

-Ngày soạn: 5/1/2016 -Ngày dạy: 22/01/ 2016

Tiết 41 BÀI TẬP

I Mục tiêu:

- Hiểu và làm các bài toán tỉnh tổng dãy số và tính trung bình cộng, sắp xếp

write('Day so vua nhap la: ');

for i:=1 to n do write(a[i], ' ');

writeln;

write('Tong day so la = ',Sum);

write('TBC day so la = ',Sum/n);

readln;

End.

Bài 2:

Chương trình tính tổng và trung bình cộng dãy số, in ra màn hình dãy số vừa nhập

Bổ sung và chỉnh sửa chương trình trong BT2 để

Trang 12

(tiết 59 ) để nhập 2 loại

điểm Toán và Ngữ văn

của các bạn Sau đó in ra

màn hình :

Begin clrscr;

đó in ra màn hình :a/ điểm TB của mỗi bạn trong lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2b/ Điểm TB của cả lớp theo từng môn Toán và Ngữ văn

Trang 13

-Ngày soạn: 5/1/2016 -Ngày dạy: 22/01/ 2016

I Mục tiêu:

- Hiểu và làm các bài toán tìm kiếm, sắp xếp

else tongam:=tongam+a[i];

write('Tong các so duong = ',tongduong);

Chương trình tính tổng và trung bình cộng của các số chẵn, các số lẽ trong dãy số

Bổ sung và chỉnh sửa chương trình trong BT2 để nhập

2 loại điểm Toán

Trang 14

màn hình :

Begin clrscr;

a/ điểm TB của mỗi bạn trong lớp theo công thức: Điểm TB = (Điểm toán + điểm văn)/2b/ Điểm TB của cả lớp theo từng môn Toán và Ngữ văn

Trang 15

Ngày soạn: 23/1/2016 Ngày dạy: 25/01/ 2016

I Mục tiêu:

- Hiểu và làm các bài toán tìm kiếm và thay thế, tìm số lớn nhất, số bé nhất

Writeln('Nhap day so');

write('cho biet so luong so n = ');

readln(n);

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

End;

Writeln('DAY SO VUA NHAP');

for i:=1 to n do Write(a[i]:4);

Bài 1: Viết chương trình thực hiện các công việc sau:

- Nhập vào dãy số nguyên gồm n phần tử

- In ra dãy số vừa nhập

- Tìm số lớn nhất,

số bé nhất

- Đếm xem có bao nhiêu số có giá trị lớn nhất

Trang 16

màn hình :

if min>a[i] then min:=a[i];

end;

Writeln('So lon nhat =', max);

Writeln('So nho nhat =',min);

Writeln('CAC SO dem:=0;

for i:=1 to n do

if a[i]=max then dem:=dem+1;

Writeln('Co ', dem, 'so co gia tri

=',max);

readln;

End.

Bài 2 Program Dayso2;

readln(n);

End;

- Nhập vào sô c sau

đó tìm xem số c

đó có trong dãy hay không, nếu thấy thì thông báo

là 'Số c có trong dãy' và đưa ra vị trí của nó trong dãy, nếu không thấy thì thông báo là 'Số c không có trong dãy'

- Thay số m vào vị trị tìm thấy và in lại dãy số mới

Trang 17

begin vt:=i;

kt:=true;

break;

end;

if kt=true then Writeln('So ',c,' co trong day so va o

vi tri ',vt)else Writeln('So ',c,' khong co trong day so');

Write('Cho biet so can thay the m=');

readln(m);

a[vt]:=m;

Writeln('DAY SO MOI LA');

Trang 18

I Mục tiêu:

- Hiểu và làm các bài toán tìm kiếm và thay thế, tìm số lớn nhất, số bé nhất

readln(n);

End;

số bé nhất

Trang 19

màn hình :

end;

for i:=1 to n do

=',max);

readln;

End.

readln(n);

End;

Trang 20

begin vt:=i;

kt:=true;

break;

end;

readln(m);

a[vt]:=m;

Trang 21

Tiết 45 BÀI THỰC HÀNH 5

I Mục tiêu:

- Hiểu và làm các bài toán sắp xếp, tìm kiếm, thay thế

GV đưa ra bài toán và yêu

cầu học sinh thực hiện

trên mày tính

Bài 1: Viết chương trình

thực hiện các công việc

readln(n);

End;

Writeln;

for i:=1 to n-1 do for j:=i+1 to n do

if a[i]>a[j] then

- sắp xếp dãy số theo chiều tăng dần

- sắp xếp dãy số theo chiều giảm dần

Trang 22

GV: Nhận xét đánh giá,

cho điểm bài thực hành số

1:

Bài thực hành 2:

Bài 2: Viết chương trình

thực hiện các công việc

trong dãy' và đưa ra vị trí

của nó trong dãy, nếu

begin tg:=a[i];

{Sap xep giam dan}

for i:=1 to n-1 do for j:=i+1 to n do

if a[i]<a[j] then begin

readln;

End.

là 'Số c có trong

Trang 23

không thấy thì thông báo

End;

readln(m);

a[vt]:=m;

readln;

End.

dãy' và đưa ra vị trí của nó trong dãy, nếu không thấy thì thông báo là 'Số c không có trong dãy'

Trang 24

I Mục tiêu:

readln(n);

End;

số bé nhất

Trang 25

màn hình :

end;

for i:=1 to n do

=',max);

readln;

End.

readln(n);

End;

Trang 26

begin vt:=i;

kt:=true;

break;

end;

readln(m);

a[vt]:=m;

Trang 27

I Mục tiêu:

readln(n);

End;

- In ra dãy số gồm toàn số âm

Trang 28

màn hình :

end;

for i:=1 to n do

Trang 29

I Mục tiêu:

readln(n);

End;

đó tìm xem số c đó

có trong dãy hay không, nếu thấy thì thông báo là 'Số c

có trong dãy' và đưa ra vị trí của nó trong dãy, nếu không thấy thì thông báo là 'Số c không có trong dãy'

- Xóa bỏ số tìm thấy

Trang 30

màn hình :

readln(m);

a[vt]:=m;

Trang 31

Tiết 49 ÔN TẬP

I Mục tiêu:

- Ôn lại kiến thức về mảng

- Ôn lại kiến thức về sử lý dãy số

số được sắp xếp theo trình tự nào đấy

HS: Chú ý lắng nghe và ghi chép lại

GV: Biến mảng

Là biến chứa dãy số

HS: Chú ý lắng nghe và ghi chép lại

GV: Cách khai báo biến mảng:

Cách khai báo mảng trong Pascal như

sau:

VD1: Khai báo biến mảng A chứa tối đa

100 phần tử số nguyên

Var A: Array[1 100] of integer;

VD2: Khai báo biến mảng B chứa tối đa

2 Cách khai báo biến mảng:

VD1: Khai báo biến mảng A chứa tối đa

100 phần tử số nguyênVar A: Array[1 100] of integer;

VD2: Khai báo biến mảng B chứa tối đa

200 phần tử số thựcVar B: Array[1 200] of Real;

Trang 32

Tổng quát ta viết Readln(A[i]);

HS: Ghi chép lại và thao tác trên máy

Tổng quát ta viết Write(A[i]);

HS: Chú ý và ghi chép sau đó thao tác

Write(A[2])Tổng quát ta viết Write(A[i]);

Trang 33

Tiết 50 KIỂM TRA 1 TIẾT

I Mục tiêu:

- Đánh giá và khẳng định kết quả đã học được từ đầu kỳ 2

- Hiểu và làm các bài toán tìm kiếm, sắp xếp

Viết chương trình thực hiện các công việc sau:

- Nhập vào 1 dãy số nguyên gồm có n phần tử, n nhập từ bàn phím: (1 điểm)

- In ra dãy số vừa nhập (1 điểm)

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

Trang 34

' Tinh trung binh cong

Writeln('Tong cua day so =', tongday)

Writeln('Trung binh cong=', tongday/n:4:1);

writeln('So luong cac so duong = ',demD);

writeln('So luong các so am la = ',demA);

for j:=2 to a[i] div 2 do

if a[i] mod j =0 then

begin

kt:=false;

break;

Trang 36

I Mục tiêu:

readln(n);

End;

Writeln;

for i:=1 to n -1 do for j:=j+1 to n do

if a[i]<a[j] thenbegin

- Sắp xếp dãy số theo chiều giảm dần

- In ra dãy số đã SX

Trang 37

màn hình :

Trang 38

I Mục tiêu:

readln(n);

End;

đó tìm xem số c đó

có trong dãy hay không, nếu thấy thì thông báo là 'Số c

có trong dãy' và đưa ra vị trí của nó trong dãy, nếu không thấy thì thông báo là 'Số c không có trong dãy'

- Xóa bỏ số tìm thấy

Trang 39

màn hình :

readln(m);

a[vt]:=m;

Trang 40

Ngày soạn:29/02/2016 Ngày dạy:03/03/2016

- Học sinh nghe giới thiệu về phần mềm Yenka

- Nắm được khung hình làm việc chính và tạo một số mô hình làm việc

Sách giáo khoa, máy tính điện tử

+ Hoạt động 1: Giới thiệu phần mềm

Yenka.

- Cho học sinh đọc thông tin ở SGK

Yenka là một phần mềm nhỏ, đơn giản

nhưng rất hữu ích khi mới làm quen

với các hình không gian như hình

chóp, hình nón, hình trụ Ngoài việc

tạo ra các hình này, em còn có thể

thay đổi kích thước, màu, di chuyển

và sắp xếp chúng Từ những hình

không gian cơ bản em còn có thể

sáng tạo ra các mô hình hoàn chỉnh

như công trình xây dựng, kiến trúc

Học sinh chú ý lắng nghe => ghi nhớ kiến thức

- Nháy đúp vào biểu

1 Giới thiệu phần mềm Yenka:

Yenka là một phần mềm nhỏ, đơn giản nhưng rất hữu ích khi mới làm quen với các hình không gian như hình chóp, hình nón, hình trụ

2 Giới thiệu phần mềm

chính của

Định dạng
Số trang	90
Dung lượng	11,05 MB