62021 (694738), страница 2
Текст из файла (страница 2)
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 | 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 | |||
Список использованной литературы:
-
Фигурнов В.Э. IBM PC для пользователя. Изд. 6-е, М., 1995 г.
-
Фаронов В. В., Турбо Паскаль 7.0., Учебное пособие. – М.: «Нолидж», 1999 г.
-
Острейковский В.А. Информатика. –М.: «Высшая школа», 2000 г.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
