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

Тип:telef=record

kod:integer;

tpm1,tpm2,tpm3,price1,price2,price3:integer;

end ;

Тип записи telef является представлением информации о городе, а именно: kod - код города, который является целым числом.

tpm1, tpm2, tpm3 - время разговора абонента с городом за 1-ый, 2-ой и 3-ий месяц соответственно, целые числа.

price 1, price 2, price 3 - стоимость 1-ой минуты разговора за 1-ый, 2-ой и 3-ий месяц соответственно, также целые числа.

Тип:telef1=record

kod,tpm,ob:integer;

pr1,pr2,pr3:integer;

end ;

Тип записи telef1 также является представлением информации о городе.

к od - код города, tpm - общее время разговора с городом за квартал (3 месяца).

pr 1, pr 2, pr 3 - стоимость разговора с городом за 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 .