فرمت فایل:(powerpoint) تعداد اسلایدها:15 اسلاید برخی از اسلایدها: دنباله انتقال یک ساختار به زیربرنامه: Do while(. NOT.eof (1)) Read(1,*) temp n = n+1 End do Rewind(1) allocate( s_i (n-1),array(n)) Do i = 1,n Read(1,*) array( i ) End do Call sub(array, s_i ) Print "(T5,A,T19,A/T4,7('-'),T18,11('-'))", 'slope', 'intercept' Do k = 1,n-1 print*, s_i (k) End do End program slope_intercept ...