Bài 12: Kiểu xâu

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Olives

Cho một chuỗi gồm cả chữ và số.

Yêu cầu:xuất ra màn hình các dòng chữ số riêng, chữ riêng.

In ra các số có trong dãy thỏa mãn đk:Các số bé nhất đứng trc, kế tiếp là các số lớn nhất, tiếp theo là các số còn lại không thay đổi giá trị.

Nguyễn Lê Phước Thịnh
26 tháng 1 2021 lúc 21:31

uses crt;

var st,st1,st2:string;   

i,d,dem,kt,j,x:integer;   

a,b:array[1..255]of integer;

begin

clrscr;

write('Nhap chuoi:'); readln(st);

st1:=''

st2:=''

d:=length(st);

for i:=1 to d do 

begin     

if st[i] in ['0'..'9'] then st1:=st1+st[i]     

else if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then st2:=st2+st[i]; 

end;

for i:=1 to length(st1) do 

val(st1[i],a[i],x);

b[1]:=a[1];

dem:=1;

for i:=1 to length(st1) do 

begin     

kt:=0;     

for j:=1 to dem do       

if a[i]=b[j] then kt:=1;     

if kt=0 then       

begin           

inc(dem);           

b[dem]:=a[i];       

end; 

end;

writeln('Cac so co trong day la: ');

for i:=1 to dem do 

write(b[i]:4);

writeln;

writeln('Cac chu co trong day la:');

for i:=1 to length(st2) do 

write(st2[i]:4);

readln;

end.

Bùi Anh Tuấn
26 tháng 1 2021 lúc 20:03

CTV: Drizze bên olm à


Các câu hỏi tương tự
ayekn2l
Xem chi tiết
Kumatho
Xem chi tiết
Đỗ Trần Nam Phương
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết
Harunastu
Xem chi tiết
Anh Thư
Xem chi tiết
Ji Han
Xem chi tiết
Không Tên
Xem chi tiết
Trần văn tuấn
Xem chi tiết