IV. Đỏnh giỏ cuối bài: (3') 1 Những nội dung đó học:
1. Quan sỏt đề và xỏc định những cụng việc cần thực hiện.
việc cần thực hiện.
Nhúm 1:
+ Hỏi: Dữ liệu vào/ra cua bài toỏn?
+ Hỏi: Nờu cỏc nhiệm vụ chớnh của bài toỏn?
+ Hỏi: Cấu trỳc dữ liệu phải sử dụng như thế nào?
+ Hỏi: Ta phải sử dụng hàm nào? Nhúm 2:
+ Vào: xõu S
+ ra: Dóy cỏc số ứng với sự xuỳat hiện của mỗi loịa kớ tự trong xõu.
+ TT: Duyệt từ trỏi sang phải, thờm một đơn vị cho kớ tự đọc được.
+ Cấu trỳc dữ liệu: Dem[‘A’,..,’Z’] + Dựng hàm UpCase().
2. Độc lập soạn chương trỡnh vào mỏy.
- Test.
10'
30'
IV. Đỏnh giỏ cuối bài: (5')1. Những nội dung đó học: 1. Những nội dung đó học:
- Một số thuật toỏn đơn giản liờn quan đến xõu kớ tự. Kiểm tra một xõu đối xứng, tỡm tần suất xuất hiện của cỏc kớ tự cú trong xõu.
2. Cõu hỏi và bài tập về nhà:
- Chuẩn bị nội dung cho tiết lý thuyết tiếp theo. Đực trước nội dung bà kiểu bản ghi SGK trang 74.
Ngày soạn:
Tiết 31:
Bài tập
Bài 1: Lập trình nhập vào một mảng 2 chiều. Tính tổng các phần tử trong mảng. Bài giải:
Program Bai1; Uses CRT;
Var A:Array[1..100,1..100] of Integer; Tong:Real;
i, j, m, n: Integer; BEGIN
Clrscr;
Write('Nhap so hang cua mang 2 chieu: n = '); Readln(n);
Write('Nhap so cot cua mang 2 chieu: m = '); Readln(m);
Writeln('Nhap gia tri cua cac phan tu trong mang 2 chieu: '); For i:=1 to n do For j:=1 to m do Begin Write('A[',i,',',j,']='); Readln(A[i,j]); End; Tong:=0; For i:=1 to n do For j:=1 to m do Tong:= Tong+A[i,j];
Writeln('Tong gia tri cac phan tu trong mang 2 chieu da cho la: ',Tong:8:2); Readln;
END.
Bài 2: Lập trình nhập vào một mảng 2 chiều. Đếm số phần tử chẵn trong mảng. Bài giải:
Program Bai2; Uses CRT;
Var A:Array[1..100,1..100] of Integer; Dem: Integer;
i, j, m, n: Integer; BEGIN
Clrscr;
Write('Nhap so hang cua mang 2 chieu: n = '); Readln(n);
Write('Nhap so cot cua mang 2 chieu: m = '); Readln(m);
Writeln('Nhap gia tri cua cac phan tu trong mang 2 chieu: '); For i:=1 to n do For j:=1 to m do Begin Write('A[',i,',',j,']='); Readln(A[i,j]); End; Dem:=0; For i:=1 to n do For j:=1 to m do
If (A[i,j] mod 2 = 0) then Dem:=Dem+1;
If (Dem=0) then Writeln('Trong mang khong co phan tu chan.') Else Writeln('So phan tu chan trong mang la: ',Dem);
Readln; END.
Ngày soạn:
Tiết 32:
Đ13: kiểu bản ghi A. MỤC TIấU, YấU CẦU:
1. Kiến thức:
- Biết khỏi niệm kiểu bản ghi.
- Biết cỏch khai bỏo bản ghi, truy cập trường của bản ghi.
2. Kĩ năng:
- Khai bỏo được kiểu bản ghi, khai bỏo được biến kiểu bản ghi trong Pascal. - Nhập xuất được dữ liệu cho biến bản ghi.
- Tham chiếu đến từng trường của kiểu bản ghi.
- Sử dụng kiểu bản ghi để giải quyết một số bài tập đơn giản.