Bài 12. Kiểu xâu

Chương 4: KIỂU DỮ LIỆU CÓ CẤU TRÚC

Bài 12: KIỂU XÂU (tt)
Giáo viên: Trần Hữu Quốc
Giáo án điện tử môn Tin học 11
Var s,a:string;
b,c:byte; d:char;
Begin
s:=‘thu 5 troi that dep ‘;
a:=copy(s,1,5);
b:=length(s);
c:=pos(‘a’,s);
d:=upcase(s[4]);
write(‘a:‘,a,’ b:‘,b,’ c:‘,c,’ d:‘,d);
Readln;
End.

MỘT SỐ VÍ DỤ MINH HỌA
a:thu 5 b:19 c:14 d:U
Kết quả của chương trình
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.
MỘT SỐ VÍ DỤ MINH HỌA
Nhap ho ten thu nhat:
Nhap ho ten thu hai:
Nguyen Thi Mong Mo
Kết quả của chương trình
Nguyen Thi Mong Mo
Tran Van Ti
Var x:byte;
a,b: string;
Begin
write(‘Nhap xau thu nhat: ‘); readln(a);
write(‘Nhap xau thu hai: ‘); readln(b);
x:=length(b);
if a[1]=b[x] then write(‘Trung nhau’)
else write(‘Khac nhau’);
Readln;
End.
MỘT SỐ VÍ DỤ MINH HỌA
Nhap xau thu nhat:
Nhap xau thu hai:
Khac nhau
Kết quả của chương trình
troi dang mua
that la dep
t
p