1. Cho xâu S nhập từ bàn phím. Viết chương trình xóa các kí tự dư thừa trong xâu và biến các kí tự trong xâu thành chữ hoa.
2. Cho xâu s nhập từ bàn phím.Định dạng xâu theo kiểu tên người VD Truong Vinh Ky
viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
Nhập vào 1 xâu kí tự từ bàn phím . Viết chương trình xóa kí tự là chữ có trong xâu
tham khảo
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (not (st[i] in ['A'..'Z'])) and (not (st[i] in ['a'..'z'])) then write(st[i]);
readln;
end.
Nhập vào từ bàn phím một xâu kí tự S. Viết chương trình thực hiện xóa các kí tự 'a' có trong xâu S. Sau đó hiển thị kết quả xâu S sau khi đã xóa kí tự 'a' ra màn hình
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau :'); readln(s);
for i:=1 to length(s) do if s[i]<>'a' then write(s[i]);
readln
end.
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]='a' then delete(st,i,1);
writeln(st);
readln;
end.
Bài tập 2:Viết chương trình nhập một xâu từ bàn phím. Đếm số kí tự là chữ số chữ cái trong xâu vừa nhập và in ra màn hình. Xóa các chữ số kh xâu vừa nhập
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
Viết chương trình nhập một xâu từ bàn phím (xâu nhập vào có kí tự chứ cái in, chữ cái thường và kí tự số) Yêu cầu:lọc và in các chữ cái thường có trong xâu
Program HOC24;
var s: string;
begin
write('Nhap xau: '); readln(s);
write('Xau sau khi loc: ');
for i:=1 to length(s) do
if s[i] in ['A'..'z'] then write(s[i]);
readln
end.
Bài 1. Nhập vào 1 xâu kí tự từ bàn phím . Viết chương trình xóa kí tự là chự cái có trong xâu.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (not (st[i] in ['A'..'Z'])) and (not (st[i] in ['a'..'z'])) then write(st[i]);
readln;
end.
Viết chương trình nhập vào từ bàn phím 1 xâu S. Xuất ra màn hình: -Xâu S vừa nhập -Cho biết xâu đó có độ dài là bao nhiêu -Trong xâu có bao nhiêu kí tự là khoảng trắng -Trong xâu có bao nhiêu từ
Bài 5: Viết chương trình cho phép người dùng nhập vào từ bàn phím một xâu ký tự s gồm cả các kí tự chữ và các kí tự số. Hãy tách s thành 2 xâu con: s1 chỉ chứa các ký tự số, s2 chỉ chứa các ký tự chữ
uses crt;
var s,s1,s2:string;
i,d:integer;
begin
clrscr;
readln(s);
s1:=''
s2:=''
d:=length(s);
for i:=1 to d do
begin
if s[i] in ['0'..'9'] then s1:=s1+s[i];
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then s2:=s2+s[i];
end;
writeln('Xau chua cac ki tu so la: ',s1);
writeln('Xau chua cac ki tu chu la: ',s2);
readln;
end.