Ada程序源码编译不过 提示missing string quote
--filename:comp.adbWITH 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 我只是路过打酱油的。
页:
[1]