1 2 double 3 t(a, i) 4 double a; 5 { 6 fortran float sin(), cos(); 7 8 switch(i) { 9 case 0: 10 return (cos(a*(3.141592/180.))); 11 case 1: 12 return (sin(a*(3.141592/180.))); 13 } 14 } 15 16 main() { printf("%g\n", t(90.,0)); } 17