Сельское и Лесное хозяйство. Пример организации ввода-вывода данных перечисляемого типа (текст программы)

Пример организации ввода-вывода данных перечисляемого типа (текст программы)

Организации ввода-вывода данных перечисляемого типа

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

- определяют целочисленную переменную для хранения порядкового номера вводимого перечисляемого значения;

- на месте ввода вводят значение порядкового номера необходимого перечисляемого значения;

- с помощью функции преобразования порядкового номера в перечисляемое значение (имя этой функции совпадает с именем перечисляемого типа) определяют введенное перечисляемое значение

Для вывода значения переменной перечисляемого типа используют оператор выбора, в котором в качестве

- ключевого выражения используется выводимая переменная перечисляемого типа;

- ключей вариантов используются значения перечисляемого типа (вариантов будет столько, сколько значений перечислено при определении типа);

- операторов в вариантах используется оператор обращения к стандартной процедуре вывода, в котором параметром вывода является строка символов, соответствующая перечисляемому значению.

Используем предложенную организацию ввода-вывода данных перечисляемого типа в задаче определения сезона года по заданному месяцу. В этой задаче используются входная переменная mes типа tmes=(jan,fev, mar, apr, maj, iun, iul, avg, sen, okt, noj, dek) и выходная переменная sezon типа tsezon=(zima, vesna, leto, osen).

program sezon_goda;

type tsezon=(zima,vesna,leto,osen);

tmes=(jan,fev,mar,apr,maj,iun,iul,avg,sen,okt,noj,dek);

var

mes:tmes;{заданный месяц}

sezon:tsezon;{искомый сезон}

m:integer;{номер исходного месяца от 1 по 12

(на единицу больше номера задаваемого значения,

т.к. нумерация перечисляемых значений с 0)}

begin

{ввод перечисляемого значения}

writeln('Введите номер месяца');

readln(m); {ввод номера}

mes:=tmes(m-1);{преобразование порядкового номера в перечисляемое значение}

{реализация метода решения}

case mes of

dek, jan, fev: sezon:=zima;

mar..maj: sezon:=vesna;

iun..avg: sezon:=leto;

sen..noj: sezon:=osen

end; {Сase}

{вывод перечисляемого значения}

case sezon of

zima: writeln('зима');

vesna: writeln('весна');

leto: writeln('лето');

osen: writeln('осень')

end {Сase}

end.

	Сельское хозяйство
	Основные показатели сельского хозяйства
14.1.	Продукция сельского хозяйства по категориям хозяйств.................................................................................
14.2.	Структура продукции сельского хозяйства по категориям хозяйств.................................................................................
14.3.	Индексы производства продукции сельского хозяйства по категориям хозяйств.................................................................................
14.4.	Индексы производства продукции сельского хозяйства по категориям хозяйств по субъектам Российской Федерации.................................................................................
14.5.	Производство основных видов сельскохозяйст-венной продукции по категориям хозяйств.................................................................................
14.6.	Структура производства основных видов сельскохозяйственной продукции по категориям хозяйств.................................................................................
14.7.	Реализация основных продуктов сельскохо- зяйственными организациями.................................................................................
14.8.	Рентабельность продукции, реализованной сельскохозяйственными организациями.................................................................................
	Материально-техническая база сельского хозяйства
14.9.	Обеспеченность сельскохозяйственных организаций тракторами и комбайнами.................................................................................
14.10.	Внесение минеральных удобрений под посевы в сельскохозяйственных организациях.................................................................................
14.11.	Внесение органических удобрений под посевы в сельскохозяйственных организациях.................................................................................
14.12.	Проведение работ по химической мелиорации в сельскохозяйственных организациях.................................................................................
14.13.	Потребление электроэнергии в сельскохозяйст- венных организациях.................................................................................
14.14.	Энергетические мощности в сельскохозяйст- венных организациях.................................................................................
	Растениеводство
14.15.	Посевные площади сельскохозяйственных культур.................................................................................
14.16.	Посевные площади сельскохозяйственных культур по категориям хозяйств в 2009 г..................................................................................
14.17.	Валовой сбор зерна.................................................................................
14.18.	Валовой сбор продуктов растениеводства.................................................................................
14.19.	Урожайность сельскохозяйственных культур.................................................................................
14.20.	Валовой сбор зерна (в весе после доработки) по субъектам Российской Федерации.................................................................................
14.21.	Валовой сбор сахарной свеклы (фабричной) по субъектам Российской Федерации.................................................................................

14.22.	Валовой сбор семян подсолнечника по субъектам Российской Федерации.................................................................................
14.23.	Валовой сбор картофеля по субъектам Российской Федерации.................................................................................
14.24.	Валовой сбор овощей по субъектам Российской Федерации.................................................................................
14.25.	Площадь плодово-ягодных, виноградных и чайных насаждений.................................................................................
14.26.	Валовой сбор плодов, ягод, винограда и чайного листа.................................................................................
	Животноводство
14.27.	Поголовье скота.................................................................................
14.28.	Поголовье скота по категориям хозяйств на конец 2009 г..................................................................................
14.29.	Структура поголовья скота по категориям хозяйств.................................................................................
14.30.	Поголовье птицы.................................................................................
14.31.	Производство основных продуктов животноводства.................................................................................
14.32.	Производство скота и птицы на убой и молока.................................................................................
14.33.	Производство скота и птицы на убой по субъектам Российской Федерации.................................................................................
14.34.	Производство молока по субъектам Российской Федерации.................................................................................
14.35.	Производство яиц по субъектам Российской Федерации.................................................................................
14.36.	Расход кормов в животноводстве.................................................................................
14.37.	Продуктивность скота и птицы.................................................................................
	Продовольственные ресурсы и их использование
14.38.	Ресурсы и использование картофеля.................................................................................
14.39.	Ресурсы и использование овощей и продовольственных бахчевых культур.................................................................................
14.40.	Ресурсы и использование мяса и мясопродуктов.....................................................
14.41.	Ресурсы и использование молока и молокопродуктов.................................................................................
14.42.	Ресурсы и использование яиц и яйцепродуктов.....................................................
14.43.	Производство и использование зерна.................................................................................
	Лесное хозяйство
14.44.	Лесные ресурсы.................................................................................
14.45.	Охрана и защита лесов.................................................................................
14.46.	Основные показатели работы организаций по виду экономической деятельности «Лесозаготовки».................................................................................
14.47.	Основные показатели ведения охотничьего хозяйства.................................................................................
	Методологические пояснения..................................................................................

В разделе содержится информация о структурных изменениях в сельскохозяйственном производстве, развитии индиви-дуального сектора на селе, состоянии растениеводства и животноводства, формировании рыночных отношений, основных продовольственных ресурсах и их использовании, материально-технической базе сельского хозяйства и др. Данные приводятся в целом по сельскому хозяйству и по категориям сельскохозяйственных производителей России, по основным показателям - также в разрезе субъектов Российской Федерации. Представлены сведения по лесному хозяйству.

Более подробно тема освещена в сборниках Росстата «Сельское хозяйство, охота и лесоводство в России. 2009», «Итоги Всероссийской сельскохозяйственной переписи 2006 года» (в 9 томах), «Охрана окружающей среды в России. 2010».

Дата добавления: 2015-06-28