【正文】 a8/*sin(8*B)。Bn1=B。} while(fabs((Bn1Bn)*P)=)。return(B)。} void GSFS(long double a,long double b,long double Bf,long double y,long double *B,long double *l){ long double e,e1,V,t,u2。long double n0,n2,n4,n6,n8,sin2B,sin4B,sin6B,sin8B,N。e=(sqrt(a*ab*b))/a。e1=(sqrt(a*ab*b))/b。V=sqrt(1+e1*e1*cos(Bf)*cos(Bf))。t=tan(Bf)。u2=e1*e1*cos(Bf)*cos(Bf)。n0=a。n2=*e*e*n0。n4=*e*e*n2。n6=*e*e*n4。n8=*e*e*n6。sin2B=pow(sin(Bf),2)。sin4B=pow(sin(Bf),4)。sin6B=pow(sin(Bf),6)。sin8B=pow(sin(Bf),8)。N=n0+n2*sin2B+n4*sin4B+n6*sin6B+n8*sin8B。*B=*V*V*t*((y/N)*(y/N)*(5+3*t*t+u29*u2*t*t)*pow((y/N),4)+*(61+90*t*t+45*pow(t,4))*pow((y/N),6))。*l=(Bf)*((y/N)*(1+2*t*t+u2)*pow((y/N),3)+*(5+28*t*t+24*pow(t,4)+6*u2+8*u2*t*t)*pow(y/N,5))。} 3）運(yùn)行結(jié)果：實習(xí)總結(jié)：通過這次大地坐標(biāo)轉(zhuǎn)換及高斯投影正反算程序代碼編寫設(shè)計的上機(jī)操作學(xué)習(xí)，我更加了解了如何運(yùn)用計算機(jī)編程去處理復(fù)雜的測繪計算,并且也知道了對于編程時遇到的一般問題該如何解決，對于坐標(biāo)轉(zhuǎn)換和高斯正反算的一些理念也有一定的了解。本次實習(xí)，利用計算機(jī)編程來實現(xiàn)測量數(shù)據(jù)的處理，讓我對坐標(biāo)系之間的轉(zhuǎn)化，高斯投影正反算的原理以及計算過程有了更深刻的理解和記憶，感覺受益匪淺。不過在本次實習(xí)期間，也出現(xiàn)了一些小問題。在編寫程序的時候，略顯生疏，花費(fèi)了較多的時間，以后有待提高；對于計算公式中的有的字母，忘記其所代表的具體意義，不過最終通過復(fù)習(xí)，搞明白每一個字母的含義。實習(xí)就是一個理論與實踐相結(jié)合的過程，希望自己能在這一方面有更大的進(jìn)步！第三篇：計算機(jī)上機(jī)實習(xí)報告計算機(jī)上機(jī)實習(xí)報告姓名：張陸浩 班級：高材11001 學(xué)號：201001978 老師：張老師 熊老師 時間：2011年12月24日一．實驗?zāi)康? ,掌握基本的編程方法,熟悉用VB語言完成一個應(yīng)用程序的設(shè)計過程,掌握有關(guān)編輯和調(diào)試程序的方法和技巧。﹑數(shù)據(jù)文件的讀出與寫入、數(shù)組與選擇結(jié)構(gòu)的運(yùn)用，圖形操作等內(nèi)容,包括:分析﹑設(shè)計﹑編程﹑．實習(xí)要求：（一）。用記事本新建一個文本文件，將本班M名學(xué)生N門考試課的成績輸入到這個文件中，建議按如下形式存放（注：20=M姓名英語數(shù)學(xué)物理化學(xué)VB 1張陸浩2林丹3李宗偉4李永波（二）。將N門考試課以及其分?jǐn)?shù)輸入到另一個數(shù)據(jù)文件（文件類型同上題）中，建議以下列形式存放： 編號 課程名稱 課程學(xué)分 1 英語 2 數(shù)學(xué) 3 物理 4 化學(xué) 5 VB （三）。請編寫一個簡單的學(xué)生成績管理程序，以完成以下功能： （保留兩位小數(shù)，四舍五入），按平均分排列名次，平均分相同則名次并列。用VB創(chuàng)建一個數(shù)據(jù)文件，存放班級的成績表。,并計算各分?jǐn)?shù)段(90分以上。80～89。70～79。60～69。60分以下)的學(xué)生數(shù)。.（并將結(jié)果存放到用VB創(chuàng)建的一個新的數(shù)據(jù)文件中）。(含學(xué)號,不及格課程名稱,課程的學(xué)分及成績)。優(yōu)等生條件(只要滿足三個中任一個就可以): a)平均分=90分b)名次在本班位于前四名c)平均分=85分,并且至少有一門課的成績=95分三、實習(xí)步驟用記事本新建一個學(xué)生成績文本文件(其中包括學(xué)生學(xué)號，成績，姓名，課程及成績)。用記事本新建一個課程學(xué)分文本文件。編輯菜單編輯器：編輯四個可拉式菜單，包括學(xué)生成績、成績處理、成績編輯、畫圖。編輯代碼：分別編輯打印學(xué)生成績和學(xué)分代碼，編輯加權(quán)平均分、各科平均分、分?jǐn)?shù)段、成績條、排名、優(yōu)等生、差等生的代碼，還有畫各科目成績?nèi)藬?shù)圖的代碼。調(diào)試程序代碼并保存。打印代碼。：（一）。源文件（1）成績學(xué)號 姓名 英語 數(shù)學(xué) 物理 化學(xué) VB 1 張陸浩 97 98 97 97 98 2 林丹 92 87 79 91 84 3 李宗偉 75 96 83 75 73 4 李永波 89 93 83 86 82 5 王儀涵 92 79 89 86 80 6 汪鑫 93 65 86 68 84 7 付海峰 94 91 89 92 80 8 湛龍 86 83 88 80 92 9 蓋德 68 79 54 72 71 10 陶菲克 69 76 59 81 75 11 佐佐木 85 83 68 57 71 12 李娜 94 63 62 65 53 13 陳金 86 79 89 94 83 14 蘭洋 91 93 92 89 75 15 小志 95 89 93 86 87 16 棃一名 92 86 83 67 59 17 吳凱飛 67 75 57 82 62 18 江方 93 80 73 76 84 19 胡艷 74 68 58 63 71 20 張繼原 68 95 68 84 93（2）.學(xué)分編號 課程名稱 課程學(xué)分 1 英語 2 數(shù)學(xué) 3 物理 4 化學(xué) 5 VB 四．運(yùn)行效果：（一）.學(xué)生管理（1）打開課程成績及學(xué)分（2）打開計算的加權(quán)平均分﹑排名及各科平均分(三）.編輯（1）打開計算的各科人數(shù)分布（2）打開按學(xué)號查找每個學(xué)生的成績 a）輸入要查找學(xué)生的學(xué)號b）得到該生的成績條（3）打開查找到的優(yōu)等生信息（4）打開不及格學(xué)生的分布（四）.成績分布圖五．實習(xí)小結(jié)通過兩個星期的上機(jī)實習(xí)，我體會頗深，不僅表現(xiàn)在VB語言程序設(shè)計中，而且表現(xiàn)在與人交流和獨(dú)立自主完成任務(wù)的決心中。本次上機(jī)在VB程序設(shè)計中我學(xué)會了很多以前不會或根本一點都不懂的東西。比如，在程序設(shè)計過程中，剛開始我弄不清楚怎樣把編輯的文件讀到VB中，但是通過詢問老師和同學(xué)討論，終于弄清了思路，即先將文件打開，再將數(shù)據(jù)分別放入若干個數(shù)組中，最后再將它讀出來。除此之外，我還明白了變量的作用域?qū)幊痰闹匾院妥舆^程，函數(shù)過程數(shù)據(jù)處理的幫助。而對以前學(xué)的，像選擇結(jié)構(gòu)，循環(huán)結(jié)構(gòu)等也進(jìn)行了鞏固和運(yùn)用。在數(shù)據(jù)處理和打印的時候進(jìn)行了大量運(yùn)用。為了使程序更人性化化，我還運(yùn)用了msgbox，inputbox等方法，使我對所學(xué)的知識進(jìn)行了綜合的運(yùn)用。我相信通過這次實習(xí)，我對VB和計算機(jī)語言都有了更深刻的認(rèn)識。雖然在實習(xí)的過程中，我發(fā)現(xiàn)了自己在編寫程序中的不足，像思維不夠嚴(yán)密等，但我相信，只要認(rèn)真、努力就一定會有收獲（一）.創(chuàng)建標(biāo)準(zhǔn)模塊Type student “定義變量：student” number As String * 9 name As String * 3 score(1 To 5)As Single average As Single rank As Integer End Type Type class “定義變量：class” num As String * 9 nam As String * 3 scor As Single End Type Public stu()As student, cla()As class, sumscor As Integer, subj()As class Public q(5)As Integer, t(5)As Integer, x(5)As Integer, y(5)As Integer, h(5)As Integer “定義刪除空格函數(shù)” Public Function deletespace(str As String)As String Dim i% i = InStr(str, “ ”)Do While i o str = Replace(str, “ ”, “ ”)i = InStr(str, “ ”)Loop deletespace = str End Function Public Sub addave(stu()As student, cou()As course)“定義計算加 For i = 1 To UBound(stu)權(quán)平均分 Dim jqpj!, x!, y!的子過程x = 0 y = 0 For j = 1 To 5 x = x + cou(j).score y = y + stu(i).score(j)* cou(j).score Next j stu(i).jqpj = y / x Next i End Sub Public Sub mc(stu()As student)“定義計算排名的子過程” For i = 1 To UBound(stu)stu(i).rank = 0 For j = 1 To UBound(stu)If stu(i).jqpj Private Sub studentscore_Click() = “文本文件|*.txt” Open For Input As 1 Line Input 1, str1 Print str1 Do While Not EOF(1)Line Input 1, str str = deletespace(Trim(str))a = Split(str, “ ”)n = n + 1 ReDim Preserve stu(n)stu(n).number = a(0)stu(n).name = a(1)For i = 1 To 5 stu(n).score(i)= a(i + 1)Next i Loop For i = 1 To n Print stu(i).number。Spc(1)。stu(i).name。Spc(3)。For j = 1 To 5 Print stu(i).score(j)。Spc(3)。Next j Print Next i Close 1 End Sub Private Sub classrank_Click() = “文本文件|*.txt” Open For Input As 2 Line Input 2, str2 Print str2 sumscor = 0 Do While Not EOF(2)Line Input 2, str3 str3 = deletespace(Trim(str3))b = Split(str3, “ ”)m = m + 1 ReDim Preserve cla(m)cla(m).num = b(0)cla(m).nam = b(1)cla(m).scor = b(2)sumscor = sumscor + Val(cla(m).scor)Loop For k = 1 To m Print cla(k).num。Spc(2)。cla(k).nam。Spc(3)。cla(k).scor。Spc(3)Next k End Sub(2).分?jǐn)?shù)處理Private Sub ran_Click()“加權(quán)平均分及名次” For n = 1 To 20 sum = 0 For i = 1 To 5 sum = sum + stu(n).score(i)* cla(i).scor Next i stu(n).average = Format(sum / sumscor, “.”)Next n For n = 1 To 20 stu(n).rank = 1 For j = 1 To 20 If stu(n).average stu(j).average Then stu(n).rank = stu(n).rank + 1 End If Next j Next n Print “學(xué)號”。Spc(6)?！靶彰薄pc(4)?！坝?語”。Spc(2)?！皵?shù) 學(xué)”。Spc(2)。“ 物 理”。Spc(3)?！盎?學(xué)”。Spc(2)?！癡 B”。Spc(2)。“加權(quán)平均分”。Spc(2)?！懊巍?For n = 1 To 20 Print stu(n).number。Spc(1)。stu(n).name。Spc(3)。For i = 1 To 5 Print stu(n).score(i)。Spc(3)。Next i Print stu(n).average。Spc(3)。stu(n).rank Next n End Sub Private Sub eaverage_Click()“ 課程平均分”Print Spc(7)?！坝?語”。Spc(1)。“數(shù) 學(xué)”。Spc(1)。“ 物 理”。Spc(1)。“化 學(xué)”。Spc(1)?！癡 B” Print “平均分”。For i = 1 To 5 sum = 0 For n = 1 To 20 sum = sum + stu(n).score(i)Next n j = Format(sum / 20, “”)Print Spc(2)。j。Next i End Sub（3）.編輯 Private Sub scor_Click()“計算打印個分?jǐn)?shù)段人數(shù)” Print “范圍”。“英 語”。Spc(3)?！皵?shù) 學(xué)”。Spc(3)。“ 物 理”。Spc(3)?！盎?學(xué)”。Spc(3)?！癡 B” For i = 1 To 5 For n = 1 To 20 Select Case stu(n).score(i)Case 90 To 100 q(i)= q(i)+ 1 Case 80 To 89 x(