home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BURKS 2
/
BURKS_AUG97.ISO
/
BURKS
/
LANGUAGE
/
ADA
/
LOVELACE
/
think.adb
< prev
next >
Wrap
Text File
|
1996-10-01
|
245b
|
12 lines
with Ada.Float_Text_IO;
use Ada.Float_Text_IO;
procedure Think is
A, B : Float := 0.0; -- A and B initially zero; note the period.
I, J : Integer := 1;
begin
A := B + 7.0;
I := J * 3;
B := Float(I) + A;
Put(B);
end Think;