Bài 1: Viết lại hàm Cho hai xâu a và b, lồng xâu a vào xâu b bắt đầu từ vị trí n (không sử dụng hàm insert() )

0 bình luận về “Bài 1: Viết lại hàm Cho hai xâu a và b, lồng xâu a vào xâu b bắt đầu từ vị trí n (không sử dụng hàm insert() )”

1. uses crt;
   var a,b,s:string; n:longint;
   begin
   clrscr;
      write(‘Nhap xau a: ‘);readln(a);
      write(‘Nhap xau b: ‘);readln(b);
      write(‘Nhap n: ‘);readln(n);
      s:=copy(a,1,n)+b+copy(a,n+1,length(a)-n);
      writeln(s);
   readln
   end.

   Bình luận

2. program chen;
   uses crt;
   var a,b,s:string;
       n,i:integer;
   begin
           clrscr;
           write(‘Nhap xau a: ‘);  readln(a);
           write(‘Nhap xau b: ‘);  readln(b);
           write(‘Nhap n: ‘);      readln(n);
           s:=”;
           for i:=n to length(b) do
                   begin
                           s:=s+b[i];
                           b[i]:=’ ‘;
                   end;
           while b[length(b)]=’ ‘ do delete(b,length(b),1);
           b:=b+a+s;
           write(b);
           readln;
   end.

   Bình luận