- Vịng lặp để xét các kí tự trong xâu? B. Hoạt động hình thành kiến thức
HOẠT ĐỘNG DẠY HỌC NỘI DUNG
HĐ1:Viết chương trình tính tổng các phần tử chẵn trong mảng. Xuất kết quả ra màn hình? (áp dụng viết
chương trình con)
GV: phần tử chẵn là phần tử như thế nào?
HS: Suy nghĩ và TL (phần tử có giá trị chia hết cho
2)
GV: mảng có N phần tử, sử dụng cấu trúc nào để xét tất cả các phần tử trong mảng?
HS: sử dụng cấu trúc FOR với I chạy từ 1 tới N GV: Yêu cầu HS viết chương trình
HS: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình.
1. Hàm tính tổng các số chẵn
Type mang= Array[1..100]of integer; Var A:mang; N:integer;
Function tong(a:mang; N:integer):integer; Var i:integer;
tong:=0;
For I’=1 to N do
If A[i] mod 2 = 0 then tong:=tong+ A[i]; End;
Procedure nhap(var A:mang; N:integer); Var i:integer;
Begin
For i:=1 to N do Begin
Write(‘nhap phan tu thu ‘,I,’:’); Readln(A[i]);
End; End;
Begin
Writeln(‘nhap so luong phan tu:’); Readln(N);
Nhap(A,N);
Writeln(‘qk = ‘,Tong(A,N)); readln
End.
HĐ2: Viết chương trình nhập xâu, tạo xâu mới chứa các kí tự thường, xuất xâu kết quả ra màn hình?
GV: đề bài
HS: Đọc, phân tích đề bài
GV: Yêu cầu HS nêu điểu kiện kiểm tra kí tự thường
HS: if A[i] in [‘a’..’z’] then
GV: nêu cấu trúc để xét tất cả các kí tự trong xâu HS: for i:=1 to length(A) đo
Gv: biểu thức tạo xâu mới Hs: xaumoi:=xaumoi+A[i];
Gv: u cầu hs hồn thiện chương trình Hs: thực hiện viết chương trình
Procedure Nhap(var A:string); Begin Writeln(‘nhap xau’); Readln(A); End; Function xaumoi(A:string):string; Var i:integer; Begin Xaumoi:=’’;
For i:=1 to Length(A) do If A[i] in [‘a’..’z’] then
Xaumoi:=Xaumoi + A[i]; End; VAR A:STRING; BEGIN Nhap(A); Write(‘xau KQ: ‘,Xaumoi(A)); Readln; END. C. Hoạt động củng cố
- Hàm không trả về một giá trị: lời gọi độc lập
- Hàm trả về một giá trị: lời gọi phải được đặt trong một lệnh hoặc trong một lời gọi chương trình con khác.