Viết chương trình nhập vào một câu : a)Kiểm tra xem xâu đó có là xâu đối xứng hay ko? b)Chuyển đổi xâu vừa nhập thành xâu in hoa Giúp mk vs ????

0 bình luận về “Viết chương trình nhập vào một câu : a)Kiểm tra xem xâu đó có là xâu đối xứng hay ko? b)Chuyển đổi xâu vừa nhập thành xâu in hoa Giúp mk vs ????”

1. var s: string;

          i, kt: byte;

   Begin

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

      Kt:=1;

      For i:=1 to (length(s) div 2) do

            If s[i] <> s[length(s) – i + 1] 

                  Then kt:=0;

      If kt=1 then write(‘la xau doi xung’)

      Else write(‘khong phai xau doi xung’);

      For i:=1 to length(s) do 

             s[i]:=upcase(s[i]);

      Readln

   End.

   Bình luận

2. var st,s:string; i:byte;  kt:boolean;

   begin

    write(‘nhap xau’); readln(st);

   kt:=true; i:=1; s:=”;

   while (kt=true)and(i<=(length(st) div 2)) do

    begin

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

   i:=i+1; end;

   if kt then write(‘phai’) else write(‘ko’);

   for i:=1 to length(st) do s:=s+ upcase(st[i]);

   write(‘xau in hoa ‘,s);

   readln  end.

   Bình luận