Программирование в Turbo Pascal
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 |
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 г.