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

Содержание:
Стр.
1. Формулировка задания 3
2. Описание переменных 4
3. Блок-схема 5
4. Программа 6
5. Результаты проверки правильности программы 9
6. Результат подстановки данных в программу 10
7. Список используемой литературы 10
Формулировка задания:
На телефонном узле в конце каждого квартала составляется на каждого абонента ведомость оплаты междугородных телефонных разговоров (с 7-ю городами) в течение квартала (3 месяца).
Написать программу, которая вводит исходные данные, выполняет расчеты и выводит на экран:
-Исходные данные в виде таблицы, где указаны коды городов, с которыми велись разговоры, общее время разговора с каждым городом за один месяц, стоимость одной минуты разговора (меняется каждый месяц);
-Общая продолжительность разговоров с каждым городом за квартал;
-Плата за каждый месяц;
-Общая плата за 3 месяца;
-Город с наибольшей платой.
Требование к вводу информации:
Исходные данные вводятся с клавиатуры.
Требования к выводу результатов:
Результаты выводятся на экран.
Требования к структуре программы.
Программа должна состоять из следующих частей:
-Вывод заставки с информацией о студенте и задании;
-Ввод данных (выполняется в диалоговом режиме);
-Вывод исходных данных и результатов (на один экран).
Требования к размещению исходных данных внутри программы.
Исходные данные располагаются в файле, компонентами которого являются записи. Структура каждой записи и типы ее полей выбираются в зависимости от задания.
Используемые цвета:
Черный (0) Светло-зеленый (10)
Красный (4) Желтый (14)
Описание переменных:
Описание типов:
Тип:telef=record
kod:integer;
tpm1,tpm2,tpm3,price1,price2,price3:integer;
end ;
Тип записи telef является представлением информации о городе, а именно: kod - код города, который является целым числом.
tpm1, tpm2, tpm3 - время разговора абонента с городом за 1-ый, 2-ой и 3-ий месяц соответственно, целые числа.
price 1, price 2, price 3 - стоимость 1-ой минуты разговора за 1-ый, 2-ой и 3-ий месяц соответственно, также целые числа.
Тип:telef1=record
kod,tpm,ob:integer;
pr1,pr2,pr3:integer;
end ;
Тип записи telef1 также является представлением информации о городе.
к od - код города, tpm - общее время разговора с городом за квартал (3 месяца).
pr 1, pr 2, pr 3 - стоимость разговора с городом за 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 .

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию