Программирование в Turbo Pascal

Категория реферата: Рефераты по кибернетике
Теги реферата: bestreferat, изложение 7 класс
Добавил(а) на сайт: Силан.

V Ввод данных (выполняется в диалоговом режиме);

V Вывод исходных данных и результатов (на один экран).

Требования к размещению исходных данных внутри программы.
Исходные данные располагаются в файле, компонентами которого являются записи. Структура каждой записи и типы ее полей выбираются в зависимости от задания.

Используемые цвета:

Черный (0) Светло-зеленый (10)

Красный (4) Желтый (14)

Описание переменных:

Описание типов:
Тип: telef=record kod:integer; tpm1,tpm2,tpm3,price1,price2,price3:integer; end;

Тип записи telef является представлением информации о городе, а именно: kod - код города, который является целым числом. tpm1,tpm2,tpm3 - время разговора абонента с городом за 1-ый, 2-ой и 3-ий месяц соответственно, целые числа. price1,price2,price3 - стоимость 1-ой минуты разговора за 1-ый, 2-ой и 3- ий месяц соответственно, также целые числа.
Тип: telef1=record kod,tpm,ob:integer; pr1,pr2,pr3:integer; end;

Тип записи telef1 также является представлением информации о городе. кod - код города, tpm - общее время разговора с городом за квартал (3 месяца). pr1,pr2,pr3 - стоимость разговора с городом за 1-ий, 2-ой и 3-ий месяцы соответственно. оb- общая стоимость разговора с городом за квартал.

Все поля типа записи telef1- целые числа.

Описание переменных: а:file of telef;

Типизированный файл «а» содержит записи типа telef, т.е. содержит исходную информацию о каждом городе, времени разговора с каждым городом помесячно и стоимость минуты разговора за каждый месяц квартала. tel:telef; tel-запись типа telef, содержащая информацию о городе. tel-запись, которой по мере выполнения программы, присваиваются значения записей, находящихся в типизированном файле «а». res: array[1..7] of telef1; res - одномерный массив, содержащий 7 элементов типа telef1, т.е. этот массив содержит информацию о 7-ми городах, полученную в результате расчетов, произведенных в программе. i,j,aa,max: integer; i - целое число, которое используется в цикле ввода исходных данных, переменная «i» в этом случае принимает значения кода городов, также эта переменная используется в цикле вывода результатов на экран, где выступает в роли значения номера города, т.е. в роли номера элемента массива res. max,j- целые числа, переменные, используемые для определения кода города с наибольшей оплатой за квартал. Переменной max присваиваются значения общей стоимости разговоров с городом за квартал, по мере выполнения программы переменной max присваивается наибольшее значение.

Переменной j присваивается значение номера элемента массива res и при определении города с наибольшей оплатой j присваивается номер этого города в массиве res. s - целое число, используемое в цикле расчета результатов. Переменной s присваиваются значения от 1 до 7, т.е. значения номеров элементов массива res.

Нет

Да

Нет Да

Да

Нет

Нет

Нет Да

Да

Да

program kursovik; uses crt;

type telef=record kod:integer; tpm1,tpm2,tpm3,price1,price2,price3:integer; end; telef1=record kod,tpm,ob:integer; pr1,pr2,pr3:integer; end; var a:file of telef;

Поделитесь этой записью или добавьте в закладки