ex01.dvi

Size: px

Start display at page:

Download "ex01.dvi"

ことこりゅうとう
4 years ago
Views:

1 , C () /******************************* * $Id: ex_0_0.c,v :37:00+09 naito Exp $ * * *******************************/ #include <stdio.h> int main(int argc, char **argv) { double x = 0., y = 0.0 ; int n ; } for(n=0;n<0;n++) y += x ; printf("y = %f\n", y) ; if (y ==.0) printf ("y equals to.0\n") ; else printf ("\n") ; printf("y = %.6f\n", y) ; return 0 ; gcc ex_0_0.c -o ex_0_0./ex_0_0 y = y = double. float. 0.,.0E- double, float 0. 0.F,.0E-F.

2 2 C (2) /******************************* * $Id: ex_0_0_.c,v :37:07+09 naito Exp $ * * *******************************/ #include <stdio.h> int main(int argc, char **argv) { float x = 0.F, y = 0.0F ; int n ; } for(n=0;n<0;n++) y += x ; printf("y = %f\n", y) ; if (y ==.0) printf ("y equals to.0\n") ; else printf ("\n") ; printf("y = %.8f\n", y) ; return 0 ; y = y =

3 3 Java // // $Id: ex_0_0.java,v :38:59+09 naito Exp $ // import java.io.* ; /** * Hisashi Naito */ public class ex_0_0 { public static void main (String args[]) throws IOException { double x = 0., y = 0.0 ; int n ; } } for(n=0;n<0;n++) y += x ; System.out.println("y = " + y) ; if (y ==.0) System.out.println("y equals to.0") ; else System.out.println("") ; javac ex_0_0.java java ex_0_0 y = double. float. 0.,.0E- double, float 0. 0.F,.0E-F. y =

4 4 Fortran C $Id: ex_0_0.f,v :7:9+09 naito Exp $ C PROGRAM EX_0_0 REAL X, Y INTEGER N X = 0. ; Y = 0.0 ; DO N=,0, Y = Y + X ENDO WRITE(*,60) Y =, Y IF (Y.EQ..0) THEN PRINT *, Y EQUALS TO.0 ELSE PRINT *, Y DOES NOT EQUALS TO.0 ENDIF 60 FORMAT(A,F0.8) STOP END g77 ex_0_0.f./ex_0_0 y = real. double precision. 0.,.0E- real, double precision 0. 0.D0,.0D-. y =

5 5 OCaml (* ex_0_0.ml *) (* $Id: ex_0_0.ml,v :57:54+09 naito Exp $ *) (* *) let ex_0_0 () = let x = 0. and y = ref 0.0 in for n = to 0 do y := x +.!y done ; Printf.printf "%f\n"!y ; if (!y ==.0) then Printf.printf "y equals to.0\n" else Printf.printf "\n"; Printf.printf "%.6f\n"!y ; ;; ex_0_0() ;; ocamlc ex_0_0.ml ocamlc ex_0_0.cmo -o./ex_0_0./ex_0_ OCaml float. OCaml.

6 6 Pascal { $Id: ex_0_0.p,v :34:26+09 naito Exp $ } program ex_0_0 (output); var x, y : real ; n : integer ; begin x := 0. ; y := 0.0 ; for n := to 0 do y := y + x ; writeln ( y =, y) ; if (y =.0) then writeln( y equals to.0 ) else writeln( ); end. gpc ex_0_0.p -o ex_0_0./ex_0_0 y = e+00 Pascal real. Gnu Pascal real.

7 7 PostScript % $Id: ex_0_0.ps,v :50:43+09 naito Exp $ % /X { 0. } def /Y { 0.0 } def Y 0 { pop X add } for == gs -dnodisplay -dbatch -q ex_0_0.ps PostScript. Mathematica (* $Id: ex_0_0.math,v :2:5+09 naito Exp $ *) (* *) x := 0. ; y := 0.0 ; For[i=0,i<0,i++,y=y+x]; Print[N[y,00]]; If[y ==.0, Print["Y equals to.0"], Print["Y does not equals to.0"] ]; math -batchinput -batchoutput < ex_0_0.math "Y equals to.0" Mathematica,,.

8 ,, ,

9 9 lim ( + n /n)n., lim ( + n /n)n = e, e, n e e e e e e e e e e e e e e e e e e e ,. lim ( + n /n)n = (float), (float), n (double), (double), pow

10 0, (+/n) n e ( + /n) n 3.5 "method" e-05.5 e e+06 e+07 e+08 e e+06 e+07 e "method2" e-05.5 e e+06 e+07 e+08 e e+06 e+07 e "method3" e-05.5 e e+06 e+08 e+0 e+2 e+4 e+6 e e+06 e+08 e+0 e+2 e+4 e "method4" e-05.5 e e+06 e+08 e+0 e+2 e+4 e+6 e e+06 e+08 e+0 e+2 e+4 e+6

11 e-05 e-06 e e+06 e+07

12 2.0 0, 0.0.,. lim ( + n /n)n, n, (+/n) n, gnuplot..,., Solaris unsigned long 8, Linux 4. Linux unsigned long long 8. lim n n/n lim sin(x)/x,., x 0.. C pow, gcc -Wall -ansi -pedantic foo.c -lm. -lm., IEEE754,. C, Java, Fortran, OCaml, Pascal, PostScript.

ex01.dvi

ex01.dvi ,. 0. 0.0. C () /******************************* * $Id: ex_0_0.c,v.2 2006-04-0 3:37:00+09 naito Exp $ * * 0. 0.0 *******************************/ #include int main(int argc, char **argv) double