TIN H C 11Ọ
Ti t 2ế9: BÀI T P Ậ
I. M c tiêu:ụ
1. Ki n th c:ế ứ
- C ng c cho h c sinh ki n th c ki u m ng.ủ ố ọ ế ứ ể ả
- Mô t đ c cách khai báo, tham chi u đ n các ph n t c a m ng,ả ượ ế ế ầ ử ủ ả
cách nh p xu t các ph n t c a m ng.ậ ấ ầ ử ủ ả
- Bi t gi i m t s bài toán v m ng trên máy tính.ế ả ộ ố ề ả
2. K năngỹ: Xây d ng đ c ch ng trình gi i quy t đ c m t s bàiự ượ ươ ả ế ượ ộ ố
toán v m ng m t chi u.ề ả ộ ề
II. Chu n b :ẩ ị
1. Giáo viên: Giáo án, SGK, sách giáo viên, sách bài t p, máy chi u.ậ ế
2. H c sinh:ọ V ghi, sách giáo khoa, đ dùng h c t pở ồ ọ ậ .
III. T ch c các ho t đ ng h c t pổ ứ ạ ộ ọ ậ
1. n đ nh t ch c l p:Ổ ị ổ ứ ớ
Ki m tra bài cũ:ể Ti n hành trong quá trình ch a bài t p.ế ữ ậ
2.Tiến trình bài mới:
Ho t đ ng c a th y và tròạ ộ ủ ầ N i dungộ
Ho t đ ng 1: Làm bài 5 (20p)ạ ộ
B1: chuy n giao nhi m v h c t p.ể ệ ụ ọ ậ
GV nêu yêu c u c a bài toán.ầ ủ
Chia l p theo nhóm th o lu n.ớ ả ậ
GV: Nêu n i dung bài t p.ộ ậ
HS: Đ c n i dung bài t p.ọ ộ ậ
B2: Th c hi n nhi m v h c t pự ệ ệ ụ ọ ậ
HS th o lu n nhóm.ả ậ
GV quan sát giúp đ HS g p khó khăn.ỡ ặ
GV: H ng d n h c sinh ch a bài t p.ướ ẫ ọ ữ ậ
GV: Nh c l i đ nh nghĩa c p s c ngắ ạ ị ấ ố ộ
trong toán h c?ọ
HS: Nh c l i.ắ ạ
GV: Dãy s Aố1, A2,.. An là c p s c ngấ ố ộ
n u tho mãn đi u ki n gì?ế ả ề ệ
HS: d= A2-A1 = A3-A2 = ......= An-An-1.
GV: Khi nào thì dãy s đã cho không làố
c p s c ng?ấ ố ộ
HS: Khi t n t i m t c p s đã cho cóồ ạ ộ ặ ố
hi u khác d.ệ
GV: V y ph i s d ng câu l nh gì?ậ ả ử ụ ệ
HS: S d ng câu l nh l p v i s l nử ụ ệ ặ ớ ố ầ
không bi t tr c While - Do.ế ướ
B3: Báo cáo k t qu th o lu n.ế ả ả ậ
Các nhóm báo cáo k t qu th o lu n.ế ả ả ậ
.
Bài 5: Vi t ch ng trình nh p t bànế ươ ậ ừ
phím s nguyên d ng N (N<=100)ố ươ
và dãy A g m N s nguyên Aồ ố 1, A2,...An
có giá tr tuy t đ i không l n h nị ệ ố ớ ơ
1000. Hãy cho bi t dãy A có ph i làế ả
m t c p s c ng hay không và thôngộ ấ ố ộ
báo k t qu ra màn hình.ế ả
Ch ng trình:ươ
program CSCONG;
uses crt;
Var A: array[1..100] of integer;
n,i,d: Byte;
Begin
clrscr;
write('nhap so phan tu
day');
readln(n);
While (n<0) and (n>100) do
begin
write('nhap lai');
readln(n);
end;
for i:= 1 to n do
begin
write(' Nhap
A[',i,']=');
readln(A[i]);
end;
d:= A[2]-A[1];
i:=3;
While (A[i] - A[i-1] = d)
do
i:=i+1;