Расчет оплаты междугородних переговоров по заданным направлениям с использованием Delphi

[IgOrEk4362]

Используя возможности программирования написать программу на языке Delphi, вычисляющую стоимость междугородних телефонных разговоров по заданным направлениям и вывести бланк квитанции оплаты за предоставляемые услуги. В среде Delphi создать проект – консольное приложение. Программа должна вычислять стоимость однократного междугороднего телефонного разговора по каждому из заданных направлений, их суммарную стоимость и выводить на экран бланк оплаты за услуги связи. Исходными данными для программы являются коды городов, продолжительность и тариф. В табл. 1 приведен полный список направлений и тарифов.
Таблица 1
№ направления Город Код города Тариф (руб./мин.)
1 Астрахань 851 8,80
2 Владивосток 432 13,30
3 Екатеринбург 343 8,80
4 Казань 843 6,10
5 Краснодар 861 11,50
6 Новосибирск 383 11,50
7 Омск 381 11,50
8 Саратов 845 6,20
9 Ставрополь 865 8,80
10 Тольятти 848 3,60
11 Уфа 347 6,25
12 Хабаровск 421 13,30
13 Талин 374 16,80
14 Рига 370 15,80
15 Ташкент 998 14,30
16 Киев 380 15,50
Предусмотреть в программе формирование массивов данных направлений городов, тарифов, времени разговора, необходимых для создания бланка оплаты. По коду города программа должна выбирать направление, со-ответствующее варианту. В случае ввода кода города не своего вари-анта должно выводиться сообщение об ошибке (например, «Код горо-да введен не верно!»). Повторение кода должно сопровождаться выво-дом соответствующего сообщения (например, «Направление уже было использовано»). При вводе ошибочных значений (типа тариф или дли-тельность разговора < 0) обеспечить вывод сообщений типа «Невер-ный ввод данных». По завершению ввода всех данных, заданных вари-антом, предусмотреть прерывание диалогового режима и переход к выводу бланка оплаты. Бланк оплаты должен включать следующие типы данных: це-лочисленные («Код города» и «Время»), вещественные в формате ра-боты с денежными единицами («Тариф» и «Стоимость») и строковые («Город» и шапка бланка оплаты). Под столбцом «Стоимость» бланка оплаты вывести суммарную стоимость всех разговоров абонента по заданным направлениям.
мой вариант
№ направления 3 7 12 15
время (мин.) 5 4 3 2

Рекомендуемый вид экрана во время работы программы:
Вычисление стоимости разговора по телефону.
Введите исходные данные:

Город –> Ташкент
Код города –> 998
Тариф –> 14.30
Длительность разговора (целое число минут) –> 3
. . . . .
Бланк оплаты:
Код города Время, мин Тариф, руб/мин Стоимость, руб Город
347 5 6.25 31.25 Уфа

[fbus]

пиши в аську, сделаю.

[IgOrEk4362]

щас напишу

[RUSt88]

пиши на мыло договоримся

[IgOrEk4362]

без бабок давайте!!!!!!!

[RUSt88]

так здесь и нет бабок, одни парни )

без бакинских сам делай

[maLoy*508]

без бабок давайте!!!!!!!

время стоит денег...

а хочешь без денег, то задавай конкретные вопросы с которыми тебе и помогут разобраться...