Помимо указанных параметров субэкваториальный и субтропический пояса характеризуются контрастностью распределения осадков по временам года, субэкваториальный, тропический и умеренный — активным перемещением воздушных масс, субтропический и умеренный — выделением особых областей, подверженных влиянию муссонов, а кроме того, умеренный климатический пояс включает в себя оценку по степени континентальное™ климата. PROGRAM GEO (INPUT, OUTPUT); CONST KOL1C M 10;
ТУРЕ TEMPER = RECORD SRGOD, AMPL i REAL END;
INDEKS = 1.KOL1C; GRAD = (МАЛ, CP, MH); OBLWL = (МУССОННЫЕ, ОБЫЧНЫЕ); ADW Ж (МУССОНЫ, ПАССАТЬГ, ВЕТРЫ); . REG = (ЭКВ, СУБЭКВ, ТРОП, СУБТР, УМЕР, АРКТ); KL1MAT = RECORD NAME:ARRAY [1.30] OF CHAR; TERM:TEMPER; .¦ DAWL, OSADKI:INTEGER;
: NAMEOFREG ION=PACKED ARRAY [1.20JOFCHAR CASE ZONA:REG OF СУБЭКВ: (KONTRAST:GRAD; WOZDMASSY:ADW); ТРОП: (DWOZD:ADW); СУБТР: (OS.GRAD;
OBLAST:OBLWL); УМЕР: (KONTIN:GRAD; REGION:OBLWL;
WETER:ADW);
ЭКВ, APKT: ; END;
SIT = ARRAY [INDEKS] OF KLIMAT; VAR PUNKT:S1T; I, J, K:INTEGER; BEGIN FOR I: = 1 TO KOLIC DO BEGIN WITH PUNKT [I] DO BEGIN READ (NAME); WITH TERM DO READ (SRGOD, AMPL); READ (DAWL, OSADKI, NAMEOFREGION, ZONA) END END;
FOR J: = 1 TO KOLIC—1 DO FOR K: = J + 1 TO KOLIC DO
IF PUNKT [J]. TERM. SPGOD > PUNKT IKJ.
TERM. SRGOD Ш
AND PUNKT [J]. ZONA > PUNKT [KJ. ZONA •
THEN BEGIN WITH PUNKT [J] DO WRITELN (NAME, ZONA, TERM. SRGOD); WITH PUNKT [Kl DO
WRITELN (NAME, ZONA, TERM. SRGOD) « END
END.