Разбор задачи C5 (демо ЕГЭ 2005)

На вход программе подаются 366 строк, которые содержат информацию о среднесуточной температуре всех дней 2004 года. Формат каждой из строк следующий: сначала записана дата в виде dd.mm (на запись номера дня и номера месяца в числовом формате отводится строго два символа, день от месяца отделен точкой), затем через пробел записано значение температуры — число со знаком плюс или минус, с точностью до 1 цифры после десятичной точки. Данная информация отсортирована по значению температуры, то есть хронологический порядок нарушен. Требуется написать программу на языке Паскаль или Бейсик, которая будет выводить на экран информацию о месяце (месяцах), среднемесячная температура у которого (которых) наименее отклоняется от среднегодовой. В первой строке вывести среднегодовую температуру. Найденные значения для каждого из месяцев следует выводить в отдельной строке в виде: номер месяца, значение среднемесячной температуры, отклонение от среднегодовой температуры.

Решение:

Программа считывает входные данные из файла "temp_ra.txt". В нем хранятся записи о реальных среднесуточных температурах в Москве за 2004 год, отсортированных по значению температуры в порядке возрастания:

Задача C5 ЕГЭ по информатике 2005 содержимое исходного файла temp_ra.txt

Сначала задача была решена средствами Excel c помощью функций: =СРЗНАЧ() и =МИН(). Это было сделано для того, чтобы удостовериться в правильности работы программы:

Задача C5 ЕГЭ по информатике 2005 среднегодовая температура и минимальное отклонение

Алгоритм программы такой:

Считываем запись из файла, сразу подсчитывая в массиве сумму температур в каждом из 12-и месяцев. Одновременно суммируем все температуры в году.
Определяем минимальное отклонение среднемесячной температуры от среднегодовой, используя этот массив.
Просматривая данный массив еще раз, выводим информацию об искомых месяцах.

Программа написана на языках:

Паскаль (среда разработки Turbo Pascal 7.0),
Бейсик (среда разработки Quick Basic 4.5),
Алгоритмический язык (среда разработки Кумир 1.9.0).
Си (среда разработки Borland C++ 3.1),

Чтобы прочесть комментарии к программе, наведите мышью на соответствующую строку. Строки, снабженные комментарием, выделены фиолетовым цветом.

Напротив названия языка программирования в скобках содержатся ссылки на скачку исходников и ехе (исполняемых файлов).

