Nhập xâu s1,s2 1. Tính chiều dài xâu s1,s2 in ra màn hình 2. In ra màn hình xâu s1,s2 . 3. Nối 2 xâu 4. Tìm xâu dài nhất 5. In ra màn hình xâu đảo n

0 bình luận về “Nhập xâu s1,s2 1. Tính chiều dài xâu s1,s2 in ra màn hình 2. In ra màn hình xâu s1,s2 . 3. Nối 2 xâu 4. Tìm xâu dài nhất 5. In ra màn hình xâu đảo n”

1. program Xau;
   uses crt;
   var  s1,s2,s3,s4,s5,s6,d,s: string;
        i,dem: integer;
   begin
         clrscr;
         write(‘Nhap xau s1: ‘);readln(s1);
         write(‘Nhap xau s2: ‘);readln(s2);
            s:=s1 + s2;
     
        
         writeln(‘Chieu dai xau s1 la: ‘,length(s1));
         writeln(‘Chieu dai xau s2 la: ‘,length(s2));
         writeln(‘Xau s1 la: ‘,s1);
         writeln(‘Xau s2 la: ‘,s2);
         writeln(‘Noi hai xau: ‘,s);
            If length(s1) > length(s2) then writeln(‘Xau dai nhat la s1’) else
              writeln(‘Xau dai nhat la s2’);
            for i:=length(s1) downto 1 do
               s3:= s3 + s1[i];
            for i:=length(s2) downto 1 do
               s4:= s4 + s2[i];
         writeln(‘Xau s1 dao nguoc: ‘,s3);
         writeln(‘Xau s2 dao nguoc: ‘,s4);
            for i:=1 to length(s1) do
                   begin
                d:=upcase(s1[i]);
                s5:= s5 + d;
                   end;
         writeln(‘Xau s1 in hoa: ‘,s5);
            for i:=1 to length(s2) do
                   begin
                d:=upcase(s2[i]);
                s6:= s6 + d;
                   end;
         writeln(‘Xau s2 in hoa: ‘,s6);
            for i:=1 to length(s1) do
               If s1[i] = ‘A’ then dem:=dem+1;
           If dem <> 0 then write(‘Co ki tu A trong xau s1’) else
             write(‘Khong co ki tu A trong xau s1’);
     readln;
   end.

   Bình luận