Chủ đề này có 1 trả lời

[thang1308]

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 đó.

[NTL2k1]

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.