Viết chương trình nhập vào 1 xâu họ tên (xâu chuẩn). In lên màn hình Họ, Tên, Họ đệm của tên đó.
Viết chương trình nhập vào 1 xâu họ tên (xâu chuẩn). In lên màn hình Họ, Tên, Họ đệm của tên đó.
Bắt đầu bởi thang1308, 07-09-2016 - 18:01
#1
Đã gửi 07-09-2016 - 18:01
Hôm nay thi xong. Căn bản là mệt!!!
#2
Đã gửi 21-09-2016 - 20:00
Viết chương trình nhập vào 1 xâu họ tên (xâu chuẩn). In lên màn hình Họ, Tên, Họ đệm của tên đó.
program xau_hoten;
uses crt;
var st,ten:string;
var k,vt,d,i:integer;
begin
clrscr;
write('Nhap ten:');readln(st);
writeln;
write('Ho: ');
for i:=1 to length(st) do
if st[i]<>#32 then write(st[i]) else
begin
k:=i+1;
break;
end;
writeln;
for i:=1 to length(st) do
if st[i]=#32 then vt:=i+1;
d:=length(st)-vt+1;
ten:=copy(st,vt,d);
delete(st,vt,d);
writeln('Ten: ',ten);
write('Ho dem: ');
for i:=k to vt-2 do
write(st[i]);
readln
end.
- thang1308 yêu thích
Bình tĩnh - Tự tin - Chiến thắng
Không phải là tôi quá thông minh, chỉ là tôi chịu bỏ nhiều thời gian hơn với rắc rối .
Cứ làm việc chăm chỉ trong im lặng - Hãy để thành công trở thành tiếng nói của bạn .
2 người đang xem chủ đề
0 thành viên, 2 khách, 0 thành viên ẩn danh