Информатика и выч. техника \ Информатика

Обработка таблиц с помощью Qbasic и Excel. Разработка алгоритма решения задачи на языке QBASIC, страница 8

IF RD(i) > 5 THEN P(i) = PL(i) * .1 * RD(i): GOTO met

IF RD(i) >= 3 THEN P(i) = PL(i) * .1 ELSE IF RD(i) > 1 THEN P(i) = PL(i) * .05 ELSE P(i) = 0

met:

OS(i) = PL(i) + P(i)

NEXT i

CLS

PRINT #2, TAB(35); "ВЕДОМОСТЬ ОПЛАТЫ ПЕРЕГОВОРОВ"

REM Вывод на экран шапки таблицы

PRINT #2, : PRINT #2,

PRINT #2, STRING$(95, "-")

PRINT #2, STRING$(95, "-")

PRINT #2,"| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 12 | 13 | 14 |"

PRINT #2, STRING$(95, "-")

REM Вывод на экран значений по строкам таблицы

f1$ = "|\ \|\ \|\ \| ## | ## |##.##|##.##|##.##| ## | ### |####.##|###.##|####.##|"

FOR i = 1 TO m

PRINT #2, USING f1$; G$(i); T$(i); f$(i); DR(i); DPL(i); VS(i); VO(i); TAR(i); RD(i); KM(i); PL(i); P(i); OS(i)

NEXT i

PRINT #2, STRING$(95, "-")

CLOSE #2

END

Результат выполнения программы

ВЕДОМОСТЬ ОПЛАТЫ ПЕРЕГОВОРОВ

----------------------------------------------------------------------------------------------| город | телефон|фамилия|дата|дата|время|время|тариф|кол-во|кол-во| сумма | | общая |

----------------------------------------------------------------------------------------------| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 12 | 13 | 14 |

----------------------------------------------------------------------------------------------|Бикин |55-88-22|Климов | 15 | 24 |10.30|10.35| 2.30| 9 | 5 | 11.50| 10.35| 21.85|

|Вильнюс |55-88-22|Климов | 15 | 20 |20.50|21.05|14.00| 5 | 15 | 210.00| 21.00| 231.00|

|Вологда |54-45-89|Буланов| 10 | 10 |17.15|17.25| 7.10| 0 | 10 | 71.00| 0.00| 71.00|

|Донецк |53-20-16|Аннин | 7 | 15 |13.20|13.25|12.20| 8 | 5 | 61.00| 48.80| 109.80|

|Ижевск |32-40-99|Сидоров| 6 | 7 |12.10|12.20| 7.00| 1 | 10 | 70.00| 0.00| 70.00|

|Ленск |54-45-89|Буланов| 3 | 10 |15.50|16.00| 4.40| 7 | 10 | 44.00| 30.80| 74.80|

|Москва |33-32-42|Якина | 5 | 7 |16.35|16.40|13.40| 2 | 5 | 67.00| 3.35| 70.35|

|Москва |33-32-42|Якина | 5 | 5 | 8.10| 8.14|13.40| 0 | 4 | 53.60| 0.00| 53.60|

|Москва |33-32-42|Якина | 29 | 30 |15.18|15.30|13.40| 1 | 12 | 160.80| 0.00| 160.80|

|Москва |54-20-54|Оприна | 25 | 25 |14.15|14.50|13.40| 0 | 35 | 469.00| 0.00| 469.00|

|Норильск |37-11-68|Рыбаков| 15 | 15 |14.30|14.35| 6.00| 0 | 5 | 30.00| 0.00| 30.00|

|Омск |32-40-99|Сидоров| 24 | 27 |12.10|12.19| 8.00| 3 | 9 | 72.00| 7.20| 79.20|

|Омск |32-40-99|Сидоров| 14 | 20 |21.10|21.17| 8.00| 6 | 7 | 56.00| 33.60| 89.60|

|Пермь |36-42-12|Юдин | 8 | 9 |19.10|19.15| 8.20| 1 | 5 | 41.00| 0.00| 41.00|

|Ростов |33-32-42|Якина | 10 | 10 |17.30|17.40|10.00| 0 | 10 | 100.00| 0.00| 100.00|

|Самара |55-88-22|Климов | 3 | 4 |10.00|10.10| 7.40| 1 | 10 | 74.00| 0.00| 74.00|

|Самара |21-13-99|Яковлев| 12 | 12 |20.50|21.00| 7.40| 0 | 10 | 74.00| 0.00| 74.00|

|Томск |54-45-89|Буланов| 21 | 21 |23.15|23.28|10.00| 0 | 13 | 130.00| 0.00| 130.00|

|Томск |54-45-89|Буланов| 23 | 28 |20.18|20.50|10.00| 5 | 32 | 320.00| 32.00| 352.00|

|Улан-Удэ |37-26-45|Грушева| 14 | 16 | 9.15| 9.20|12.00| 2 | 5 | 60.00| 3.00| 63.00|

-----------------------------------------------------------------------------------------------

1 2 3 4 5 6 7 8

Скачать файл