viết chương trình có sử dụng chương trình con. Nhập vào hai xâu kí tự s1, s2. Tính chiều dài mỗi xâu. Chèn xâu S1 vào xâu S2.
(pascal)
Quảng cáo
1 câu trả lời 228
2 năm trước
program ChenXau;
uses
SysUtils;
procedure ChenXauS1VaoS2(var s1, s2: string);
begin
s2 := Copy(s2, 1, Length(s2) div 2) + s1 + Copy(s2, (Length(s2) div 2) + 1, Length(s2));
end;
var
s1, s2: string;
begin
Write('Nhap vao xau s1: ');
ReadLn(s1);
Write('Nhap vao xau s2: ');
ReadLn(s2);
WriteLn('Chieu dai cua xau s1: ', Length(s1));
WriteLn('Chieu dai cua xau s2: ', Length(s2));
ChenXauS1VaoS2(s1, s2);
WriteLn('Xau s2 sau khi chen s1: ', s2);
end.
Chau Diep Ha
· 2 năm trước
e chạy chương trình ko đc
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!