论坛 › 综合交流区 › Ada程序编译不过 提示misssing string quote

小妖 发表于 2013-1-6 14:37:42

Ada程序编译不过 提示misssing string quote

--filename:comp.adb
WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;

PROCEDURE Comp IS
   FUNCTION Compare (A:Integer; B:Integer) RETURN Integer IS
   BEGIN
      RETURN (A - B);
   END Compare;
   X,Y,Result:Integer;
BEGIN
   Put ("Enter A:"); Get (X);
   Put ("Enter B:''); Get (Y);
      Result :=Compare (X,Y);
      CASE Result IS
         WHEN Integer'First..-1 =>Put_Line ("A<B.");
         WHEN 0 =>Put_Line ("A = B.");
         WHEN 1..Integer'Last =>Put_Line ("A>B.");
         WHEN Other =>NULL;
      END CASE;
   END Comp;

红色的那一行不过谦求原因
编译器错误提示: 13:29: missing string quote

yeahhook 发表于 2013-3-15 11:03:50

。。。。发现论坛里第一个学Ada的

查看完整版本: Ada程序编译不过 提示misssing string quote