fork download
copy 
  1. with Ada.Integer_Text_Io, Ada.Text_Io;
  2. use Ada.Integer_Text_Io, Ada.Text_Io;
  3.  
  4. procedure Test is
  5. v : Long_Float := 26.0;
  6. v1 : Float := 26.0;
  7. begin
  8.    while (v<=27.0) loop
  9.          Put_Line("V = " & Long_Float'image(v));
  10.         v:=v+0.2;
  11.    end loop;
  12.    while (v1<=27.0) loop
  13.          Put_Line("V1= " & Float'image(v1));
  14.         v1:=v1+0.2;
  15.    end loop;
  16.  
  17. end;
Success #stdin #stdout 0.01s 1684KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
V =  2.60000000000000E+01
V =  2.62000000000000E+01
V =  2.64000000000000E+01
V =  2.66000000000000E+01
V =  2.68000000000000E+01
V =  2.70000000000000E+01
V1=  2.60000E+01
V1=  2.62000E+01
V1=  2.64000E+01
V1=  2.66000E+01
V1=  2.68000E+01
https://ideone.com/pXIhvY
language:
Ada95 (gnat 8.3)
created:
13 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!