".$i; break; } $n=$n+9; } } function proverka_dney($line){ //если введена не сущ. дата берется послед. число месяца $dd=substr($line,0,2); settype($dd,"integer"); if ($dd>28){ $mm=substr($line,3,2); settype($mm,"integer"); if ($mm==2){ $line="28".substr($line,2);} else { if ($dd==31){ switch ($mm) { case 1: case 3: case 5: case 7: case 8: case 10: case 12: break; case 4: case 6: case 9: case 11: $line="30".substr($line,2); break; } }} } return $line; } function tabl($stroka){ //формирует строку с таблицей global $mas2,$mas4; // массивы назв. морей, факт.зн-ий и аномалий global $k_mar; // $line=substr($stroka,7,2).".".substr($stroka,5,2).".1978;"; $god=substr($stroka,1,4); settype($god,"integer"); $line=proverka_dney($line); $tabl = ""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; $tabl .=""; for ($nk=1; $nk<=$k_mar; $nk++){ //строки с морями $tabl.=""; $tabl.=""; //назв-е моря fil_mar($nk,$line,$god); //поиск значений для заданных дней for ($i=0; $i<=11; $i++){$tabl.="";} $tabl.=""; } $tabl .="
МоряЗнач.АСреднееМин.Мах.С.К.О.РазмахQ07%Q25%Q50%Q75%Q93%
 ".$mas2[$nk]."".$mas4[$i]."
"; return $tabl; } function polusarie($pol){ //раскрывающийся список полушария global $hemi; if($pol==""){$pol=0;}//если нет выбирается северное $sel = ''; return $sel; } function anio($god){ // раскрывающийся список для лет global $god_k, $god_n; if($god==""){$god=$god_k;}//если нет выбранного года выбирается последний settype($god,"string"); $sel = ''; $god_tek=$god; return $sel; } function mesiac ($mes1){ //раскрывающийся список для месяцев global $mas1;//массив месяцев if($mes1==""){$mes1=1;} //если нет выбранного месяца выбирается первый $sel = ''; return $sel; } function dias ($dia){//раскрывающийся список для дней if($dia==""){$dia=1;}//если нет выбранного дня выбирается первый $sel = ''; return $sel; } function spektr ($s){ //раскрывающийся список ледовитость/ площадь льда global $otk; if($s==""){$s=0;}//если нет выбирается ледовитость $sel = ''; return $sel; } file_ini(); //читает файл с морями и послед датой $ago_f=""; foreach ($_POST as $field => $value){$ago_f.=$value;} //чтение HTML-форм $html_pol = polusarie(substr($ago_f,0,1)); //раск.список полушарий $html_ago = anio(substr($ago_f,1,4)); //раск.список лет $html_mes = mesiac(substr($ago_f,5,2)); //раск.список месяцев $html_dia = dias(substr($ago_f,7,2)); //раск.список дней $html_spe = spektr(substr($ago_f,9,1)); //раск.список ледовитость/площадь льда file_ini(); //читает файл с морями и послед датой $html_tabl = tabl($ago_f); // таблица с данными ?>

   полушарие        год             месяц                 день        индекс