 |
 |
 |
 |
 |
 |
Диссертации на заказ
дипломы на заказ
рефераты на заказ
Форум
Наш партнёр:
ChangePoint.Ru -
Обмен WebMoney в Израиле
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ
скачать реферат
Московский Государственный Индустриальный Университет
Институт Дистанционного Образования
Курсовая работа
по дисциплине: "ИНФОРМАТИКА"
по теме: "Выполнение задания по программированию в 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, т.е. этот массив содержит информацию о 7-ми городах, полученную в результате расчетов, произведенных в программе.
i,j,aa,max: integer;
i - целое число, которое используется в цикле ввода исходных данных,
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ
Нет
Да
Нет Да
Да
Нет Нет Нет Да
Да Да
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; tel:telef; res:array[1..7] of telef1; i,j,s,aa,max:integer; begin; textbackground(10); clrscr; textcolor(0); gotoxy(15,2); writeln('Курсовая работа студента группы 01М22 Белоусовой Е.В.'); gotoxy(27,3); writeln('Задание на курсовую работу:'); textcolor(4); writeln; writeln(' На телефонном узле в конце каждого квартала составляется на каждого абонента'); writeln('ведомость оплаты междугородных телефонных разговоров (с 7-ю городами) в течение'); writeln('квартала (3 месяца).'); writeln(' Написать программу, которая вводит исходные данные, выполняет расчеты и '); writeln('выводит на экран:'); writeln(' - исходные данные в виде таблицы, где указаны коды городов, с которыми велись'); writeln(' разговоры, общее время разговора с каждым городом за один месяц, стоимость'); writeln(' одной минуты разговора (меняется каждый месяц);'); writeln(' - общая продолжительность разговоров с каждым городом за квартал;'); writeln('плата за каждый месяц;'); writeln('общая плата за 3 месяца;'); writeln('город с наибльшей платой.'); gotoxy(27,18); textcolor(0); writeln('Требование к вводу информации'); textcolor(4); writeln(' - исходные данные вводятся с клавиатуры.'); textcolor(0); writeln; writeln(' Требование к выводу результатов'); textcolor(4); writeln(' - результат выводятся на экран.'); textcolor(14); writeln; writeln(' Для продолжения работы программы нажмите ENTER'); readln; clrscr; textcolor(0); writeln(' Требования к структуре программы '); textcolor(4); writeln(' Программа должна состоять из следующих частей:'); writeln(' - вывод заставки с информацией о студенте и задании;'); writeln(' - ввод данных (выполняется в диалоговом режиме);'); writeln(' - вывод исходных данных и результатов (на один экран).'); textcolor(0); writeln(' Требования к размещению исходных данных внутри программы '); textcolor(4); writeln(' Исходные данные располагаются в файле, компонентами которого являются записи.'); writeln('Структура каждой записи и типы ее полей выбираются в зависимости от задания.'); textcolor(0); writeln(' Используемые цвета '); textcolor(4); writeln(' - черный(0),красный(4), светло-зеленый(10), желтый(14)'); textcolor(14); gotoxy(18,24); writeln('Для продолжения работы программы нажмите ENTER'); readln; clrscr; assign(a,'kurs.dat'); rewrite(a); textcolor(0); for i:=1
скачать реферат
1 2
Не нашли нужную работу? Закажи реферат, курсовую, диплом на заказ
Внимание! Студенческий отдых и мегатусовка после сессии!