Viết chương trình kiểm tra xem chuỗi s mới nhập vào đối xứng hay không ?

0 bình luận về “Viết chương trình kiểm tra xem chuỗi s mới nhập vào đối xứng hay không ?”

1. program kiemtra;

   uses crt;

   var st:string;

          i:byte;

          kt:boolean;

   begin

   clrscr;

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

   kt:=true;

   for i:=1 to length(st) div 2 do

    if st[i]<>st[length(st)-i+1] then kt:=false;

   if kt=true then write(‘Doi xung’)

    else write(‘Khong doi xung’);

   readln

   end.

   Bình luận

2. var str,s:string[100];

         n,i:integer;

   procedure sx( var a,b:char);

   var tam:char;

   begin

    tam:=a;

    a:=b;

    b:=tam;

   end;

   procedure dao(n,i:integer);

    var j:integer;

   begin

      for j:=i+1 to n do

     if str[i]=str[j] then

   begin

      sx(str[j],str[n-i+1]);

        exit

           end;

               end;

   end.

   Bình luận