Yurttas/PL/IL/Ada-95/ProgUnits/A/functions 00 p.adb

 1--
 2-- Copyright (C) 1998
 3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this 
 6-- software and its documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this 
 8-- copyright notice appears in all copies. 
 9-- 
10-- 
11 
12-- date   : January 1, 1998.
13-- author : Salih Yurttas.
14
15-- functions_00_p.adb
16
17
18package body Functions_00_P is
19
20  function F1(x : in Float) return Float is
21  begin
22    return x*x - (2.0*x) - 1.0;
23  end F1;
24
25  function F2(x : in Float) return Float is
26  begin
27    return x*x*x - x + 2.0;
28  end F2;
29
30end Functions_00_P;