首页 > 试题广场 >

const max = 100; var i,...

[填空题]
const
  max = 100;
var
  i, length1, length2 : longint;
  s1, s2 : string[max];
begin
  s1 := 'I have a dream.';
  s2 := 'I Have A Dream.';
  length1 := length(s1);
  length2 := length(s2);
  for i := 1 to length1 do
    if (s1[i] >= 'a') and (s1[i] <= 'z') then
      s1[i] := chr(ord(s1[i]) - ord('a') + ord('A'));
  for i := 1 to length2 do
    if (s2[i] >= 'a') and (s2[i] <= 'z') then
      s2[i] := chr(ord(s2[i]) - ord('a') + ord('A'));
  if s1 = s2 then
    writeln('=')
  else if s1 > s2 then
    writeln('>')
  else
    writeln('<');
end.

输出:1

这道题你会答吗?花几分钟告诉大家答案吧!