Giáo án ôn tập chương IV

Giáo sinh thực hiện: Nguyễn Văn Triển
ĐÀ NẴNG
Kiểm tra bài cũ

- Cách khai báo mảng một chiều? Cho ví dụ minh họa
- Cách khai báo kiểu xâu? Cho ví dụ minh họa






Cách khai báo mảng một chiều: Có hai cách khai báo
Cách 1: Khai báo trực tiếp:
Var : array[kiểu chỉ số] of ;
Ví dụ: - Var nhietdo : array[1..365] of integer;
- Var A,B : array[1..100] of real;

Cách 2: Khai báo gián tiếp
Type =array[kiểu chỉ số]of;
Var :;

Ví dụ: TYPE nhietdo = array[1..365] of integer;
Var A: nhietdo;






Kiểu Mảng





Kiểu Xâu
1. Khai báo
2. Các thao tác xử lý
Khai báo kiểu xâu





Click Xem Chương trình
VAR : String[độ dài lớn nhất của xâu];

Ví dụ: Var Hoten: string[30];
Var Diachi: string[20]

CÁC THỦ TỤC XỬ LÍ XÂU
Xóa n kí tự của xâu S ,bắt dầu từ kí tự vt
Delete(S,vt,n)
S = ‘Song Hong’
Delete(S,1,5)
 ‘Hong’
Insert(S1,S2,vt)
Chèn xâu S1 vào xâu S2, bắt đầu từ vị trí vt
S1=‘PC’; S2=‘IBM 486’
Insert(s1,s2,4)
 ’IBM PC 486’
CÁC HÀM XỬ LÍ XÂU
Tạo xâu gồm n kí tự liên tiếp bắt dầu từ vị trí vt của xâu S
Copy(S,vt,n)
S = ‘Bai hoc thu 9’
Copy(S,9,5)
 ‘thu 9’
Length(S)
Cho giá trị là độ dài của xâu S
S=‘Lop 11/10’
Length(S)  9
Cho vị trí xuất hiện đầu tiên của xâu S1 trong xâu S2
Pos(S1,S2)
S1 = ‘1’; S2=‘Hinh 1.2’
Pos(S1,S2) = 6
Upcase(ch)
Chuyển kí tự ch thành chữ hoa
ch=‘d’
Upcase(ch) = ‘D’
Phần khai báo
Type { phan Khai bao}
Hocsinh = record
Hoten : string[30];
diemtoan,diemvan,diemtin,Tong:integer;
end;
Var A: ARRAY[1..100] of Hocsinh;
i,n: integer;





Kiểu bản ghi
1. Khai báo
2. Các thao tác xử lý
Type
< Tên kiểu bản ghi> = record
: ;
: ;
........................................................
: ;
end;
Var : ;

Ví dụ minh họa
Type
hoso = record
Hoten: string[20];
Ketqua: string[10];
diemtoan,diemvan: real;
end;
Var LOP: ARRAY[1..40] of hoso;


Back
THAM CHIẾU TRƯỜNG CỦA BẢN GHI
> Nếu A là biến kiểu bản ghi và X là tên một trường của A,
thì để tham chiếu đến trường X, ta viết: A.X

Ví dụ: để tham đến điểm tin học của một học sinh trong ví dụ trên
ta viết: A.dtin

GÁN GIÁ TRỊ
Có hai cách để gán trị cho biến bản ghi:
Dùng lệnh gán trực tiếp:
Nếu A và B là hai biến cùng bản ghi cùng kiểu,
thì ta có thể gán trị của B cho A bằng Câu lệnh: A:=B;

Gán trị cho từng trường: có thể thực hiện bằng lệnh gán
hoặc nhập từ bàn phím.
Ghi nhớ
- Ghi nhớ một số kiến thức về:
+ Kiểu mảng: cách khai báo, cách truy cập, in mảng.
+ Kiểu xâu : Cách khai báo, thao tác xử lý xâu.
+ Kiểu bản ghi: Cách khai báo, các thao tác với bản ghi
- Dặn dò:
+ Các em về xem lại lý thuyết về Kiểu mảng, kiểu xâu và kiểu bản ghi để tiết sau chúng ta học bài ôn tập.
Bài học của chúng ta hôm nay đến đây kết thúc
Thân ái chào các em





Program Min_ab;
Uses crt;
Var a,b : integer;
Begin
Clrscr;
Write(`Nhap so thu nhat: `);
Readln(a);
Write(`Nhap so thu hai: `);
Readln(b);
if a < b then
Writeln(`Gia tri nho nhat la:`,a)
else
Writeln(`Gia tri nho nhat la:`,b);
Readln;
End.
Click Chạy Chương Trình
Back





Program Min;
Uses crt;
Var A: array[1..100] of integer;
Min,i, N : integer;
Begin
Clrscr;
Write(`So phan tu cua mang: `); Readln(N);
For i:=1 to N do
Begin
Write(` A[`, i,`]= `);
Readln(A[i]);
End;
Min:=A[1];
For i:=2 to N do
if A[i] < Min then Min:= A[i];
Writeln(` Gia tri nho nhat cua mang la:`,Min);
Readln;
End.
Click Chạy Chương Trình
Back