Câu hỏi:
28/06/2023 363Viế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)
Sách mới 2k7: Tổng ôn Toán, Lí, Hóa, Văn, Sử, Địa…. kỳ thi tốt nghiệp THPT Quốc gia 2025, đánh giá năng lực (chỉ từ 110k).
Quảng cáo
Trả lời:
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.
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 2:
Câu 4:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Câu 6:
263 câu Trắc nghiệm tổng hợp ôn thi tốt nghiệp THPT môn Tin học Chủ đề F. Giải quyết vấn đề với sự trợ giúp của máy tính có đáp án
15 câu Trắc nghiệm Tin học 12 KNTT Bài 7: HTML và cấu trúc trang web
Đề thi học kì 1 Tin học 12 Kết nối tri thức có đáp án- Đề 1
15 câu Trắc nghiệm Tin học 12 KNTT Bài 10: Tạo liên kết
15 câu Trắc nghiệm Tin học 12 KNTT Bài 11: Chèn tệp tin đa phương tiện và khung nội tuyến vào trang web
15 câu Trắc nghiệm Tin học 12 KNTT Bài 9: Tạo danh sách, bảng
15 câu Trắc nghiệm Tin học 12 KNTT Bài 8: Định dạng văn bản
15 câu Trắc nghiệm Tin học 12 Cánh diều Bài 1: Làm quen với ngôn ngữ đánh dấu siêu văn bản
về câu hỏi!