floor.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 40 行

.func floor
#include <math.h>
double floor( double x );
.ixfunc2 '&Math' &func
.funcend
.desc begin
The &func function computes the largest integer not greater than
.arg x.
.desc end
.return begin
The &func function computes the largest integer not greater than
.arg x,
expressed as a
.id double.
.return end
.see begin
.seelist floor ceil fmod
.see end
.exmp begin
#include <stdio.h>
#include <math.h>

void main()
  {
    printf( "%f\n", floor( -3.14 ) );
    printf( "%f\n", floor( -3. ) );
    printf( "%f\n", floor( 0. ) );
    printf( "%f\n", floor( 3.14 ) );
    printf( "%f\n", floor( 3. ) );
  }
.exmp output
-4.000000
-3.000000
0.000000
3.000000
3.000000
.exmp end
.class ANSI
.system