Московский Государственный Индустриальный Университет Институт Дистанционного Образования Курсовая работа по дисциплине: "ИНФОРМАТИКА" по теме: "Выполнение задания по программированию в TURBO PASCAL"
    Выполнила: студентка группы 01М22
    Белоусова Екатерина
    Преподаватель: Суворов С.В. Москва, 2002 Содержание:
    Стр. 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-ий месяц соответственно, целые числа. 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, т.е. ............