#39;);
readln;
end.
Завдання 4. На телефонному вузлі в кінці кожного кварталу складається на кожного абонента відомість оплати міжміських телефонних розмов (з 7-ма містами) протягом кварталу (3 місяці)
Написати програму, яка вводить вихідні дані, виконує розрахунки і виводить на екран:
Гј Вихідні дані у вигляді таблиці, де вказані коди міст, з якими велися розмови, загальний час розмови з кожним містом за один місяць, вартість однієї хвилини розмови (змінюється кожен місяць);
Гј Загальна тривалість розмов з кожним містом за квартал;
Гј Плата за кожен місяць;
Гј Загальна плата за 3 місяці;
Гј Місто з найбільшою платою.
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;
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 ('Вимоги до розміщення вихідних даних всередині програми '); p> 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 ('Введіть код', i, '-го міста:');
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 ('Вве...
