kyle
/
sandbox
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add two examples from ch2.

This commit is contained in:
Kyle Isom 2019-09-16 08:59:50 -07:00
parent 426529e956
commit b558787bf6
2 changed files with 49 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
prada2012/ch02/print_roots.adb Normal file
View File

@ -0,0 +1,26 @@
with Ada.Text_IO;
with Ada.Float_Text_IO;
with Ada.Numerics.Generic_Elementary_Functions;
procedure Print_Roots is
use Ada.Text_IO;
use Ada.Float_Text_IO;
package Numerics is new Ada.Numerics.Generic_Elementary_Functions(Float);
use Numerics;
X: Float;
begin
Put_Line("Roots of various numbers");
New_Line(1);
loop
Get(X);
exit when X = 0.0;
Put("Root of "); Put(X); Put(" is ");
if X < 0.0 then
Put("not calculable.");
else
Put(Sqrt(X));
end if;
New_Line;
end loop;
end Print_Roots;

23
prada2012/ch02/print_roots2.adb Normal file
View File

@ -0,0 +1,23 @@
-- print_roots2 demonstrates runtime exceptions.
with Ada.Text_IO;
with Ada.Float_Text_IO;
with Ada.Numerics.Generic_Elementary_Functions;
procedure Print_Roots is
use Ada.Text_IO;
use Ada.Float_Text_IO;
package Numerics is new Ada.Numerics.Generic_Elementary_Functions(Float);
use Numerics;
X: Float;
begin
Put_Line("Roots of various numbers");
New_Line(1);
loop
Get(X);
exit when X = 0.0;
Put("Root of "); Put(X); Put(" is ");
Put(Sqrt(X));
New_Line;
end loop;
end Print_Roots;