Субэкваториальный и субтропический пояса

Оценить
(0 голоса)

Помимо указанных параметров субэкваториальный и субтропический пояса характеризуются контрастностью распределения осадков по временам года, субэкваториальный, тропический и умеренный — активным перемещением воздушных масс, субтропический и умеренный — выделением особых областей, подверженных влиянию муссонов, а кроме того, умеренный климатический пояс включает в себя оценку по степени континентальное™ климата. 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.

Подробнее в этой категории: « Массивы Базовые типы для записи »
Базовые типы для записи
Какие типы данных могут быть базовыми для записи?
Какие файлы используются в Паскале? В чем их особенность?
reset (имя файла)
put (имя файла)

Добавить комментарий


Защитный код
Обновить