+ For .. To …. Do + While … Do
- Tập viết chương trỡnh sử dụng biến mảng
Array[chỉ số đầu..chỉ số cuối] of kiểu dữ liệu; Để tiết sau ụn tập tiếp.
Ngày soạn 03/05/2015 Ngày dạy:………….
A. MỤC ĐÍCH, YấU CẦU:
- Giỳp HS củng cố lại kiến thức đĩ học ở bài 7. bài 8. bài 9
B. PHƯƠNG PHÁP: - Hỏi đỏp, hoạt động nhúm
C. CHUẨN BỊ:
- Giỏo viờn: Giỏo ỏn, phiếu học tập
- Học sinh: Chuẩn bị theo sự dặn dũ cuối tiết 67
D. TIẾN TRèNH LấN LỚP: I. Ổn định: I. Ổn định:
II. Kiểm tra bài cũ: Viết cỳ phỏp của cõu lệnh lặp For và nờu hoạt động của cõu lệnh
III. BÀI MỚI:
Hoạt động của giỏo viờn Hoạt động của học sinh
* GV: Chiểu cõu hỏi 1 * HS: Đọc đề và trả lời
* GV: Chiểu cõu hỏi 2 * HS: Đọc đề và trả lời
* Bài 1: Lập chương trỡnh nhập tờn
học sinh và hiển thị ra lời chào của học sinh đú.
* HS: Hoạt động nhúm
* Gọi 1 HS lờn mỏy viết chương trỡnh
* Bài 2: Viết chương trỡnh tớnh tớch
của N số tự nhiờn đầu tiờn. * HS: Hoạt động nhúm
* Gọi 1 HS lờn mỏy viết chương trỡnh
* Bài 3: Viết chương trỡnh sắp xếp
một dĩy số nguyờn theo thứ tự giảm dần
* HS: Hoạt động nhúm
* Gọi 1 HS lờn mỏy viết chương trỡnh
I. LÍ THUYẾT:
Cõu 1: Cho biết dữ liệu kiểu mảng là?
Dữ liệu kiểu mảng là một tập hợp hữu hạn cỏc phần tử cú thứ tự và mọi phần tử đều cú cựng một kiểu dữ liệu.
Cõu 2: Cho biết cỳ phỏp của biến mảng Var
DSỏch tờn mảng : Array[<chỉ số đầu>..<chỉ số cuối>] of kiểu dữ liệu;
II. BÀI TẬP:
* Bài 1: Var I :byte;
Ten : string[10]; {Tờn trong khoảng 10 kớ tự} Begin For I := 1 to 45 do
Begin
Write(‘Nhap ten hoc sinh :’); readln(Ten); Writeln(‘Chào ban ‘,Ten); End;
Readln; End.
* Bài 2: Program Tinhgiaithua;
Var I, N : byte; Tich : Longint; Begin Write(‘Nhap N :’); readln(N); Tich := 1; For I := 1 to N do
Tich := Tich * I;
Write(N,’! = ‘,Tich); readln; end.
* Bài 3: {Khai bỏo}
Var dayso : Array[1..100] of integer; N, I, j , tam : integer;
{Xỏc định số phần tử cho mảng}
Begin
write(‘Nhap so phan tư N cho mang :’); readln(N); For I := 1 to N do
{Truy xuất mảng}
Begin write(‘Dayso[‘,I,’] = ’); Readln(dayso[I]); End;
{Thực hiện cụng việc} For I := 1 to N – 1 do
For J := J + 1 to N do
If dayso[I] < dayso[j] then
Begin tam := dayso[I]; dayso[I] := dayso[j]; dayso[j] := tam; End;
{Cho hiện dĩy số}
Writeln(‘Day so sau khi sap xep :’); For I := 1 to N do
Write(dayso[I] : 4); readln; end.