PROCEDURE average 100 INTERFACE RETURNS average total input

例子： PROCEDURE average; /* 这个过程计算不超过100个在规定值域内的有效数字的平均值；同时计算 有效数字的总和及个数。*/ INTERFACE RETURNS average, total. input, total. valid; INTERFACE ACCEPTS value, minimum, maximum; TYPE value［ 1… 100］ IS SCALAR ARRAY; TYPE average, total. input, total. valid; minimum, maximum, sum IS SCALAR; TYPE i IS INTEGER;

1: i=1; total. input=total. valid=0; sum=0; 2: DO WHILE value［i］ <> -999 3: AND total. input<100 4: increment total. input by 1; 5: IF value［i］>=minimum 6: AND value［i］<=maximum 7： THEN increment total. valid by 1; sum=sum+value［i］; 8: ENDIF increment i by 1; 9: ENDDO 10: 11: 12: 13: IF total. valid>0 THEN average=sum/total. valid; ELSE average=-999; ENDIF END average

v a. Point. Second. Point == "n" || a. Point. Second. Point == "ns" || a. Point. Second. Point == "nr" || a. Point. Second. Point == "vn" || a. Point. Second. Point == "b“ v int. Count v (str. Temp > 1 && str. Split[i]!= str. Label == "<" || str. Temp == "【") && i < str. Content. Value. Length - 1

v str. Temp == "t" || str. Temp == "r" || str. Temp == "n" || boo. If. Label || str. Temp == " " || str. Temp == "'“ boo. If. Label 是布尔变量

v v v private string get. Site. Name(string str. Net. Name. Value) { string str. Net. Name = ""; int. Net. Name. Location = str. Net. Name. Value. Index. Of(". com"); int i = int. Net. Name. Location; while (i > 0) { i--; string str. Temp = str. Net. Name. Value. Substring(i, 1); if (str. Temp == ". ") { break; } } v v v v v str. Net. Name = str. Net. Name. Value. Substring(i + 1, int. Net. Name. Location - i - 1); return str. Net. Name; v v }