Nội dung của Bài 12: Kiểu xâu dưới đây, các em sẽ được tìm hiểu về một số khái niệm về xâu, cách khai báo xâu; cách sử dụng một số thủ tục hàm thông dụng về xâu; một số chương trình đơn giản có sử dụng xâu;... Mời các em cùng theo dõi nội dung chi tiết của bài học.
Một số khái niệm:
Để mô tả kiểu xâu ta cần xác định:
Tham chiếu đến phần tử của xâu:
Dưới đây trình bày cách khai báo kiểu dữ liệu xâu, các thao tác xử lí xâu và một số ví dụ sử dụng kiểu xâu trong Pascal.
var < tên biến xâu >: string[độ dài tối đa của xâu];
Trong đó:
Ví dụ 2:
Được sử dụng để ghép nhiều xâu thành một.
Có thể thực hiện phép ghép xâu đối với các hằng và biến xâu.
Trong đó:
st: xâu.
vt: vị trí bắt đầu xóa.
n: số kí tự xóa.
Giá trị st | Thao tác | Kết quả |
'Nguyen Van A' | delete(st,8,3) | ? |
Bảng 1. Ví dụ về thủ tục xóa n kí tự
Trong đó:
s1, s2: xâu.
vt: vị trí bắt đầu chèn xâu s1.
Giá trị s1 | Giá trị s2 | Thao tác | Kết quả |
' PC ' | 'IBM486' | insert(s1,s2,4); | 'IBM PC 486' |
Bảng 2. Ví dụ thủ tục chèn xâu S1 vào xâu S2
Trong đó:
s: xâu.
vt: vị trí bắt đầu lấy trong xâu s.
n: số kí từ sé lấy.
Giá trị s | Biểu thức | Kết quả |
'Bai hoc thu 9' | copy(s,9,5); | 'thu 9' |
Bảng 3. Ví dụ hàm tạo xâu
Giá trị s | Biểu thức | Kết quả |
'500 ki tu' | length(s) | 9 |
Bảng 4. Ví dụ hàm tính độ dài xâu
Giá trị s2 | Biểu thức | Kết quả |
'abcdef' | pos('cd',s2) | 3 |
Bảng 5. Ví dụ hàm cho biết vị trí xuất hiện đầu tiền của xâu s1 trong xâu s2
upcase(B) ---> 'B'
Chương trình dưới đây nhập họ tên của hai người vào hai biến xâu và đưa ra màn hình xâu dài hơn, nếu bằng nhau thì đưa ra xâu nhập sau.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
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.
Chương trình dưới đây nhập hai xâu từ bàn phím và kiểm tra kí tự đầu tiên của xâu thứ nhất có trùng với kí tự cuối cùng của xâu thứ hai không.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var x: byte;
a,b: string;
begin
write('Nhap xau thu nhat: '); readln(a);
write('Nhap xau thu hai: '); readln(b);
x:=length(b);
{xac dinh do dai xau b de biet vi tri cua ki tu cuoi cung}
if a[1]=b[x] then write('Trung nhau')
else write('Khac nhau');
readln
end.
Chương trình sau nhập một xâu vào từ bàn phím và đưa ra màn hình xâu đó nhưng được viết theo thứ tự ngược lại.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var i,k: byte;
a: string;
begin
write('Nhap xau:');
readln(a);
k:= length(a); {xac dinh do dai xau}
for i:= k downto 1 do write(a[i]);
readln
end.
Chương trình sau nhập một xâu vào từ bàn phím và đưa ra màn hình xâu thu được từ nó bởi việc loại bỏ các dấu cách.
Gợi ý làm bài:
Đoạn chương trình cài đặt:
var i,k: byte;
a, b: string;
begin
write('Nhap xau:');
readln(a);
k:= length(a);
b:= ' '; (* Khoi tao xau rong *)
for i:= 1 to k do
if a[i]<> ' ' then b:=b+a[i];
writeln('Ket qua: ',b);
readln
end.
Chương trình sau nhập vào từ bàn phím xâu kí tự s1, tạo xâu s2 gồm tất cả các chữ số có trong s1 (giữ nguyên thứ tự xuất hiện của chúng) và đưa kết quả ra màn hình.
Gợi ý làm bài:
Chương trình cài đặt:
program XuLiXau;
var s1, s2: string;
i: byte;
begin
write('Nhap vao xau s1: ');
readln(s1);
S2:= ' '; {Khoi tao xau s2 rong}
for i:= 1 to length(s1) do
if ('0' = < s1[i]) and (s1[i] <= '9') then s2:= s2+s1[i];
writeln('Ket qua: ', s2);
readln
end.
Sau khi học xong Bài 12: Kiểu xâu, các em cần nắm vững các nội dung trọng tâm:
Các em có thể hệ thống lại nội dung kiến thức đã học được thông qua bài kiểm tra Trắc nghiệm Tin học 11 Bài 12 cực hay có đáp án và lời giải chi tiết.
Độ dài tối đa của xâu kí tự trong PASCAL là:
Cho xâu S là ‘Hanoi-Vietnam’. Kết quả của hàm Length(S) là:
Câu 3-5: Mời các em đăng nhập xem tiếp nội dung và thi thử Online để củng cố kiến thức về bài học này nhé!
Trong quá trình học tập nếu có thắc mắc hay cần trợ giúp gì thì các em hãy comment ở mục Hỏi đáp, Cộng đồng Tin học DapAnHay sẽ hỗ trợ cho các em một cách nhanh chóng!
Chúc các em học tập tốt và luôn đạt thành tích cao trong học tập!
-- Mod Tin Học 11 DapAnHay
Độ dài tối đa của xâu kí tự trong PASCAL là:
Cho xâu S là ‘Hanoi-Vietnam’. Kết quả của hàm Length(S) là:
Cho xâu S là ‘Hanoi-Vietnam’. Kết quả của hàm Pos(‘Vietnam’,S) là
Cho khai báo sau: Var hoten : String;
Phát biểu nào dưới đây là đúng ?
Hãy chọn phương án ghép đúng nhất. Thủ tục chuẩn Insert(S1,S2,vt) thực hiện:
Họ và tên
Tiêu đề câu hỏi
Nội dung câu hỏi
Câu trả lời của bạn
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then st[i]:='_';
writeln('Xau thay the la: ',st);
readln;
end.
Câu trả lời của bạn
program bai_10_chuong_4;
uses crt;
var
s: string[100];
i, dem: integer;
Begin
clrscr;
write('Nhap xau vao:'); readln(s); dem:= 0;
for i:= 1 to length(s) do
if ('0'<=s[i]) and(s[i]<=’9') then dem:=dem+l;
Writeln('Trong xau s co '»dem,' chu so thap phan');
readln;
End.
Câu trả lời của bạn
uses crt;
var st,s:string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
writeln('Xau vua nhap la: ',s);
d:=length(s);
for i:=1 to d do
if s[i]=#32 then delete(s,i,1);
dem:=1;
st[1]:=s[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if s[i]=st[j] then kt:=1;
if kt=0 then
begin
inc(dem);
st[dem]:=s[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if st[i]=s[j] then inc(dem1);
writeln(st[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
Câu trả lời của bạn
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
while pos('a',s)<>0 do
begin
insert('i',s,pos('a',s));
delete(s,pos('a',s),1);
end;
write('Xau sau khi chuyen la : ',s);
readln;
end.
Câu trả lời của bạn
uses crt;
var a,b:string;
d,i:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
d:=length(a);
b:='';
for i:=1 to d do
if (a[i]<>'a') and (a[i]<>'A') then b:=b+a[i];
writeln(b);
readln;
end.
Câu trả lời của bạn
uses crt;
var st:string[30];
i,d,dem,dem1:integer;
ktu:char;
begin
clrscr;
write('Nhap cau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[length(st)]=#32 do
begin
delete(st,length(st),1);
end;
for i:=1 to length(st) do
if (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
dem:=0;
for i:=1 to length(st) do
if st[i]=#32 then inc(dem);
writeln('So tu trong cau la: ',dem-1);
write('Nhap ki tu:'); readln(ktu);
dem1:=0;
for i:=1 to length(st) do
if (st[i]=#32) and (st[i+1]=ktu) then inc(dem1);
writeln('Trong cau co ',dem1,' tu bat dau bang ki tu ',ktu);
readln;
end.
Câu trả lời của bạn
Program DapAnHay;
var i: byte;
st,s: string;
begin
write('Nhap xau: '); readln(s);
while s[length(s)]=#32 do delete(s,length(s),1);
while s[1]=#32 do delete(s,1,1);
while pos(#32,s)<>0 do delete(s,pos(#32,s),1);
for i:=length(s) downto 1 do st:=st+s[i];
write('Xau nguoc lai sau khi da bo het dau cach: ',st);
readln
end.
Câu trả lời của bạn
Program DapAnHay;
var s,s1: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
for i:=length(s) downto 1 do s1:=s1+s[i];
if s=s1 then write('Xau doi xung') else write('Xau khong doi xung');
readln
end.
Câu trả lời của bạn
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
while st[1]=#32 do
begin
delete(st,1,1);
d:=length(st);
end;
while st[d]=#32 do
begin
delete(st,d,1);
d:=length(st);
end;
for i:=1 to d do
begin
while (st[i]=#32) and (st[i+1]=#32) do
begin
delete(st,i,1);
d:=length(st);
end;
end;
st[1]:=upcase(st[1]);
for i:=1 to d do
if st[i]=#32 then st[i+1]:=upcase(st[i+1]);
writeln('Ten cua ban sau khi viet dung la: ',st);
dem:=1;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('So tu cua xau la: ',dem);
readln;
end.
1. Xâu dưới dạng đảo ngược và dưới dạng in hoa.
2. xâu có từ 'anh' thay bằng từ 'em' và không có kí tự trắng dư thừa.
Câu trả lời của bạn
1.
Program DapAnHay;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
for i:=length(s) downto 1 do write(upcase(s[i]));
readln
end.
2.
Program DapAnHay;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32,s)<>0 do delete(s,pos(#32,s),1);
while pos('anh',s)<>0 do
begin
insert('em',s,pos('anh',s));
delete(s,pos('anh',s),3);
end;
write(s);
readln
end.
Câu trả lời của bạn
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
while s[1]=#32 do delete(s,1,1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
while s[length(s)]=#32 do delete(s,length(s),1);
for i:=1 to length(s) do
if s[i]=#32 then writeln(s[i]) else write(s[i]);
writeln;
readln
end.
Câu trả lời của bạn
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
while s[1]=#32 do delete(s,1,1);
while pos(#32,s)<>0 do delete(s,pos(#32,s),1);
while s[length(s)]=#32 do delete(s,length(s),1);
writeln('Xau sau khi xoa ki tu trong: ',s);
readln
end.
Câu trả lời của bạn
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
for i:=1 to length(s) do s[i]:=upcase(s[i]);
write('Xau sau khi in hoa : ',s);
readln
end.
Câu trả lời của bạn
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau : '); readln(s);
write('Xau sau khi dao nguoc: ');
for i:=length(s) downto 1 do write(s[i]);
readln
end.
Câu trả lời của bạn
uses crt;
var st1:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st1);
d:=length(st1);
for i:=1 to d do
if (st1[i]='a') and (st1[i+1]='b') and (st1[i+2]='c') then delete(st1,i,3);
writeln(st1);
readln;
end.
Ví dụ nếu cho xâu “24d5n4r05f704n652z393” thì số lớn nhất còn lại là 7693.
Hãy lập trình để giải bài tóan trên.
Câu trả lời của bạn
program kitu;
uses crt;
var i,j,k:integer;
s1,s2:string;
begin
clrscr;
write('nhap xau:')readln(s1);
s2:='';
for i:=1 to length(s1) do
if (s1[i]>='1')and(s1[i]<='9')then s2:=s2+21[i];
for i = 1 to 4
k:=i;
for j:=i to length(s)+i-4 do
if s2[k]<s2[j] then k:=j;
if k>i then delete(s,i,k-i);
end;
writeln(copy(s,1,4));
readln;
end.
Câu trả lời của bạn
Câu trả lời của bạn
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln('Xau moi la: ',st);
readln;
end.
Câu trả lời của bạn
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i] in ['0'..'9'] then write(st[i]:4);
readln;
Câu trả lời của bạn
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau ban vua nhap la: ',st);
writeln('Xau nguoc la: ');
for i:=d downto 1 do
write(st[i]:4);
readln;
end.
0 Bình luận
Để lại bình luận
Địa chỉ email của hạn sẽ không được công bố. Các trường bắt buộc được đánh dấu *