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

Московский Государственный Индустриальный Университет

Институт Дистанционного Образования

Курсовая работа

по дисциплине: «ИНФОРМАТИКА» по теме: «Выполнение задания по программированию в TURBO PASCAL»

Выполнила: студентка группы 01М22

Белоусова Екатерина

Преподаватель:
Суворов С.В.

Москва, 2002

Содержание:

Стр.
1. Формулировка задания

3
2. Описание переменных 4
3. Блок-схема 5
4. Программа 6
5. Результаты проверки правильности программы 9
6. Результат подстановки данных в программу 10
7. Список используемой литературы

10

Формулировка задания:
На телефонном узле в конце каждого квартала составляется на каждого абонента ведомость оплаты междугородных телефонных разговоров (с 7-ю городами) в течение квартала (3 месяца).
Написать программу, которая вводит исходные данные, выполняет расчеты и выводит на экран:

V Исходные данные в виде таблицы, где указаны коды городов, с которыми велись разговоры, общее время разговора с каждым городом за один месяц, стоимость одной минуты разговора (меняется каждый месяц);

V Общая продолжительность разговоров с каждым городом за квартал;

V Плата за каждый месяц;

V Общая плата за 3 месяца;

V Город с наибольшей платой.

Требование к вводу информации:

Исходные данные вводятся с клавиатуры.

Требования к выводу результатов:

Результаты выводятся на экран.

Требования к структуре программы.

Программа должна состоять из следующих частей:

V Вывод заставки с информацией о студенте и задании;

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;

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 to 7 do begin write("Введите код ",i,"-го города: "); readln(tel.kod); write("Введите общее время разговора с городом ",tel.kod," за 1-й месяц:
"); readln(tel.tpm1); write("Введите стоимость одной минуты разговора с городом ",tel.kod," в
1-м месяце: "); readln(tel.price1); write("Введите общее время разговора с городом ",tel.kod," за 2-й месяц:
"); readln(tel.tpm2); write("Введите стоимость одной минуты разговора с городом ",tel.kod," в
2-м месяце: "); readln(tel.price2); write("Введите общее время разговора с городом ",tel.kod," за 3-й месяц:
"); readln(tel.tpm3); write("Введите стоимость одной минуты разговора с городом ",tel.kod," в
3-м месяце: "); readln(tel.price3); write(a,tel); end; close(a);reset(a); s:=1; while not eof(a) do begin read(a,tel); res[s].kod:=tel.kod; res[s].tpm:=tel.tpm1+tel.tpm2+tel.tpm3; res[s].pr1:=tel.tpm1*tel.price1; res[s].pr2:=tel.tpm2*tel.price2; res[s].pr3:=tel.tpm3*tel.price3; res[s].ob:=res[s].pr1+res[s].pr2+res[s].pr3; s:=s+1; end;close(a); clrscr; writeln("Код города Общее время разговора за каждый месяц Стоимость минуты разговора"); reset(a); while not eof(a) do begin read(a,tel); writeln(" ",tel.tpm1,"

",tel.price1); writeln(" ",tel.kod," ",tel.tpm2,"

",tel.price2); writeln(" ",tel.tpm3,"

",tel.price3); end; textcolor(14); gotoxy(18,24); writeln("Для продолжения работы программы нажмите ENTER"); readln; clrscr; textcolor(0); writeln("Код города Общее время разговора за квартал Плата за месяц
Общая плата"); for i:=1 to 7 do begin aa:=res[i].kod; writeln("
",res[i].pr1); writeln(" ",aa," ",res[i].tpm,"

",res[i].pr2," ",res[i].ob); writeln("
",res[i].pr3); end; max:=res[1].ob; for i:=1 to 6 do begin if res[i+1].ob>max then begin max:=res[i+1].ob; j:=i+1; end;

end; writeln("Город с наибольшей платой: ",res[j].kod); textcolor(14); gotoxy(18,24); writeln("Для завершения работы программы нажмите ENTER"); readln; end.

|Таблица исходных данных | |Таблица результатов |
| |0 |0 | | | |0 | |
| |0 |0 | | | |0 | |
| |0 |0 | | | |0 | |
| |0 |0 | | | |0 | |
| |0 |0 | | | |0 | |
| |0 |0 | | | |0 | |
| |0 |0 | | | |0 | |
| | | | |Город с наибольшей платой - 1 |
| | |Таблица результатов |
|Таблица исходных данных | | |
| |1 |1 | | | |1 | |
| |1 |1 | | | |1 | |
| |1 |1 | | | |1 | |
| |1 |1 | | | |1 | |
| |1 |1 | | | |1 | |
| |1 |1 | | | |1 | |
| |1 |1 | | | |1 | |
| | | | |Город с наибольшей платой - 1 |

Результат.

Результатом выполнения программы является вывод на экран информации о студенте и о задании, ввод исходных данных с клавиатуры в диалоговом режиме, вывод исходных и расчетных данных в виде таблицы.
Программа выполнена с учетом всех требований, указанных в задании.
|Таблица исходных данных |
|Код |Общее |Стоимость|
|города |время |минуты |
| |разговора |разговора|
| |за каждый | |
| |месяц | |
|1 |7 |10 |
| |8 |10 |
| |9 |15 |
|2 |1 |5 |
| |2 |5 |
| |3 |5 |
|3 |4 |6 |
| |5 |6 |
| |6 |7 |
|4 |2 |10 |
| |4 |20 |
| |8 |10 |
|5 |3 |7 |
| |2 |7 |
| |1 |7 |
|6 |4 |9 |
| |6 |10 |
| |7 |11 |
|7 |8 |13 |
| |9 |10 |
| |10 |14 |
|Таблица результатов |
|Код |Общая |Плата |Общая |
|города|продолжительно|за |плата |
| |сть разговоров|каждый| |
| |за квартал |месяц | |
|1 |24 |70 |285 |
| | |80 | |
| | |135 | |
|2 |6 |5 |30 |
| | |10 | |
| | |15 | |
|3 |15 |24 |96 |
| | |30 | |
| | |42 | |
|4 |14 |20 |180 |
| | |80 | |
| | |80 | |
|5 |6 |21 |42 |
| | |14 | |
| | |7 | |
|6 |17 |36 |173 |
| | |60 | |
| | |77 | |
|7 |27 |104 |334 |
| | |90 | |
| | |140 | |
| | | | |
|Город с наибольшей платой - 7 |

Список использованной литературы:
1. Фигурнов В.Э. IBM PC для пользователя. Изд. 6-е, М., 1995 г.
2. Фаронов В. В., Турбо Паскаль 7.0., Учебное пособие. – М.: «Нолидж», 1999 г.
3. Острейковский В.А. Информатика. –М.: «Высшая школа», 2000 г.
-----------------------

Конец

i = 7

Вывод города с наибольшей платой

max:= res[1+1].ob

max:= res[1].ob

i := 0

i := i+1

res[1+1].ob>max

i = 7

Вывод на экран таблицы результата расчетов

Конец файла записи

Вывод на экран таблицы исходных данных

Расчет общей продолжительности разговоров с каждым городом за квартал, платы за каждый месяц, общей платы за 3 месяца.

i = 7

Ввод кода города, общего времени разговора за каждый месяц, стоимости одной минуты разговора с городом за каждый месяц. Запись записи в файл.

i := 0

i := i+1

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

Вывод заставки на экран

Вызов модуля CRT

Описание типов переменных

Начало