fortran或者其他编程高手来帮我编编这个程序~