Re: Problem with Floating Points

[DarthBob88 <darthbob88@gmail.com>]

On Dec 13, 8:19 pm, DarthBob88 <darthbo...@gmail.com> wrote:
> I'm trying to use a Percentage type to show how often a given
> condition occurred; like percent := matches/attempts. The only problem
> is, it keeps outputting 0% for the result percentage. I have been
> unable to get it to change its output, even to another nonsense answer
> like that. Here follows my program, without the irrelevant portions.
>
> with Ada.Text_IO, Ada.Integer_Text_IO;
> use Ada.Text_IO, Ada.Integer_Text_IO;
>
> procedure test is
>         type Percentage is Delta 0.01 range 0.00 .. 100.00;
>         --Runs from 0 to 100%, and goes to two decimal places.
>
>         Successes : Integer := 0;
>         Attempts : Integer := 0;
>         Output : Percentage;
> begin
>
>          loop
>                Attempts := Attempts + 1;
>                --when we get a success
>                Successes := Successes + 1;
>
>                exit when iterator = 1000;
>          end loop;
>          Output := 100.00 * (Successes / Iterator);
>          Put_Line("Attempts: " & Integer'Image(Attempts));
>          New_Line;
>          Put_Line("Successes: " & Integer'Image(Successes));
>          New_Line;
>          Put_Line("Percentage of Successes: " &
> Percentage'Image(Output));
> end Test;
>
> I've been able to get real outputs for Attempts and Successes, but
> nothing at all for Output. I've been looking through every other
> source available, but nothing had an answer for me.
Never mind, it works the way it should now. Apparently, I wasn't going
out to enough places for Successes/Iterator to actually show up as a
number.