ten:string
for a:=1 to length(ten);
if ten[a] = ' ' then b:= a;
for c:= 1 to b then begin writeln('phần họ: ');writeln(ten[b]);
for d:= b+1 to length(ten) do begin writeln('phần ten^: ');writeln(ten[d]);
mong các vị chỉ giáo!
tui có 1 bài mới : nhập vào tên 1 người rồi chỉnh sửa:
vd:
nguyễn anh Nam => Nguyễn Anh Nam;
___________________________
đứng xa mới thấy được toàn cảnh
[=========> Bổ sung bài viết <=========]
tên cần chỉnh sửa có thể có nhiều dấu cách giữa các từ, ở đầu và cuối chuỗi,
em mới xong lớp 7 mong các vị chỉ giáo
Được gửi bởi
ktvnguyenchien
Bài này là một bài chuẩn hóa chuỗi.
Mình xin đươc post luôn vô đây nghen.
Code:
ten:string;
....
i:=1;
While i<length(s) do
Begin
If a[i]=' ' then
whitle s[i+1]=' ' do delete(s,i+1,1);
i:=i+1
s[i]=upcase(s[i]);
End;
Write(s);
Các bạn nên gõ chương trình trong cặp [code][/ code] cho dễ nhìn.
Bookmarks