Viết chương trình nhập họ và tên của một người và thực hiện các yêu cầu sau: a. Xóa các kí tự trắng thừa trong xâu (kí tự trắng thừa là kí tự trắng ở đầu, cuối họ tên và nhiều hơn một kí tự

Bình An

Đã trả lời bởi chuyên gia

đã hỏi trong Lớp 12 Tin học

· 00:00 09/02/2024

Đã trả lời bởi chuyên gia

Viết chương trình nhập họ và tên của một người và thực hiện các yêu cầu sau:

a. Xóa các kí tự trắng thừa trong xâu (kí tự trắng thừa là kí tự trắng ở đầu, cuối họ tên và nhiều hơn một kí tự trắng giữa hai từ trong họ tên)

b. Đổi các chữ cái đầu từ trong họ tên thành chữ in hoa

c. Hãy cho biết từ dài nhất trong họ và tên của người đó, nếu có nhiều từ có độ dài bằng nhau thì in ra từ đầu tiên.

d. Cho biết tên được tạo nên từ bao nhiêu chữ cái Tiếng Anh (không phân biệt chữ hoa chữ thường)

Trả Lời

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

2 câu trả lời 172

sharking

1 tháng trước

làm bài

0 bình luận

Đăng nhập để hỏi chi tiết

Quang Minh

2 năm trước

Lời giải:

program Hello;
uses crt;
var ten,s,st:string;
j:char;
i,d,max:integer;
az:array['a'..'z'] of boolean;
begin
clrscr;
write('Nhap ten: '); readln(ten);
while ten[1] = ' ' do delete(ten,1,1);
while ten[length(ten)] = ' ' do delete(ten,length(ten),1);
while pos(' ', ten) > 0 do delete(ten, pos(' ', ten), 1);
ten[1]:= upcase(ten[1]);
for i:= 1 to length(ten) do
begin
if (ten[i] = ' ') then
begin
ten[i + 1]:= upcase(ten[i + 1]);
if max < length(s) then
begin
max:= length(s);
st:= s;
s:='';
end;
end;
if ten[i] <> ' ' then
s:= s + ten[i];
az[lowercase(ten[i])]:= true;
end;
for j:= 'a' to 'z' do
if az[j] = true then inc(d);
writeln('Ten da nhap: ', ten);
writeln('Tu dai nhat: ', st);
writeln('So luong chu cai: ', d);
readln;
end.

...Xem thêm

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

2 câu trả lời 172

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 12