Viết chương trình nhập vào hai xâu, xoá trong xâu thứ nhất những kí tự giống xâu thứ hai.

0 bình luận về “Viết chương trình nhập vào hai xâu, xoá trong xâu thứ nhất những kí tự giống xâu thứ hai.”

1. var s1, s2: string;

         i: byte;

   Begin

       Write(‘nhap xau s1: ‘); readln(s1);

       Write(‘nhap xau s2: ‘); readln(s2);

       i:=1;

       While i<=length(s1) do

           If pos(s1[i], s2)<>0 then

           delete(s1, i, 1) else inc(i);

       Write(‘ket qua: ‘, s1);

       Readln

   End.

   Bình luận

2. program xoa;

   Uses crt;

   var s1,s2:string;

        i:byte;

   begin

          clrscr;

          write(‘Nhap xau thu nhat: ‘);  readln(s1);

          write(‘Nhap xau thu hai: ‘);   readln(s2);

          i:=1;

          while i<=length(s1) do

                 if pos(s1[i],s2)<>0 then delete(s1,i,1)

                 else i:=i+1;

          wrie(‘Xau thu nhat sau khi lam viec la: ‘,s1);

          readln;

   end.

   Bình luận