氣象信息與網(wǎng)絡(luò)技術(shù)(編輯修改稿)
2025-08-10 00:22 本頁面
【文章內(nèi)容簡介】 fclose(fp)。 // 關(guān)閉文件 if (p!=0) printf(你指定的%s臺站未找到，請檢查！??！\n,station)。 } else printf(你指定的%s文件不存在，請檢查?。。n ,name)。 }對ch字符串?dāng)?shù)組從k位置開始，規(guī)定字符串從0開始計數(shù)，長度為n的子字符串轉(zhuǎn)換為整型值。對于含有非數(shù)字字符，則返回1。例如ch[]=”123456/78”，則函數(shù)str2int(ch,2,3)返回345；函數(shù)str2int(ch,5,3)返回1。 int str2int(char *ch,int k,int n) // 字符串轉(zhuǎn)換成整數(shù)值函數(shù) { int i,m=0。 // 循環(huán)變量i，中間變量m，用于存放結(jié)果整數(shù)值 for(i=0。in。i++) { if (ch[k+i] 39。039。 || ch[k+i] 39。939。) break。 // 字符串中含非數(shù)字，中途跳出 m=m*10+ch[k+i]‘0’。 // 字符串轉(zhuǎn)換成整數(shù)值 } if (i==n) return m。 else return 1。 // 返回結(jié)果值 }對字符串電碼ch進(jìn)行譯碼，翻譯出高空各要素的值進(jìn)行顯示。 void updisp(char *ch) // 對ch進(jìn)行探空譯碼 { int n,i,p,y。 // n表示當(dāng)前字符串位置，p表示轉(zhuǎn)換出的整數(shù)值printf(=================讀出的探空電碼========================\n)。 puts(ch)。 // 顯示讀到的字符串電碼內(nèi)容 printf(=================探空譯碼結(jié)果==========================\n)。 n=(ch[10]==39。 39。) ? 11 : 12 。 // 調(diào)整好當(dāng)前位置，如果“TTAA”后只有一個空格， // 則n取11；若有兩個空格，則n取12 y=str2int(ch,n6,2)。 // 取出月份給y保存，處理風(fēng)速時要用到 printf(區(qū)站號：)。 // n已指出臺站號位置 for(i=0。i5。i++) printf(%c,ch[n+i])。 // 輸出臺站號 printf(\n)。 // 換行 while(1) // 死循環(huán)，中途必須用break跳出循環(huán) { n+=6 。 // 調(diào)整好當(dāng)前位置，準(zhǔn)備處理hhPPP p=str2int(ch,n+2,3)。 // p←PPP電碼，處理氣壓，位勢米 if (ch[n]==39。939。 amp。amp。 ch[n+1]==39。939。) // 99：地面氣壓 //此處輸出地面氣壓的位勢米高度p，若p≤100，則加1000；否則p就是位勢米。 { if(p=1000){p+=1000。} printf(地面氣壓：%d,p)。 } else if (ch[n]==39。039。 amp。amp。 ch[n+1]==39。039。) // 00：1000hPa氣壓 //此處輸出1000hPa氣壓的位勢米高度p，若p500，則500p；否則p就是位勢米。 { if(p500){p=500p。} printf(1000hPa氣壓：%d,p)。 } else if (ch[n]==39。939。 amp。amp。 ch[n+1]==39。239。) // 92：925hPa氣壓 //此處輸出925hPa氣壓的位勢米高度p，p就是位勢米。 { printf(925hPa氣壓：%d,p)。 } else if (ch[n]==39。839。 amp。amp。 ch[n+1]==39。539。) // 85：850hPa氣壓 //此處輸出850hPa氣壓的位勢米高度p，p加1000。 { p=p+1000。 printf(850hPa氣壓：%d,p)。 } else if (ch[n]==39。739。 amp。amp。 ch[n+1]==39。039。) // 70：700hPa氣壓 //此處輸出700hPa氣壓的位勢米高度p，若p300，加2000；否則加3000。 { if(p300) {p=p+2000。} else { p=p+3000。} printf(700hPa氣壓：%d,p)。 } else if ((ch[n]==39。539。|| ch[n]==39。439。) amp。amp。 ch[n+1]==39。039。) // 500hPa或400hPa氣壓 //此處輸出500hPa或400hPa氣壓的位勢米高度p，p乘以10。 { p=p*10。 printf(%c00hPa氣壓：%d,ch[n],p)。 } else if ((ch[n]==39。339。 amp。amp。 ch[n+1]==39。039。) || (ch[n]==39。239。 amp。amp。 ch[n+1]==39。539。)) // 此處輸出300hPa或250hPa氣壓的位勢米高度p， // 若p500，則加1000后乘以10；否則p乘以10。 { if(p500) p=(p+1000)*10。 else {p=p*10。} printf(%c%c0hPa氣壓：%d,ch[n],ch[n+1],p)。 } else if (((ch[n]==39。239。|| ch[n]==39。139。) amp。amp。 ch[n+1]==39。039。) || (ch[n]==39。139。 amp。amp。 ch[n+1]==39。539。)) //此處輸出200hPa或150hPa或100hPa氣壓的位勢米高度p，p加1000后乘以10。 { p=(p+1000)*10。 printf(%c%c0hPa氣壓：%d,ch[n],ch[n+1],p)。 } else break。 // 處理結(jié)束，跳出死循環(huán) n+=6 。 // 調(diào)整好當(dāng)前位置，準(zhǔn)備處理TTTDD p=str2int(ch,n,3)。 // p←TTT電碼，處理溫度，℃ if (p=0) //此處輸出溫度p，p為偶數(shù)表示零上，否則為零下 { if(p%2==0) printf(，溫度：零上%.1f℃,*p)。 else printf(，溫度：零下%.1f℃,*p)。 } p=str2int(ch,n+3,2)。 // p←DD電碼，處理露點差，單位℃。 if (p=0) // 此處輸出露點差p，若p50，則減去50；否則除以10 { if(p50) {p=50。} else {p=p%10。} printf(，露點差：%d℃,p)。 } n+=6。 // 調(diào)整好當(dāng)前位置，準(zhǔn)備處理dddff p=str2int(ch,n,3)。 // p←ddd電碼，處理風(fēng)向 if (p%5==0) // 此處輸出風(fēng)向p，必須是5的倍數(shù)，否則缺測 { printf(，風(fēng)向：%d度,p) 。 p=str2int(ch,n+3,2)。 // p←ff電碼，處理風(fēng)速 if (p=0) // 此處輸出風(fēng)速p，注意風(fēng)速的單位與y有關(guān)？ { if (y50) printf(，風(fēng)速：%.1f米/秒,p*)。 else printf(，風(fēng)速：%d米/秒,p)。 } } printf(\n)。 } }對字符串電碼ch進(jìn)行譯碼，翻譯出地面各層各要素的值進(jìn)行顯示。void dmdisp(char *ch) // 對ch進(jìn)行地面譯碼{ int n,i,p。 // n表示當(dāng)前字符串位置，p表示轉(zhuǎn)換出的整數(shù)值char cl[10][5]={無低,淡積,濃積,積雨,積層,層積,碎雨,碎雨,積,鬃積}。 char cm[10][5]={無中,高層,雨層,高積,莢狀,層積,積雨,積層,積,散積}。 char chh[10][5]={無高,毛卷,密卷,偽卷,鉤卷,卷,輻卷,卷層,層
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1