- Cỏch khai bỏo đơn giản một biến mảng trong ngụn ngữ
2.Hướng dẫn về nhà: về nhà học bài và xem tiếp trước bài tập
Tuần: 30 Tiết: 59 Ngày Soạn: 19/3/2015 Ngày dạy : 25/3/2015
LÀM VIỆC VỚI DÃY SỐ
I. MỤC TIấUCẦN ĐẠT
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. - Tỡm hiểu một số vớ dụ về biến mảng.
2. Kĩ năng:
- Việc gỏn giỏ trị, nhập giỏ trị và tớnh toỏn với cỏc giỏ trị của một phần tử trong biến mảng được thực hiện thụng qua chỉ số tương ứng của phần tử đú.
3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1. GV:Sỏch giỏo khoa, giỏo ỏn. 2. HS: Đọc bài trước ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ 3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Hoạt động : 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ố.(43 phỳt) Vớ dụ 3. Viết chương trỡnh nhập + Học sinh đọc và tỡm hiểu 1. Tỡm giỏ trị lớn nhất và
N số nguyờn từ bàn phớm và in ra màn hỡnh số nhỏ nhất và số lớn nhất. N cũng được nhập từ bàn phớm
- Giỏo viờn đưa ra ý tưởng để viết chương trỡnh
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. Ngồ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.
- 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 số cụ thể (Ở đõy là 100)
yờu cầu của bài toỏn.
- Học sinh chỳ ý lắng nghe => ghi nhớ kiến thức.
+ Học sinh thực hiện theo yờu cầu của giỏo viờn.
program MaxMin; uses crt;
Var
i, n, Max, Min: integer; A: array[1..100] of integer; Phần thõn chương trỡnh sẽ tương tự dưới đõy:
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]; (adsbygoogle = window.adsbygoogle || []).push({});
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.
+ Học sinh chỳ ý lắng nghe
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (2 phỳt)
1. Củng cố: Chỉ ra những khiếm khuyết mà học sinh cũn mắc phài, yờu cầu khắc phục 2. Hướng dẫn về nhà: về nhà xem lại bài, học bài.
Tuần: 30 Tiết: 60 Ngày Soạn: 19/3/2015 Ngày dạy : 25/3/2015
BÀI TẬP
I. MỤC TIấUCẦN ĐẠT
1. Kiến thức:
- Viết chương trỡnh Pascal sử dụng biến mảng. 2. Kĩ năng:
- Rốn luyện khả năng đọc chương trỡnh, tỡm hiểu tỏc dụng và kết hợp cỏc cõu lệnh. 3. Thỏi độ:
- Thỏi độ học tập nghiờm tỳc, yờu thớch mụn học.
II. CHUẨN BỊ CỦA GIÁO VIấN VÀ HỌC SINH
1.GV: Sỏch giỏo khoa, mỏy tớnh điện tử. 2.HS: Sỏch, vở ,đọc bài ở nhà.
III. TỔ CHỨC HOẠT ĐỘNG DẠY VÀ HỌC1. Ổn định lớp 1. Ổn định lớp
2. Kiểm tra bài cũ: dữ liệu kiểu mảng là gỡ? Cỏch khai bỏo mảng trong pascal. (5 phỳt) 3. Bài mới
HOẠT ĐỘNG CỦA THẦY HOẠT ĐỘNG CỦA TRề NỘI DUNG
Hoạt động 1: ễn tập lớ thuyết (10 phỳt)
GV: yờu cầu học sinh nhớ lại kiến thức và trả lời cỏc cõu hỏi.
a) Nờu lại cỳ phỏp khai bỏo biến mảng.
- HS Suy nghĩ và trả lời cõu hỏi
b) Nờu lợi ớch của việc sử dụng biến mảng.
Hoạt động 2: Bài tập. (28 phỳt) ? Viết chương trỡnh nhập vào một
dĩy số nguyờn cú n phần tử. In ra màn hỡnh phần tử nhỏ nhất, phần tử lớn nhất và giỏ trị trung bỡnh của danh sỏch ra màn hỡnh
- Yờu cầu hs suy nghĩ và viết chương trỡnh. Program MAX_MIN_AV G; Uses crt; Var a:array[1..20]of integer;i,n,max,min,sum:integer; Begin Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO'); Writeln('--- ---');
Write('Nhap so phan tu cua day n='); readln(n); For i:=1 to n do Begin Write('Nhap a[',i,']=');readln(a[i]); End; Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n do Begin If (Min > a[i]) then Min:=a[i]; (adsbygoogle = window.adsbygoogle || []).push({});
If (Max < a[i]) then Max:=a[i];
Sum:=sum+a[ i];
End
Writeln('Day so vua nhap la: '); Writeln('--- --'); - Hs Suy nghĩ và viết chương trỡnh Program MAXMIN_ AVG; Uses crt; Var a:array[1..20]of integer;i,n,max,min,sum:integ er; Begin Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('--- ---');
Write('Nhap so phan tu cua day n='); readln(n); For i:=1 to n do Begin Write('Nhap a[',i,']=');readln(a[i]); End; Min:=a[1]; Max:=a[1]; Sum:=0; For i:=1 to n do Begin If (Min > a[i]) then Min:=a[i] ;
If (Max < a[i]) then Max:=a[i]; Sum:=s um+a[i]; End Writeln('Day so vua nhap la: '); Writeln('--- ---'); F or i:=1 to n do
For i:=1 to n do
Write(a[i]:4); Writeln; Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
Readln; End;
Write(a[i]:4); Writeln; Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
Readln; End;
IV. CỦNG CỐ VÀ HƯỚNG DẪN VỀ NHÀ (2 phỳt)