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
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.
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:
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.
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);
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. readln; end. BÀI 2: program tong_ds;
var a:array[1..100] of integer; i,n,max: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],' '); 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.
Tuần 34:
Ngày soạn :20/4/2011 Ngày dạy :
Tiết 67:
kiểm tra thực hành 1 tiết A. Mục tiêu:
• Học sinh thực hiện kiểm tra thực hành trên máy tính. • Kiếm thức chủ yếu thuộc 3 bài học cuối cùng.
• ý thức làm bài và bảo vệ máy tính để sử dụng lâu dài.
B. Chuẩn bị:
- Sách giáo khoa, giáo án, tài liệu tin học cĩ liên quan. - Ơn lại bài ở nhà trớc khi đến lớp.