Re: HOW TO FIX THIS IN ADA?

["Martin Dowie" <martin.dowie@gecm.com>]

Are you looking for someone to re-write this specific R.N.G. in Ada? If not,
look up section 'A.5.2 Random Number Generation' of the language reference
manual (try www.adapower.com and select 'Reference').

If someone has told you that Ada is Pascal, then you have been sadly
misinformed
and simply adding a Ada.Text_IO context clause isn't going to work :-)

Munir Albeelbisi <munir.albeelbisi@sympatico.ca> wrote in message
news:6Izk6.161065$Pm2.3005370@news20.bellglobal.com...
> with Ada.Text_IO; use Ada.Text_IO;
>
> PROCEDURE  Random(Output) IS ;
>     seed1 = 5; seed2 = 10000; seed3 = 3000;
>         x, y, z : integer;
>         looop : integer;
>     FUNCTION   Unif return real is
>         tmp : real;
>         Begin
>         x := 171*(x mod 177) - 2*(x div 177);
>         if x<0 then x := x + 30269;
>         y := 172*(y mod 176) -35*(y div 176);
>         if y<0 then y := y + 30307;
>         z := 170*(z mod 178) -63*(z div 178);
>         if z<0 then z := z + 30323;
>         tmp :=  x/30269.0 + y/30307.0 + z/30323.0;
>         Unif := tmp - trunc(tmp);
>         End;  {Unif}
>     BEGIN
>     x := seed1; y := seed2; z := seed3;
>     for looop := 1.. 1000 loop
>         writeln(loop:4, ' ==> ', unif:7:5);
>     END loop;
>   END unif;
>
>