Cho một xâu a trích ra một xâu con của xâu a gồm n ký tự bắt đầu từ vị trí m (n,m nhập từ bàn phím). Nhớ là không dùng hàm copy() nhá !!!

0 bình luận về “Cho một xâu a trích ra một xâu con của xâu a gồm n ký tự bắt đầu từ vị trí m (n,m nhập từ bàn phím). Nhớ là không dùng hàm copy() nhá !!!”

1. program trich_xau;

   uses crt;

   var a,s:string;

         n,m,i:integer;

   begin

         clrscr;

         write(‘Nhap xau a: ‘);   readln(a);

         write(‘Nhap n: ‘);   readln(n);

         write(‘Nhap m: ‘);   readln(m);

         s:=”;

         for i:=m to m+n-1 do

               s:=s+a[i];

         write(‘Xau duoc trich la: ‘,s);

         readln;

   end.

   Bình luận

2. Không copy thì delete nhá.

   uses crt;
   var a:string; n,m:longint;
   begin
   clrscr;
       write(‘Nhap mot xau a: ‘);readln(a);
       write(‘Nhap n,m: ‘);readln(n,m);
       delete(a,1,m-1);
       delete(a,n+m-1,length(a)-(n+m-1)+1);
       writeln(a);
   readln
   end.

   Dùng for:

   uses crt;
   var a,s:string; n,m,i:longint;
   begin
   clrscr;
       write(‘Nhap mot xau a: ‘);readln(a);
       write(‘Nhap n,m: ‘);readln(n,m);
       for i:=m to m+n do 
          s:=s+a[i];
      writeln(s);
   readln
   end.

   Bình luận