Реферат: Программирование в Turbo Pascal
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 | 0 | 0 | ||||
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | 0 | 0 | 0 | 0 |
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | ||||
| 0 | 0 | 0 | 0 | 0 | 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 | 3 | 1 | 3 |
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | 1 | 3 | 1 | 3 |
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | 1 | 3 | 1 | 3 |
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | 1 | 3 | 1 | 3 |
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | 1 | 3 | 1 | 3 |
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | 1 | 3 | 1 | 3 |
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | ||||
| 1 | 1 | 1 | 1 | 3 | 1 | 3 |
| 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. Фигурнов В.Э. IBMPC для пользователя. Изд. 6-е, М., 1995 г.
2. Фаронов В. В., Турбо Паскаль 7.0., Учебное пособие. – М.: «Нолидж», 1999 г.
3. Острейковский В.А. Информатика. –М.: «Высшая школа», 2000 г.