Програмування у Turbo Pascal

Московський Державний Індустріальний Университет.

Інститут Дистанційного Образования.

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

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

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

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

Викладач: Суворов С.В.

Москва, 2002.

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

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

Формулювання завдання: На телефонному вузлі наприкінці кожного кварталу складається кожного абонента відомість оплати міжміських телефонних розмов (з 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-ой і трьохий місяць відповідно, також цілі числа. Тип: 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; і - ціла кількість, яке у циклі введення вихідних даних, змінна «і» у разі приймає значення коду міст, також ця змінна використовують у циклі виведення результатів на екран, де виступає у ролі значення номери міста, тобто. у ролі номери елемента масиву res. max, jцілі числа, перемінні, використовувані визначення коду міста з лиця найбільшої оплатою за квартал. Перемінної max присвоюються значення загальної вартості розмови з містом за квартал, принаймні виконання програми перемінної max присвоюється найбільше значение.

Перемінної j присвоюється значення номери елемента масиву res і за визначенні міста з лиця найбільшої оплатою j присвоюється номер цього міста, у масиві res. p. s — ціла кількість, використовуване у циклі розрахунку результатів. Перемінної p. 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 («Запровадьте код » ,і, «-го міста: »); 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 р. ———————————;

Конец.

і = 7.

Висновок міста з лиця найбільшої платой.

max:= res[1+1]. ob.

max:= res[1]. ob.

і := 0.

і := i+1.

res[1+1]. ob>max.

і = 7.

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

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

і = 7.

Введення коду міста, загального часу розмови кожний місяць, вартості однієї хвилини діалогу з містом кожний місяць. Запис запис у файл.

і := 0.

і := i+1.

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

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

Виклик модуля CRT.

Опис типів переменных.

Начало.