Câu hỏi:
28/06/2023 492
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)
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)
Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!
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.
Hot: 500+ Đề thi thử tốt nghiệp THPT các môn, ĐGNL các trường ĐH... file word có đáp án (2025). Tải ngay
- Sổ tay Giáo dục Kinh tế & Pháp luật 12 (chương trình mới) ( 18.000₫ )
- Sổ tay Địa Lí 12 (chương trình mới) ( 18.000₫ )
- Sổ tay lớp 12 các môn Toán, Lí, Hóa, Văn, Sử, Địa, KTPL (chương trình mới) ( 36.000₫ )
- Bộ đề thi tốt nghiệp 2025 các môn Toán, Lí, Hóa, Văn, Anh, Sinh, Sử, Địa, KTPL (có đáp án chi tiết) ( 36.000₫ )
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Lời giải
Lời giải:
Đáp án đúng: D
Xem, sửa, bổ sung và xóa dữ liệu
Lời giải
Lời giải:
Đáp án D.
Microsoft Excel không phải là hệ quản trị cơ sở dữ liệu quan hệ.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.
Lời giải
Bạn cần đăng ký gói VIP ( giá chỉ từ 199K ) để làm bài, xem đáp án và lời giải chi tiết không giới hạn.