fork download

copy

with Text_io, Ada.Integer_Text_Io;
use Text_io,  Ada.Integer_Text_Io;
 
procedure hello is
--type Real is digits <>;
subtype Int is Integer;
 
--subtype Probability is Real;
a : Int;
b : Int;
x : Int;
begin
    put_line("Enter a:");get; 
    put_line("Enter b:");get(b);
    if  a = 0 then 
         if  b = 0  then
              put_line("PT co vo so nghiem");           
         else   
              put_line("PT vo nghiem");
 
         end if;        
     else 
        begin   
            x:=-b/a;
            put("Nghiem cua PT la:");put(c);New_Line;   
        end; 
   end if;    
end hello; 

gnatgcc -c -pipe -O2 prog.adb
prog.adb:4:11: warning: file name does not match unit name, should be "hello.adb"
prog.adb:13:26: no candidate interpretations match the actuals:
prog.adb:13:26: missing argument for parameter "From" in call to "get" declared at a-tiinio.ads:72, instance at a-inteio.ads:18
prog.adb:13:26: missing argument for parameter "Item" in call to "get" declared at a-tiinio.ads:57, instance at a-inteio.ads:18
prog.adb:13:26: missing argument for parameter "File" in call to "get" declared at a-tiinio.ads:52, instance at a-inteio.ads:18
prog.adb:13:26: missing argument for parameter "Item" in call to "get" declared at a-textio.ads:242
prog.adb:13:26: missing argument for parameter "File" in call to "get" declared at a-textio.ads:241
prog.adb:13:26: missing argument for parameter "Item" in call to "get" declared at a-textio.ads:208
prog.adb:13:26: missing argument for parameter "File" in call to "get" declared at a-textio.ads:207
prog.adb:24:16: warning: unary minus expression should be parenthesized here
prog.adb:25:42: "c" is undefined
gnatmake: "prog.adb" compilation error

Standard output is empty