Question

我正在尝试检查两个字符串是否相同，并且我一直收到一个错误，指出操作数不正确。＆＃34; =＆＃34;的两面是StateAbbreviation类型，哪里是错误？

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure ElectionPrediction is
        MaxCandidates: constant Integer := 100;
        subtype StateAbbreviation is String (1..2);
        subtype Initials is String (1..2);
        type CandidateInfo is record
                CandidateInitials:  Initials;
                CandidateScore: Integer;
        end record;

        type ScoreArray is array (1..MaxCandidates) of CandidateInfo;

        Score: ScoreArray;
        CurrentState, HomeState: StateAbbreviation;
        CandidateName: Initials;

        function CalculatePointsFromState(CurrentState: StateAbbreviation; CandidateState: StateAbbreviation) return Integer is
                Total: Integer := 0;
                temp: Integer := 0;

        type ScoreArray is array (1..MaxCandidates) of CandidateInfo;
        type NewEngland is array (1..6) of StateAbbreviation;
        type NorthEast is array (1..5) of StateAbbreviation;
        type SouthEast is array  (1..12) of StateAbbreviation;
        type Lakes is array  (1..6) of StateAbbreviation;
        type Central is array (1..8) of StateAbbreviation;
        type West is array (1..8) of StateAbbreviation;
        type Pacific is array (1..5) of StateAbbreviation;

        begin

                NewEngland := ("ME", "NH", "VT", "MA", "CT", "RI");
                NorthEast := ("NY", "PA", "NJ", "DE", "MD");
                SouthEast := ("VA", "NC", "SC", "GA", "FL", "AL", "MS", "TN", "KY", "WV", "AR", "LA");
                Lakes := ("OH", "MI", "IN", "IL", "WI", "MN");
                Central := ("IA", "MO", "ND", "SD", "NE", "KS", "OK", "TX");
                West := ("MT", "WY", "CO", "NM", "AZ", "UT", "ID", "NV");
                Pacific :=("WA", "OR", "CA", "AK", "HI");

                if CandidateState = CurrentState then Total := Total + 50;
                end if;
                for I in NewEngland'range loop
                        **if CurrentState = NewEngland(NewEngland'First + I) then temp := temp + 1; end if;
                        if CandidateState = NewEngland(NewEngland'First + I) then temp := temp + 1; end if;**
                end loop;
                if temp = 2 then return  Total + 20;
                end if;

                return 0;
        end CalculatePointsFromState;

end ElectionPrediction;

Answer 1

代码中的早期错误会提供

等消息

39.       NorthEast := ("NY", "PA", "NJ", "DE", "MD");
          |
    >>> invalid use of subtype mark in expression or call

因为你已经定义了

29.       type NorthEast is array (1..5) of StateAbbreviation;

NorthEast是（子）类型，而不是变量！而这个严重的错误使编译器混淆了以后的错误信息没有尽可能多的意义。

您可能会考虑为任意长度的StateAbbreviation数组创建一个类型

type StatesArray is array (Positive range <>) of StateAbbreviation;

然后创建特定的区域数据（常量：你不希望你的程序错误地覆盖它们）这种类型的数组

NewEngland : constant StatesArray := ("ME", "NH", "VT", "MA", "CT", "RI”);
NorthEast  : constant StatesArray := ("NY", "PA", "NJ", "DE", "MD");
...

之后其余的代码将编译好。

＆＃34;操作数=＆＃34; ada的操作数类型无效

1 个答案: