fork download
copy 
  1. with Ada.Command_Line;
  2. with Ada.Text_IO;
  3. with Ada.Integer_Text_IO;
  4. with Ada.Integer_IO; 
  5.  
  6. procedure Drei is
  7. 	subtype Result is Natural range 0 .. 10;
  8. 	type Numbers is array (Integer range <>) of Result;
  9.  
  10. 	Average : integer := 0; 
  11.  
  12. 	function Numbers_From_Command_Line return Numbers is
  13. 		use Ada.Command_Line;
  14. 	begin
  15. 		return Values : Numbers (1 .. Argument_Count) do	
  16. 			for I in 1 .. Argument_Count loop
  17. 				Values (I) := Result'Value (Argument (I));
  18. 			end loop;
  19. 		end return;
  20. 	end Numbers_From_Command_Line;
  21.  
  22. 	Points : constant Numbers := Numbers_From_Command_Line;
  23. begin
  24. 	for I in Points'Range loop
  25. 		Average := Average + Points(I); 
  26. 		--Ada.Integer_Text_IO.Put (Points (I), Ada.Text_IO.Field'First);
  27. 		Ada.Text_IO.New_Line;
  28. 	end loop;
  29.  
  30. 	if Average >= 30 then
  31. 		Ada.Integer_Text_IO.Put(Average);
  32. 		Ada.Integer_IO.New_Line;
  33. 		Ada.Text_IO.Put_line ("Ja"); 
  34.  
  35. 	else 
  36. 		Ada.Integer_Text_IO.Put(Average); 
  37. 		Ada.Integer_IO.New_Line;
  38. 		Ada.Text_IO.Put_line ("Nein");
  39. 	end if; 
  40. end Drei;
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
gcc -c -pipe -O2 test.adb
test.adb:4:06: "Ada.Integer_Io" is not a language defined unit
test.adb:6:11: warning: file name does not match unit name, should be "drei.adb"
gnatmake: "test.adb" compilation error
stdout
copy 
Standard output is empty
https://ideone.com/b0wiu6
language:
Ada95 (gnat 8.3)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!