Notice: Undefined variable: title in /home/area7ru/area7.ru/docs/referat.php on line 164
Реферат: Программирование в Turbo Pascal - Рефераты по кибернетике - скачать рефераты, доклады, курсовые, дипломные работы, бесплатные электронные книги, энциклопедии

Notice: Undefined variable: reklama2 in /home/area7ru/area7.ru/docs/referat.php on line 312

Главная / Рефераты / Рефераты по кибернетике

Реферат: Программирование в Turbo Pascal



Notice: Undefined variable: ref_img in /home/area7ru/area7.ru/docs/referat.php on line 323
Московский Государственный Индустриальный Университет
Институт Дистанционного Образования
Курсовая работа
по дисциплине: «ИНФОРМАТИКА» по теме: «Выполнение задания по программированию в 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.pric...

ВНИМАНИЕ!
Текст просматриваемого вами реферата (доклада, курсовой) урезан на треть (33%)!

Чтобы просматривать этот и другие рефераты полностью, авторизуйтесь  на сайте:

Ваш id: Пароль:

РЕГИСТРАЦИЯ НА САЙТЕ
Простая ссылка на эту работу:
Ссылка для размещения на форуме:
HTML-гиперссылка:



Добавлено: 2012.04.11
Просмотров: 1473

Notice: Undefined offset: 1 in /home/area7ru/area7.ru/docs/linkmanager/links.php on line 21

При использовании материалов сайта, активная ссылка на AREA7.RU обязательная!

Notice: Undefined variable: r_script in /home/area7ru/area7.ru/docs/referat.php on line 434