So sánh 2 xâu A=“học sinh” B=“học sinh 11”

program phuongt;

uses crt;

  var a, b: string;

        x, y: integer;

begin

         clrscr;

         a:='hoc sinh';

         b:='hoc sinh 11';

         x:=length(a);

         y:=length(b);

         if x>y then write('Xau A co ki tu nhieu hon xau B') else

              if x<y then write('Xau B co ki tu nhieu hon xau A') else

                     write('Hai xau A va B co ki tu bang nhau');

         readln

end.

So sánh xâu trong pascal là so sánh mã ASCII của nó

A="hoc sinh"   B="hoc sinh 11"

Khi ta so sánh đến chứ h trong từ sinh thì nó vẫn bằng nhau, sau đó xâu A đã hết xâu mà xâu B vẫn còn nên xâu B lớn hơn xâu A.