不能用于文件

Question

请看看下面的代码

Formula.ads

package Formula is 
    procedure CalculateFormula; 
end Formula; 

Formula.adb

with Ada.Text_IO; use Ada.Text_IO; 
with Formula; use Formula; 

package body Formula is 
    procedure CalculateFormula is 

     package fom_io is new Ada.Float_Text_IO(Float); 
     use fom_io; 

     u : Float; 
     t : Float; 
     a : Float; 
     answer : Float; 

    begin 
     put_line("Enter 'U'"); 
     get(u); 

     put_line("Enter 'T'"); 
     get(t); 

     put_line("Enter 'A'"); 
     get(a); 

     answer = (u*t)+ 0.5(a(t*t)); 

     put("Answer is: "); 
     put(answer,Fore => 1,Aft => 1,Exp => 1); 
    end CalclualeFormula; 
end Formula; 

当我运行这段代码生成代码，我收到以下错误

gnatmake -d -PC:\Users\yohan\Documents\Ada\Formula\formula.gpr 
gcc -c -I- -gnatA C:\Users\yohan\Documents\Ada\Formula\formula.ads 
cannot generate code for file formula.ads (package spec) 
gnatmake: "C:\Users\yohan\Documents\Ada\Formula\formula.ads" compilation error 

[2013-04-06 03:18:22] process exited with status 4 (elapsed time: 00.22s) 

我对Ada很新。开始编码几个小时后。请帮我摆脱上述问题。谢谢。

编辑

formula.gpr

project Formula is 

    for Main use ("formula.ads"); 

end Formula; 

Answer 1

的GPR文件显示你正在试图用一个包规范作为主要程序单元 - 这是行不通的。

两种方式来解决这个问题：最简单的一种是让“CalculateFormula”一个独立的主程序文件“calculateformula.adb”，并设置这个项目中的文件：

for Main use ("calculateformula.adb"); 

但是，如果你想看看软件包是如何工作的，有一种“更好”的方式（因为它可以让你了解软件包的作用和使用方式......）

软件包是可重复使用的组件：软件包规格是你需要的看到为了使用它们......但你实际上在另一个程序中使用它们。因此，在这种情况下，你将创建一个主程序

with Formula; use Formula; 

    procedure MyMain is 
    begin 
     CalculateFormula; 
    end MyMain; 

，并在.gpr后文件，

for Main use ("mymain.adb"); 

然后编译器会自动编译正确的包，发现鲨鱼已经指出的其他问题出。

你真的不需要单独的Main，就像“hello world”示例所示。然而，这些微不足道的“主要子程序”（使用正确的Ada术语）并不是那么不寻常，特别是对于稍后在更复杂的应用程序中使用单元测试程序包等目的。

Answer 2

这是令人费解，因为有一些大的错误，编译器应该是标记，如：

package fom_io is new Ada.Float_Text_IO(Float); 

这是不with ED和

answer = (u*t)+ 0.5(a(t*t)); 

因为：

1. =不是赋值运算符;您需要:=。
2. 0.5（XXXX）无效乘法。

另外，在Ada中有指数运算，因此t ** 2可以代替t * t。

---

formula.adb

with 
Ada.Float_Text_IO, 
Ada.Text_IO; 

use 
Ada.Text_IO; 

package body Formula is 
    procedure CalculateFormula is 

     use Ada.Float_Text_IO; 

     u, t, a, answer : Float; 

    Procedure Prompt(Item : out Float; Name : String) is 
    begin 
     put_line("Enter '"& Name &"'"); 
     get(Item); 
    end prompt; 
    begin 

    prompt(u, "U"); 
    prompt(t, "T"); 
    prompt(a, "A"); 

     answer:= (u*t) + 0.5*(a*t**2); 

     put("Answer is: "); 
     put(answer,Fore => 1,Aft => 1,Exp => 1); 
     New_Line; 
    end CalculateFormula; 
end Formula; 

这纠正你有语法错误。另一个答案似乎是正确的，因为[“不能生成代码”错误]似乎是gpr文件的问题，而不是源本身。