//p33.c  ---  - 用了立委工程轉包概念: 另寫function做輸入 !
// 請測試這成式並且找出問題出在哪裡?
// 真的有問題喔!
// 好啦, 縮小範圍, 問題在 getLong 函數內的 scanf 啦
// 會使得最後最後輸入的沒有算進去! Why? Why? Why?
// 所以老師早就跟你說不要用 scanf 你都不聽!
// 請回頭看看之前 p31.c 用 fgets 搭配 atol 是沒有問題的!
//  Try to write a function(函數) long getLong( ); to read a Long int
//  然後每次要讀取一個整數就 “叫” (Call) 它幫忙做 !
#include <stdio.h>
#include <stdlib.h>
  //  (注意)  atol( ), atoi( ),  以及 atof( ) 都宣告在 <stdlib.h>
long n, nBig; // how many data?  nBig: how many bigger than average ?
long getLong(void);  // 先宣告(聲明)會寫一個 getLong( ) function �
void statistics(void);  // 聲明會寫一個沒有參數的function 叫做 statistics
long x, a[1234]; // 此題規定至少 999 個元素; x 是暫存用的
double sum, s2, avg, variance, std; // 和, 平方和, 平均, 變異數, 標準差
int main(  ) {   // 大多數 main program 都這樣開頭
     n = nBig = 0; sum = s2 = 0.0;
     x = getLong( );  // 透過 getLong( ) 讀取整數到 x
     while(x != -1) {   //   (注意)  規定 -1 是代表結束
         printf("Got %ld\n", x);
         if( feof(stdin) ) break;  // 若是 EOF 也要停 ! (注意) stdin 是鍵盤
          // 還有啊, 若已經 EOF 發生, getLong( ) 回傳來的也是錯的 !!!
         a[n] = x; //  把 x 放入 a[ ], 
         sum += x;
         ++n;   // 既然存入 array, 統計的事等下 Call function statistics 作
         x = getLong( );  // 透過 getLong( ) 讀取整數到 x
     } // while
     avg = sum/n;
     printf("Total %d data read.\nAverage=%7.2f\n", n, avg);  
     statistics( ); // 統計的事就交給它 
     // 想辦法暫停一下, 以免可能閃一下就不見
}// main(
long getLong( ) {     // 以後要改輸入的方法只要改這 function 就可 :-)
    static char buf[99];   // a string buffer for input;  why "static" ?
    long ans;   // 注意若用 atof 要改 double; 函數頭部也要改
    scanf("%ld ", &ans);   // %ld 是給 long int 喔
    // fgets(buf, sizeof(buf), stdin);   // stdin 就是鍵盤, 要記得含入 <stdio.h>
    // ans = atol(buf);    // 從字串中讀出 long 整數 (long); 
        ////// 若是實數就把 atol 改為 atof 這也是別人寫好的函數(函式)
    return ans;
}
void statistics(void) {  // 可以看到所有 Global 整體變數(全域變數)
  // 用 Loop 算出題目規定的各種統計資料
  // 還不會的先練習印出所有 1 到 n 的奇數 (Hint:  k%2 !=0 則 k 就是奇數)
} // statistics(
// 如果你有 K&R 課本, 可研究課本內討論 atoi 與 atof 函數是如何寫的,
// 可以讓你增加功力喔 !
/*************************
D:\testc> gcc p33.c
D:\testc> a
1
2
Got 1
3
Got 2
4
Got 3
5
Got 4
^Z
Got 5
Total 4 data read.
Average=   2.50

D:\testc>
*************************************/