Паскаль (исходник+exe-файл)	Бейсик (исходник)
Const masDay:array[1..12] of integer= (31,29,31,30,31,30,31,31,30,31,30,31); var f:text; masTmpMes:array[1..12] of real; mes:1..12; data:string[5]; yTmp,tmp,minOtkl,otkl:real; i:integer; begin for i:=1 to 12 do masTmpMes[i]:=0; yTmp:=0; assign(f,'temp_ra.txt'); reset(f); for i:=1 to 366 do begin readln(f,data,tmp); mes:=(ord(data[4])-ord('0'))*10+ ord(data[5])-ord('0'); masTmpMes[mes]:=masTmpMes[mes]+tmp; yTmp:=yTmp+tmp; end; close(f); for i:=1 to 12 do masTmpMes[i]:=masTmpMes[i]/masDay[i]; yTmp:=yTmp/366; minOtkl:=100; for i:=1 to 12 do begin otkl:=abs(masTmpMes[i]-yTmp); if otkl<minOtkl then minOtkl:=otkl; end; writeln('Srednegodovaya temperatura= ', yTmp:0:6); for i:=1 to 12 do begin otkl:=abs(masTmpMes[i]-yTmp); if abs(otkl-minOtkl)<0.0001 then writeln(i,' ',masTmpMes[i]:0:6,' ',otkl:0:6); end; readln end.	DATA 31,29,31,30,31,30,31,31,30,31,30,31 DIM i, mes, masDay(12) AS INTEGER DIM masTmpMes(12) AS SINGLE DIM str AS STRING DIM yTmp, tmp, minOtkl, otkl AS SINGLE FOR i = 1 TO 12 masTmpMes(i) = 0! READ masDay(i) NEXT i yTmp = 0! OPEN "temp_ra.txt" FOR INPUT AS #1 FOR i = 1 TO 366 LINE INPUT #1, str mes = (ASC(MID$(str, 4, 1)) - ASC("0")) *10+ (ASC(MID$(str, 5, 1)) - ASC("0")) tmp = VAL(MID$(str, 7)) masTmpMes(mes) = masTmpMes(mes) + tmp yTmp = yTmp + tmp NEXT i CLOSE #1 FOR i = 1 TO 12 masTmpMes(i) = masTmpMes(i) / masDay(i) NEXT i yTmp = yTmp / 366 minOtkl = 100! FOR i = 1 TO 12 otkl = ABS(masTmpMes(i) - yTmp) IF otkl < minOtkl THEN minOtkl = otkl END IF NEXT i PRINT "Srednegodovaya temperatura= "; PRINT USING "##.######"; yTmp FOR i = 1 TO 12 otkl = ABS(masTmpMes(i) - yTmp) IF ABS(otkl - minOtkl) <0.0001 THEN PRINT i; PRINT USING "##.###### ";masTmpMes(i); otkl END IF NEXT i END
Алгоритмический (исходник)	Си (исходник+exe-файл)
использовать Файлы П алг нач цел f,i,mes целтаб masDay[1:12] вещтаб masTmpMes[1:12] лит str вещ yTmp,tmp,minOtkl,otkl лог usp masDay[1]:=31 masDay[2]:=29 masDay[3]:=31 masDay[4]:=30 masDay[5]:=31 masDay[6]:=30 masDay[7]:=31 masDay[8]:=31 masDay[9]:=30 masDay[10]:=31 masDay[11]:=30 masDay[12]:=31 нц для i от 1 до 12 masTmpMes[i]:=0.0 кц yTmp:=0.0 f:=открыть на чтение('temp_ra.txt') нц для i от 1 до 366 Фввод f,str mes:=(код(str[4])-код('0'))*10+(код(str[5])-код('0')) tmp:=лит_в_вещ(str[7:длин(str)],usp) masTmpMes[mes]:=masTmpMes[mes]+tmp yTmp:=yTmp+tmp кц закрыть(f) нц для i от 1 до 12 masTmpMes[i]:=masTmpMes[i]/masDay[i] кц yTmp:=yTmp/366 minOtkl:=100 нц для i от 1 до 12 otkl:=abs(masTmpMes[i]-yTmp) если otkl<minOtkl то minOtkl:=otkl все кц вывод "Srednegodovaya temperatura=",yTmp,нс нц для i от 1 до 12 otkl:=abs(masTmpMes[i]-yTmp) если abs(otkl-minOtkl)<0.0001 то вывод i,' ',masTmpMes[i],' ',otkl все кц кон	#include <stdio.h> #include <string.h> #include <stdlib.h> #include <math.h> #include <conio.h> void main() { FILE *fp; int masDay[]={31,29,31,30,31,30,31,31,30,31,30,31}; float masTmpMes[12]; int mes,i; char data[3],str[6]; float yTmp,tmp,minOtkl,otkl; fp=fopen("temp_ra.txt","r"); for(i=0;i<12;i++) masTmpMes[i]=0.0; yTmp=0.0; for(i=0;i<366;i++){ fscanf(fp,"%s %f",str,&tmp); data[0]=str[3]; data[1]=str[4]; data[2]='\0'; mes=atoi(data); masTmpMes[mes-1]+=tmp; yTmp+=tmp; } fclose(fp); for(i=0;i<12;i++) masTmpMes[i]/=masDay[i]; yTmp/=366; minOtkl=100.0; for(i=0;i<12;i++){ otkl=fabs(masTmpMes[i]-yTmp); if(otkl<minOtkl) minOtkl=otkl; } printf("Srednegodovaya temperatura= %f\n",yTmp); for(i=0;i<12;i++){ otkl=fabs(masTmpMes[i]-yTmp); if(fabs(otkl-minOtkl)<0.0001) printf("%d %f %f\n",i+1,masTmpMes[i],otkl); } getch(); }

Работа программы на этих языках:

Задача C5 ЕГЭ по информатике 2005 Паскаль, Бейсик, Си

Задача C5 ЕГЭ по информатике 2005 Кумир

Видно, что ответ, выданный программой, совпадает с результатом, полученным в Excel.

Подробнее о файле "temp_ra.txt". Он был подготовлен следующим образом:

С сайта о погоде была взята информация о среднесуточных температурах в Москве в 2004 году по месяцам и занесена в файл Excel "Карта_температуры" по листам: "янв", "фев", "март", "апр", "май", "июн", 'июл", "авг", "сент", "окт', "нояб', "дек". Пример части листа "янв" на рисунке:

Задача C5 ЕГЭ по информатике 2005 среднесуточная температура в январе

На лист "год" были скопированы все записи по месяцам друг за другом. Данная таблица получилась отсортированной по дате. Скопировав эту таблицу и разместив ее рядом была произведена сортировка по температуре средствами Excel.

Задача C5 ЕГЭ по информатике 2005 сортировка по дате и по температуре

Полученная таблица (правая) была скопирована в файл "temp_ra" и отредактирована в нужном формате согласно условию задачи.

Перейти к другим задачам.

infoegehelp.ru

Разбор задачи C5 (демо ЕГЭ 2005)