D. Tiến trình bài dạy:
Hoạt động của giao viên và học sinh Hoạt động của giáo viên Sử dụng biến mảng 1 chiều để viết các
chơng trình sau
Bài 1: Viết chương trỡnh nhập dĩy số, in dĩy số đú ra màn hỡnh
Bài 2: Viết chương trỡnh nhập dĩy số, in dĩy số đú ra màn hỡnh, tớnh tổng của cỏc phần tử trong danh sỏch. Bài 1: program nhap_inds; var a:array[1..100] of integer; i,n:integer; begin write('nhap n: ');readln(n); for i:=1 to n do begin
write('nhap so thu ',i,':'); readln(a[i]); end; for i:=1 to n do write(a[i],' '); readln; end. Bài 2: program tong_ds; var a:array[1..100] of integer; i,n,s:integer; begin write('nhap n: ');readln(n); for i:=1 to n do begin
write('nhap so thu ',i,':'); readln(a[i]); end; for i:=1 to n do write(a[i],' '); s:=0; for i:=1 to n do s:=s+a[i]; write('tong',n:3,' so trong mang la',s:4); readln; end. E. Củng cố:
- Giáo viên hệ thống lại tồn bộ nội dung bài học. - Nhận xét, rút kinh nghiệm tiết thực hành
F.H
ớng dẫn về nhà:
- Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.
Ngày soạn :5/4/2009 Ngày dạy : 8A : 8B : 8C : 8D : 8E : Tuần 32 Tiết :64 BÀI TẬP A. Mục tiêu:
- Viết đợc chơng trình Pascal cĩ sử dụng Biến mảng - Biết sử dụng câu lệnh ghép. - Biết sử dụng câu lệnh ghép.
- Rèn kỹ năng đọc hiểu chơng trình cĩ sử dụng vịng lặp while ... do
B. Phơng pháp
1. Phơng pháp: Thuyết trình, nêu vấn đề, vấn đáp2. Phơng tiện: Máy tính, . 2. Phơng tiện: Máy tính, .
C. Chuẩn bị:
1. Giáo viên:
- Chuẩn bị một số thuật tốn và chơng trình .
2. Học sinh:- Thực hiện nhiệm vụ về nhà của tiết trớc.
D. Tiến trình bài dạy:
Hoạt động của giao viên và học sinh Hoạt động của giáo viên Sử dụng biến mảng 1 chiều để viết các ch-
ơng trình sau
Bài 1:Viết chương trỡnh nhập dĩy số, in cỏc số lẻ ra màn hỡnh, tớnh tổng của cỏc số lẻ cú trong danh sỏch
Bài 1: program tong_ds;
var a:array[1..100] of integer; i,n,s:integer; begin write('nhap n: ');readln(n); for i:=1 to n do begin
write('nhap so thu ',i,':'); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i],' ');
s:=0;
for i:=1 to n do
if a[i] mod 2<>0 then s:=s+a[i];
write('tong cac so le trong mang la',s:4);
readln; end.
Bài 2: Viết chương trỡnh nhập dĩy số, in cỏc số chẳn ra màn hỡnh, tớnh tổng của cỏc số chẳn cú trong danh sỏch. Bài 2: program tong_ds; var a:array[1..100] of integer; i,n,s:integer; begin write('nhap n: ');readln(n); for i:=1 to n do begin
write('nhap so thu ',i,':'); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); s:=0;
for i:=1 to n do if a[i] mod 2=0 then s:=s+a[i];
write('tong cac so chan trong mang la',s:4); readln;
end.
E. Củng cố:
- Giáo viên hệ thống lại tồn bộ nội dung bài học. - Nhận xét, rút kinh nghiệm tiết thực hành
F.H
ớng dẫn về nhà:
- Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.
Ngày soạn :10/4/2009 Ngày dạy : 8A : 8B : 8C : 8D : 8E : Tuần 33 Tiết :65 BÀI TẬP A. Mục tiêu:
- Viết đợc chơng trình Pascal cĩ sử dụng Biến mảng - Biết sử dụng câu lệnh ghép. - Biết sử dụng câu lệnh ghép.
- Rèn kỹ năng đọc hiểu chơng trình cĩ sử dụng vịng lặp while ... do
B. Phơng pháp
1. Phơng pháp: Thuyết trình, nêu vấn đề, vấn đáp2. Phơng tiện: Máy tính, . 2. Phơng tiện: Máy tính, .
C. Chuẩn bị:
1. Giáo viên:
- Chuẩn bị một số thuật tốn và chơng trình .
2. Học sinh:- Thực hiện nhiệm vụ về nhà của tiết trớc.
D. Tiến trình bài dạy:
Hoạt động của giao viên và học sinh Hoạt động của giáo viên Sử dụng biến mảng 1 chiều để viết các ch-
ơng trình sau
Bài 1:Viết chương trỡnh nhập dĩy số, in dĩy số ra màn hỡnh, tỡm số nhỏ nhất cú trong danh sỏch.
Bài 1: program tong_ds;
var a:array[1..100] of integer; i,n,min:integer;
begin
write('nhap n: ');readln(n); for i:=1 to n do
begin
write('nhap so thu ',i,':'); readln(a[i]); end; for i:=1 to n do write(a[i],' '); min:=a[1]; for i:=1 to n do
if a[i]<min then min:=a[i]; write('so lon nhat trong mang la',min:4);
readln; end.
Bài 2:
program tong_ds;
var a:array[1..100] of integer; i,n,max:integer;
Bài 2: Viết chương trỡnh nhập dĩy số, in dĩy số ra màn hỡnh, tỡm số lớn nhất cú trong danh sỏch. begin write('nhap n: ');readln(n); for i:=1 to n do begin
write('nhap so thu ',i,':'); readln(a[i]); end; for i:=1 to n do write(a[i],' '); max:=a[1]; for i:=1 to n do
if a[i]>max then max:=a[i]; write('so lon nhat trong mang la',max:4);
readln; end.
E. Củng cố:
- Giáo viên hệ thống lại tồn bộ nội dung bài học. - Nhận xét, rút kinh nghiệm tiết thực hành
F.H
ớng dẫn về nhà:
- Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.
Ngày soạn :10/4/2009 Ngày dạy : 8A : 8B : 8C : 8D : 8E : Tuần 33 Tiết :66 BÀI TẬP A. Mục tiêu:
- Viết đợc chơng trình Pascal cĩ sử dụng Biến mảng - Biết sử dụng câu lệnh ghép. - Biết sử dụng câu lệnh ghép.
- Rèn kỹ năng đọc hiểu chơng trình cĩ sử dụng vịng lặp while ... do
B. Phơng pháp
1. Phơng pháp: Thuyết trình, nêu vấn đề, vấn đáp2. Phơng tiện: Máy tính, . 2. Phơng tiện: Máy tính, .
C. Chuẩn bị:
1. Giáo viên:
- Chuẩn bị một số thuật tốn và chơng trình .
2. Học sinh:- Thực hiện nhiệm vụ về nhà của tiết trớc.
D. Tiến trình bài dạy:
Hoạt động của giao viên và học sinh Hoạt động của giáo viên Sử dụng biến mảng 1 chiều để viết các ch-
ơng trình sau
Bài 1:Viết chương trỡnh nhập dĩy số, in ra màn hỡnh số nhỏ nhất, lớn nhất và tớnh giỏ trị trung bỡnh của cỏc ptử trong danh sỏch
Bài 2: Viết chương trỡnh nhập dĩy số, in ra màn hỡnh dĩy số đú, sắp xếp dĩy số đú theo thứ tự giảm dần.
.
Bài 1: program ln_nn_tb;
var a:array[1..100] of integer; i,n,s,max,min:integer;
begin
write('nhap n: ');readln(n); for i:=1 to n do
begin
write('nhap so thu ',i,':'); readln(a[i]); end; s:=0; max:=a[1]; min:=a[1]; for i:=1 to n do begin
if a[i]>max then max:=a[i]; if a[i]<max then min:=a[i]; s:=s+a[i];
end;
writeln('gia tri nho nhat la', min:4);
writeln('gia tri lon nhat la', max:4);
writeln('gia tri tb la',s/n:5:1); readln;
end.
Bài 2:
program ds;
var a:array[1..100] of integer; i,n,sau,vt,tg :integer; begin write('nhap n: ');readln(n); for i:=1 to n do begin
write('nhap so thu ',i,':'); readln(a[i]);
end;
write('day so chua sap xep: '); for i:=1 to n do
write(a[i],' ');
write('day so sap xep giam dan:'); for vt:=1 to n-1 do for sau:=vt+1 to n do if a[vt]<a[sau] then begin tg:=a[vt]; a[vt]:=a[sau];
a[sau]:=tg; end; for i:=1 to n do write(a[i],' '); readln; end. readln; end. E. Củng cố:
- Giáo viên hệ thống lại tồn bộ nội dung bài học. - Nhận xét, rút kinh nghiệm tiết thực hành
F.H
ớng dẫn về nhà:
Học bài theo sách giáo khoa và vở ghi, Ơn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần