Viết chương trình nhập vào 1 xâu ký tự từ bàn phím, đưa ra số các dấu cách trong xâu rồi in ra vị trí của từng dấu cách trong xâu
Viết chương trình nhập vào một xâu S có độ dài không quá 125 ký tự từ bàn phím. Xuất xâu đã nhập. Thực hiện xóa hết các dấu cách có trong xâu S. Xuất xâu S đã xóa các dấu cách ra màn hình
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.
Viết chương trình nhập 1 xâu từ bàn phím, đưa ra:
a. Độ dài xâu.
b. Xâu đã xóa đi 1 ký tự đầu.
c. Xâu đã xóa đi 2 ký tự cuối.
d. Xâu đã xóa đi 1 ký tự giữa.
e. Xâu đã in hoa.
f. Vị trí của khoảng trắng đầu tiên.
g. Đếm số ký tự ‘a’ có trong xâu.
Sử dụng ngôn ngữ lập trình Pascal để viết chương trình sau :
Hãy nhập vào bàn phím một xâu S rồi đưa ra màn hình tất cả các từ của xâu đó.
Định nghĩ về từ : Từ là một dãy các kí tự liên tiếp cách nhau bởi dấu cách
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
begin
if st[i]=' ' then writeln
else write(st[i]);
end;
readln;
end.
Viết chương trình nhập 1 xâu từ bàn phím, đưa ra: Đếm số ký tự ‘a’ có trong xâu.
tham khảo
uses crt;
var a:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
dem:=0;
d:=length(a);
for i:=1 to d do
if a[i]=' ' then inc(dem);
writeln(dem);
readln;
end.
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i]='a') then dem:=dem+1;
writeln(dem);
readln;
end.
Viết chương trình nhập từ bàn phím một xâu ký tự S. Xuất xâu đã nhập. Thay thế tất cả các dấu cách bằng dấu gạch dưới ( _ ). Xuất xâu đã thay thế
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.
viết chương trình nhập 1 xâu từ bàn phím. a) Hãy xóa tất cả các cách ký tự ở đầu xâu b) Hãy xóa tất cả các cách ký tự ở đầu xâu c) Hãy xóa tất cả các cách ký tự ở giữa các từ (giữa các từ chỉ có 1 dấu cách ) d) Đếm các chữ cái có trong xâu e) Đếm các chữ số ở xâu chuỗi. Trong màn hình kết quả
#include <bits/stdc++.h>
using namespace std;
int d,i,d1;
string st;
int main()
{
getline(cin,st);
d=st.length();
while (st[0]==32)
{
st.erase(0,1);
}
while (st[d-1]==32)
{
st.erase(d-1,1);
}
d1=st.length();
for (i=0; i<d1; i++)
if ((st[i]==32) && st[i+1]==32)
{
st.erase(i,1);
i--;
}
cout<<st;
return 0;
}
Nhập vào 1 xâu kí tự S từ bàn phím, rồi in ra xâu kí tự đó sau khi đã xoá hết các dấu cách thừa ở đầu, cuối xâu và giữa các từ trong xâu chỉ để lại 1 dấu cách BẰNG PYTHON Mọi người giúp em với ạ 😢😢😢
viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.
Viết chương trình nhập vào xâu ký tự S , độ dài không quá 100 ký tự . Hãy chuẩn hóa xâu
- Xâu chuẩn là xâu không có dấu cách ở đầu câu , giữa 2 từ trong xâu chỉ có 1 dấu cách .
Uses crt;
Var st:string;
I,d:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
While st[d]=#32 do
Begin
Delete(st,d,1);
D:=length(st);
End;
For i:=1 to d do
If (st[i]=#32) and (st[i+1]=#32) then delete(st,i,1);
Writeln(st);
Readln;
End.