From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,7a5193bb70b7caf8,start
X-Google-Attributes: gid103376,public
From: masi@earthlink.net
Subject: Help with Ada 95
Date: 1997/09/30
Message-ID: <3431E010.4DB9@earthlink.net>#1/1
X-Deja-AN: 276962858
Reply-To: masi@earthlink.net
Organization: EarthLink Network, Inc.
Newsgroups: comp.lang.ada
Date: 1997-09-30T00:00:00+00:00
List-Id: <comp.lang.ada>


Hi, I'm taking my first Ada 95 class at my college and am having a
problem  with it.  I have small projects due soon, and need some kind of
instructions.  Could anyone help me?  

Also I'm looking for any good book for Ada.  I use "Programming in Ada
95" by Barnes, but it's not very helpful.  
Thanks in advance.

Masi
Here is two programs I'm supposed to make:


1) function Root (A, B, C : in Float) return Float;
--
-- This returns the root of the equation
--      Ax + B = C
-- if one exists, otherwise it raises a Constraint_Error.
--

2) function DigitSum ( N : Positive ) return Positive;
--
-- This returns the sum of the digits of the number N.
--
-- Example: DigitSum (1532) = 11 (since 1+5+3+2 = 11).