非常简单的PASCAL问题

program Project1;
uses
  SysUtils;
var
   a,b:string;
begin
  while not eof(input) do begin
  readln(a,b);
  if(b=a)then writeln('yes')
  else writeln('no');
  end;
end.

比较输入的a和b是否相等，不管输入什么都是no，字符串是怎么比较的

字符串比较大小 要一位一位比，只要有一位不同 就是不相同~简单写下
lena=length（a）；lenb=length (b);flag=1;if (lena=lenb)  字符长度肯定要一样啊,不然怎么相等beginfor i:=1 to lena doif (a[i]<>b[i])  只要有一位不相等 ，字符串a，b就是补相等了begin flag=0; break;end;end else flag=0;if (flag=1) writeln('yes')else writeln('no');
LZ 明白了吗~~
不管怎么样版本都有问题....汗...都没办法 分成一行一行，不好意思了...

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息