Kiểu xâu tiết 1
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Đinh Mai Huyền
Ngày gửi: 09h:56' 17-01-2012
Dung lượng: 728.0 KB
Số lượt tải: 311
Nguồn:
Người gửi: Đinh Mai Huyền
Ngày gửi: 09h:56' 17-01-2012
Dung lượng: 728.0 KB
Số lượt tải: 311
Số lượt thích:
0 người
Tin học 11
Giáo viên: Đinh Thị Mai Huyền
Đơn vị: Trường THPT Bạch Đằng
Nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn.
A
B
Hãy xác định kiểu dữ liệu phần tử của 2 biến A, B?
Bài toán:
A
1 2 3 4 5 6 7
Ví dụ :
‘TIN HOC’
‘Nam 2010 la nam Canh Dan’
Ví dụ :
Ví dụ: Var NgaySinh:String[10];
* Cấu trúc:
Var:String;
Ví dụ: Var chuthich:String;
Ví dụ: ‘Lop’ + ‘11B4’ ‘Lop11B4’
‘Lop’ + ‘ ’ + ‘11B4’ ‘Lop 11B4’
* Phép ghép xâu:
* Phép so sánh: = , <>, <, <=, >, >=
Ví dụ:
=
<>
<
Xâu A
Xâu B
‘Tin hoc’
‘Tin hoc’
‘Tin hoc’
‘Tin Hoc’
>
‘Tre Em’
‘Tre Con’
‘Lop’
‘Lop 11B2’
‘Tinhoc’
Insert(S1,S2,1)
* Thủ tục Delete(S,vt,n)
* Thủ tục Insert(S1,S2,vt)
‘nhatruong’
8
‘Xin chao’
2
Pos(‘b’,S)
‘Abcabcf’
‘A’
UPCase(Ch)
‘a’
Length(S)
‘A’
UPCase(Ch)
‘A’
Nội dung đã học:
Xâu là dãy kí tự trong bộ mã ASCII, mỗi một kí tự là phần tử của xâu, xâu có độ dài bằng 0 là xâu rỗng.
Khai báo:
Var:string[Độ dài lớn nhất của xâu];
Tham chiếu phần tử của xâu: Tên xâu[Chỉ số phần tử]
Các thao tác xử lí thường dùng:
+ Phép ghép xâu, so sánh xâu.
+ Các thủ tục và hàm chuẩn.
‘Xin chao cac ban!’
Var S : string[30];
S[1] = ‘X’
‘A’ + ‘B’ = ‘AB’
ABDelete,Insert,Copy,Length,Pos,UpCase.
PHIẾU HỌC TẬP
Bài 1: Khai báo sau đây đúng (Đ) hay sai (S)?
var xau: string[275];
Bài 2: Cách so sánh nào là đúng, (Đ) cách so sánh nào là sai (S)?
a) ‘AB’ < ‘ABC’
b) ‘AC’ < ‘ABC’
c) ‘Anh’ < ‘Ba’
Bài 3: Cho đoạn chương trình:
Var S1,S2,S:string[20]; a,b:byte; ch:char;
Begin
S1:= ‘Ha Noi’;
S2:= ‘Hai Phong’;
ch:= Upcase(S1[2]);
b:= pos(‘i’,S2);
a:= length(S1);
S:= copy(S2,1,3);
delete(S2,1,4);
insert(‘TP ’,S1,1);
End.
Xác định kết quả của S1,S2,S,b,a,ch sau khi thực hiện đoạn chương trình trên?
S
Đ
S
Đ
Xin chân thành cảm ơn các thầy cô giáo về dự!
Bài tập về nhà
Viết chương trình nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn.
Var a,b:string;
Begin
Write(‘Nhap ho ten thu nhat: ’); readln(a);
Write(‘Nhap ho ten thu hai: ’); readln(b);
If length(a)>length(b) then write(a) else write(b);
Readln
End.
Giáo viên: Đinh Thị Mai Huyền
Đơn vị: Trường THPT Bạch Đằng
Nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn.
A
B
Hãy xác định kiểu dữ liệu phần tử của 2 biến A, B?
Bài toán:
A
1 2 3 4 5 6 7
Ví dụ :
‘TIN HOC’
‘Nam 2010 la nam Canh Dan’
Ví dụ :
Ví dụ: Var NgaySinh:String[10];
* Cấu trúc:
Var
Ví dụ: Var chuthich:String;
Ví dụ: ‘Lop’ + ‘11B4’ ‘Lop11B4’
‘Lop’ + ‘ ’ + ‘11B4’ ‘Lop 11B4’
* Phép ghép xâu:
* Phép so sánh: = , <>, <, <=, >, >=
Ví dụ:
=
<>
<
Xâu A
Xâu B
‘Tin hoc’
‘Tin hoc’
‘Tin hoc’
‘Tin Hoc’
>
‘Tre Em’
‘Tre Con’
‘Lop’
‘Lop 11B2’
‘Tinhoc’
Insert(S1,S2,1)
* Thủ tục Delete(S,vt,n)
* Thủ tục Insert(S1,S2,vt)
‘nhatruong’
8
‘Xin chao’
2
Pos(‘b’,S)
‘Abcabcf’
‘A’
UPCase(Ch)
‘a’
Length(S)
‘A’
UPCase(Ch)
‘A’
Nội dung đã học:
Xâu là dãy kí tự trong bộ mã ASCII, mỗi một kí tự là phần tử của xâu, xâu có độ dài bằng 0 là xâu rỗng.
Khai báo:
Var
Tham chiếu phần tử của xâu: Tên xâu[Chỉ số phần tử]
Các thao tác xử lí thường dùng:
+ Phép ghép xâu, so sánh xâu.
+ Các thủ tục và hàm chuẩn.
‘Xin chao cac ban!’
Var S : string[30];
S[1] = ‘X’
‘A’ + ‘B’ = ‘AB’
AB
PHIẾU HỌC TẬP
Bài 1: Khai báo sau đây đúng (Đ) hay sai (S)?
var xau: string[275];
Bài 2: Cách so sánh nào là đúng, (Đ) cách so sánh nào là sai (S)?
a) ‘AB’ < ‘ABC’
b) ‘AC’ < ‘ABC’
c) ‘Anh’ < ‘Ba’
Bài 3: Cho đoạn chương trình:
Var S1,S2,S:string[20]; a,b:byte; ch:char;
Begin
S1:= ‘Ha Noi’;
S2:= ‘Hai Phong’;
ch:= Upcase(S1[2]);
b:= pos(‘i’,S2);
a:= length(S1);
S:= copy(S2,1,3);
delete(S2,1,4);
insert(‘TP ’,S1,1);
End.
Xác định kết quả của S1,S2,S,b,a,ch sau khi thực hiện đoạn chương trình trên?
S
Đ
S
Đ
Xin chân thành cảm ơn các thầy cô giáo về dự!
Bài tập về nhà
Viết chương trình nhập vào họ tên của hai học sinh, in ra màn hình họ tên dài hơn.
Var a,b:string;
Begin
Write(‘Nhap ho ten thu nhat: ’); readln(a);
Write(‘Nhap ho ten thu hai: ’); readln(b);
If length(a)>length(b) then write(a) else write(b);
Readln
End.
Các ý kiến mới nhất