Bài 12: Kiểu xâu

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

Viết chương trình nhập vào một xâu gồm các ký tự là mẫu tự thường, hoa và các chữ số từ bàn phím. Chương trình thực hiện các công việc sau:

a.      Xuất ra dãy chỉ chứa các ký tự là mẫu tự thường và chuyển sang chữ hoa.

b.      Xuất ra dãy số chỉ chứa các chữ số đã được đảo ngược.

c.      Tìm chữ số lớn nhất trong xâu.

Minh Lệ
18 tháng 1 2021 lúc 19:40

Program HOC24;

var s: string;

tg,d,max,i: byte;

code: integer;

begin

write('Nhap xau : '); readln(s);

// cau a

for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(upcase(s[i]));

//------

writeln;

//-cau b

for i:=length(s) downto 1 do if s[i] in ['0'..'9'] then write(s[i]);

//------

writeln;

//---cau c

d:=0;

for i:= 1 to length(s) do

if s[i] in ['0'..'9'] then 

begin

val(s[i],tg,code);

if tg>max then max:=tg;

d:=d+1;

end;

if d=0 then write('Khong co chu so trong day') else write('Chu so lon nhat la : ',max);

readln 

end.

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

uses crt;

var st,st1:string;

d,i,d1,max,x,y:integer;

begin

clrscr;

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

d:=length(st);

writeln('Day cac ki tu thuong doi sang chu hoa la: ');

for i:=1 to d do 

  if st[i] in ['a'..'z'] then write(upcase(st[i]):4);

st1:=''

for i:=1 to d do 

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

d1:=length(st1);

for i:=d1 downto 1 do 

  write(st1[i]:4);

writeln;

max:=0;

for i:=1 to d1 do 

  begin

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

if max<x then max:=x;

end;

writeln('Chu so lon nhat trong xau la: ',max);

readln;

end.


Các câu hỏi tương tự
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
NGUYỄN VIẾT LUẬN
Xem chi tiết
Lê Hoa
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Long Nhi
Xem chi tiết
Nguyên văn A
Xem chi tiết