D CỦNG CỐ ẶN ề (5’)
E RÚT KINH NGHIỆM
HS: Đọc hiểu vớ dụ
GV: Hướng dẫn học sinh cỏch sử dụng biến mảng
HS: Chỳ ý
- Ghi vở và thực hiện chương trỡnh.
Begin
clrscr;
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]); 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.
một phần tử trong biến mảng thụng qua chỉ số tương ứng của phần tử đú. Chẳng hạn, trong cõu lệnh trờn Diem[i] là phần tử thứ i của biến mảng Diem.
Ta cú thể gỏn giỏ trị cho cỏc phần tử của mảng bằng cõu lệnh gỏn:
A[1]:=5;A[2]:=8; A[2]:=8;
hoặc nhập dữ liệu từ bàn phớm bằng cõu lệnh lặp:
for i := 1 to 5 do readln(a[i]);
3. Tỡm giỏ trị lớn nhất và nhỏ nhấtcủa dĩy số (15') của dĩy số (15')
Vớ dụ 3. (SGK) Phần khai bỏo của chương trỡnh cụ thể như sau:
program MaxMin;
uses crt;
Var
i, n, Max, Min: integer; A: array[1..100] of integer; A: array[1..100] of integer;
D - CỦNG CỐ - DẶN Dề (5’)
- Khỏi niệm mảng một chiều
- Cỏch khai bỏo mảng, nhập, in, truy cập cỏc phần tử của mảng. - Thuật toỏn tỡm số lớn nhất và nhỏ nhất trong mảng.
- Về nhà xem lại bài học tiết sau chỳng thực hành.
E - RÚT KINH NGHIỆM.. . . . . . . . . . . . = *=*=*=<<truongdm>>=*=*=*= Bài tập A – THỜI GIAN
1. Số tiết: 01 2. Ngày soạn: 1/1/2010
3. Ngày giảng:………...|………|………..|………..|
B – MỤC ĐÍCH YấU CẦU
1. Kiến thức
- Viết chương trỡnh Pascal sử dụng cõu lệnh lặp với số lần biết trước.
- 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 độ: Nghiờm tỳc
C- CHUẨN BỊ
1. Giỏo viờn: giỏo ỏn, mỏy chiếu