- Thuật toỏn:
2. Bài tập Bài 4 SGK (T79)
Bài 4 SGK (T79)
Cõu lệnh khai bỏo biến mảng sau đõy mỏy tớnh cú thực hiện được khụng? Var N: integer;
A: array[1..N] of real;
Cõu lệnh khai bỏo biến mảng trờn mỏy tớnh khụng thực hiện được. Vỡ trong khai bỏo trờn chỉ số Nchưa xỏc định vỡ vậy mỏy tớnh khụng thể cung cấp số ụ nhớ cụ thể để lưu cỏc phần tử của biến mảng.
Bài 5 SGK (T 79) Program MaxMin; Uses crt;
Var i,N :integer;
A: array[ 1..100] of integer;
Begin
Clrscr;
Write(‘ Hay nhap do dai cua day so, N=‘); readln(n);
Write(‘ Hay nhap cac phan tu cua day
so:’);
For i:= 1 to n do
begin
14’
- GV: Nhận xét kết quả câu trả lời của 2 bạn.
- HS: Suy luận kết quả theo lí thuyết - GV: Ghi kết quả suy luận của học sinh
Hoạt động 3:
- Giáo viên đa ra nội dung bài tập, - HS phân tích bài toán tìm hớng giải quyết.
- Gv: hớng dẫn học sinh cách làm và viết chơng trình lên bảng và yêu cầu học sinh đọc hiểu.
- HS: đọc lại chơng trình giáo viên đã viết trên bảng và tìm hiểu từng câu lệnh
- GV: yêu cầu một học sinh đứng tại vị trí diễn tả tuần tự ý nghĩa của chơng trình thông qua diễn tả công việc của từng lệnh trong chơng trình.
- GV: diễn tả lại một lần để học sinh hiểu sâu hơn về chơng trình
End;
Write(‘ Hay in cac phan tu cua day so:’); For i:= 1 to n do Writeln(a[i]); Readln; End. 3. Bài tập vận dụng
Bài tập 1: Nhập vào N số nguyên từ
bàn phím, tìm số lớn nhất trong dãy số vừa nhập
Program tim_max; Uses crt;
Var i, n, smax:integer;
A: array [1..50]of integer;
Begin
Clrscr;
Writeln(‘nhap vao n’); readln(n);
For i:= 1 to n do begin
Write(‘a[ ‘,i,’ =’); readln(a[i]);
end;
smax:= a[1];
For i:= 2 to n do begin
If Max < a[i] then smax:= a[i] end;
Writeln(‘So lon nhat la smax = ‘, smax); Readln
- HS: dựa vào bài tập 1 viết chơng trình cho bài toán. (viết theo nhóm).
- Đại diện của nhóm đứng lên bảng trình bày kết quả. Các nhóm khác nhận xét, rút kinh nghiệm.
- GV: Kết luận kết quả cuối cùng.
- Yêu cầu một học sinh lên máy chính gõ chơng trình vào máy, cả lớp sửa lỗi nếu có, cho chơng trình chạy thử, học sinh quan sát kết quả.
End.
- HS: chép lại chơng trình đã chạy vào vở.
4.Cũng cố. 2’
Nhắc lại cỏc phần trọng tõm chớnh của bài qua một số bài tập ỏp dụng.
5. Dặn dũ 1’.
Về nhà học kĩ cỏc phần trọng tõm của bài và làm tập sỏch giỏo khoa. ******************************************
Ngày soạn : 04/ 04/10 Tuần:30 Ngày dạy: 05- 10/ 04/10 TPPCT:59 BÀI THỰC HÀNH 7
XỬ Lí DÃY SỐ TRONG CHƯƠNG TRèNH. 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.
- Vận dụng kiến thức của vòng lặp for… do, câu lệnh ghép để viết chơng trình. 2. Kỹ năng:
- Rốn luyện kĩ năng đọc, hiểu và chỉnh sữa chương trỡnh cú sữ dụng cỏc biến mảng.
3.Thỏi độ :
- Giỳp học sinh cú thỏi độ học tập đỳng đắn nghiờm tỳc trong giờ học và cú hứng thỳ với việc khai bỏo
và sử dụng cỏc biến mảng.
II. Phương tiện dạy học. 1. Giỏo viờn: 1. Giỏo viờn:
- Giỏo ỏn, chuẩn bị mỏy (hoặc một số bài tập mẫu trờn giấy) và cỏc phương tiện khỏc liờn quan.
2. Học sinh:
- Vở, bỳt, sỏch giỏo khoa và sỏch bài tập.
III. Tiến trỡnh tiết dạy: 1. Ổn định tổ chức: (1’) 1. Ổn định tổ chức: (1’)
- Kiểm tra sĩ số, vệ sinh.
- Em hóy nhắc lại cấu trỳc của hai dạng cõu lệnh lặp trong Pascal ? - Em hóy nhắc lại cỏch khai bỏo mảng trong Pascal
3. Bài mới.(36’)
TG Hoạt động của giỏo viờn Hoạt động của học sinh
10’ Hoạt động:1 Hướng dẫn ban đầu.