Viết chương trình nhập vào 1 xâu ký tự (\(1< S\le255\)) thuộc ký tự từ a đến z. Chọn 'st' là xâu nén theo phương pháp như sau:
vd: aaabbbbccdfddd -> 3a4b2cdf3d
Nén xâu và giải nén xâu đó.
Những câu hỏi liên quan
1.Viết chương trình nhập một xâu ký tự gồm các ký tự từ “ a” đến “ z” và “A” đến “Z”. In ra màn in xâu đã nhập theo dạng chữ viết thường.
2.Viết chương trình đã nhập vào một số nguyên.Chuyển số đã nhập thành xâu số nguyên
Viết chương trình nhập một xâu ký tự gồm các ký tự từ “ a” đến “ z” và “A” đến “Z” . In ra màn in xâu đã nhập theo dạng chữ viết hoa.
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.
Đúng 1
Bình luận (0)
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 ở cuối 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.
Đúng 0
Bình luận (0)
1 tháng 3 2021 lúc 14:48
Viết chương trình nhập vào một xâu ký tự St1 (nhỏ hơn 30 ký tự), hãy loạibỏ khỏi xâu nhóm các ký tự ‘abc’ và xuất ra xâu St2 sau khi đã loại bỏ các ký tựtrên.
Ví dụ:Nhập vào xâu là: acabcababcacKết quả được xâu St2 là: acabac
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.
Đúng 2
Bình luận (1)
Viết chương trình nhập vào một xâu chuẩn bất kỳ ký tự thường sau đó hãy xóa hết các ký tự đặc biệt có trong xâu chỉ chứa lại các ký tự từ A đến Z và từ 0 đến 9 và khoảng cách rồi đưa kết quả lên dulieu.txt Giúp e vs ạ
uses crt;
const fi='dulieu.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['A'..Z']) or (st[i] in ['0'..'9']) or (st[i]=#32) then write(f1,st[i]);
close(f1);
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào 1 xâu và 1 ký tự đếm số lượng ký tự này trong xâu đã nhập
#include <bits/stdc++.h>
using namespace std;
string st;
char ktu;
int dem,i,d;
int main()
{
getline(cin,st);
cin>>ktu;
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if (st[i]==ktu) dem++;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một xâu, gồm chữ cái và chữ số. Nhập vào 1 ký tự từ bàn phím kiểm tra xem ký tự đó có tồn tại trong xâu hay không?
câu 1 Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte
; i:Byte;
ch:Char;
Begin Write(‘Nhap xau St: ‘);
Readln(St);
{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);
{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
Đúng 1
Bình luận (1)
uses crt;
var st:string;
i,d,kt:integer;
ktu:char;
begin
clrscr;
write('Nhap xau:'); readln(st);
write('Nhap ki tu:'); readln(ktu);
d:=length(st);
kt:=0;
for i:=1 to d do
if ktu=st[i] then kt:=1;
if kt=0 then writeln(ktu,' khong co trong xau')
else writeln(ktu,' co trong xau');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một xâu ký tự S từ bàn phím. Xuất xâu đã nhập. Tạo xâu đảo ngược P từ xâu đã nhập. Xuất xâu P ra màn hình
Use crt;
Var S : String;
P: longint;
Begin
Write('Nhap s: '); readln (S);
For P:=length(S) downto 1 do
Write(P);
Readln;
End.
Đúng 2
Bình luận (0)
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.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một xâu ký tự st có độ dài không quá 100. Hãy thay thế các ký tự "a" hoặc "A" thành ký tự "b" trong xâu st. Đưa kết quả ra màn hình.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='a') or (st[i]='A') then st[i]:='b'
writeln(st);
readln;
end.
Đúng 1
Bình luận (0)