Bài 12: Kiểu xâu

Hakai

viết chương trình nhập vào một xâu, thực hiện

1) in ra màn hình mỗi từ trên mỗi dòng

2) xóa các kí tự trống trong xâu

3) in hoa xâu vừa nhập

4) in xâu đảo ngược 

Ai giải giúp em với ạ

Minh Lệ
26 tháng 2 2021 lúc 17:39

Bài 3:

Program HOC24;

var s: string;

i: byte;

begin

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

for i:=1 to length(s) do s[i]:=upcase(s[i]);

write('Xau sau khi in hoa : ',s);

readln

end.

Bài 4:

Program HOC24;

var s: string;

i: byte;

begin

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

write('Xau sau khi dao nguoc: ');

for i:=length(s) downto 1 do write(s[i]);

readln

end.

Bình luận (0)
Minh Lệ
26 tháng 2 2021 lúc 17:39

Bài 1:

Program HOC24;

var s: string;

i: byte;

begin

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

while s[1]=#32 do delete(s,1,1);

while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);

while s[length(s)]=#32 do delete(s,length(s),1);

for i:=1 to length(s) do

if s[i]=#32 then writeln(s[i]) else write(s[i]);

writeln;

readln

end.

Bài 2:

Program HOC24;

var s: string;

i: byte;

begin

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

while s[1]=#32 do delete(s,1,1);

while pos(#32,s)<>0 do delete(s,pos(#32,s),1);

while s[length(s)]=#32 do delete(s,length(s),1);

writeln('Xau sau khi xoa ki tu trong: ',s);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:29

Bài 4: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

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

d:=length(st);

for i:=d downto 1 do 

  write(st[i]);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Anh Thư
Xem chi tiết
Tiên Tiên
Xem chi tiết
Nguyễn Chi
Xem chi tiết
Nguyen Ngoc Thien
Xem chi tiết
Thọ Phạm
Xem chi tiết
Huy Lê Đình
Xem chi tiết
Long Nhi
Xem chi tiết
dung nguyễn
Xem chi tiết
Trâm Phạm
Xem chi tiết