Kieu xau (tiet 2)

bài giảng kiểu xâu tiết 2

bài giảng kiểu xâu tiết 2

... vao xau S: ’); readln(S); Write(‘Nhap vao xau S: ’); readln(S); For For i:= 1 i:= 1 To To length(S) length(S) Do Do upcase(S[i]); upcase(S[i]); Write( Xau da chuyen:’,S); Write( Xau ... vt, n) Insert(S1, S2, vt) Insert(S1, S2, vt) Delete(St, vt, n) Delete(St, vt, n) Pos(S1, S2) Pos(S1, S2) Length(S) Length(S) Upcase(ch) Upcase(ch) Các hàm và thủ tục xử lý xâu:

Ngày tải lên: 28/05/2014, 17:53

18 1,2K 0
bài 12 Kiểu Xâu tiết 2

bài 12 Kiểu Xâu tiết 2

... length(S)=10; e) Hàm pos(s1, s2) Ý nghĩa: Cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2. Ví dụ 1: s1: =‘me’; s2: = ‘ba me’; pos(s1, s2) = 4; Ví dụ 2: s1:=’em’; s2:=’ba me’; pos(s1, s2) = 0; f) Hàm ... chương trình: Var a,b : String ; x : Byte ; Begin Write('Nhap xau thu 1 : '); Readln(a) ; Write('Nhap xau thu 2 : '); Readln(b) ; x := length(b) ; If a[...

Ngày tải lên: 01/07/2014, 01:00

5 3,3K 13
Kieu xau (tiet 2)

Kieu xau (tiet 2)

... tập số 3 write(‘Nhap vao xau s1: ‘); readln(s1); s2:=’’; for i:=1 to length(s1) do if (‘0’<s1[i]) and (s1[i]<’9’) then s2:=s2+s1[i]; write (‘Ket qua: ‘,s2); readln End. Giáo viên đưa ... đưa kết quả ra màn hình. Program XuLiXau; var s1, s2: string; i: byte; Begin Trả lời về hàm sẽ sử dụng để giải bài toán. Viết chương Kiểu xâu (tiết 2) Trang 4 Nguyễn Hoàng Anh – Khoa ....

Ngày tải lên: 02/07/2014, 06:00

5 241 0
Trắc nghiệm xâu tiết 2

Trắc nghiệm xâu tiết 2

... CÂU 6: Hãy điền vào chỗ (…). S:= 'ACDFE '; Delete ( S ,…, 2); để thu được kết quả S= 'ACE ' A. 1 B. 2 C. 3 D. 4 CÂU 9: Hãy điền vào chỗ (…). S:= ... S2=‘Abcdabcab’ CÂU 8: Cho ST:= 'chuc mung nam moi‘; Hãy điền vào chỗ (…) d:=Copy(ST,8 ,2); -> d=‘….' A. d=‘ m’ B. d=‘mu’ C. d=‘un’ D. ‘ng’ CÂU 5: Hãy điền vào chỗ (…) S1:=

Ngày tải lên: 21/06/2013, 01:26

11 3,4K 85
Kieu xau (tiet 1)

Kieu xau (tiet 1)

Ngày tải lên: 02/07/2014, 06:00

4 331 4
Tiết 27 - Kiểu xâu

Tiết 27 - Kiểu xâu

Ngày tải lên: 04/06/2013, 01:26

4 618 2
tiet 28 kieu xau

tiet 28 kieu xau

Ngày tải lên: 07/11/2013, 10:11

4 181 0
Bài giảng kiểu xâu

Bài giảng kiểu xâu

... Var Xau1 , Xau2 : string; Begin Clrscr; Write(‘nhap ho ten thu nhat ’); Readln (Xau1 ); Write(‘nhap ho ten thu hai ’); Readln (Xau2 ); If length (Xau1 ) > length (Xau2 ) then write (Xau1 ) ... trị là độ dài xâu s.  Pos (s1, s2): cho vị trí xuất hiện đầu tiên của xâu s1 trong xâu s2.  Upcase(ch): cho chữ cái viết hoa ứng với chữ cái trong ch  Pos(S1,S2): tìm vị trí xuất h...

Ngày tải lên: 06/09/2012, 16:32

12 1,1K 5
w