Print using та текстові значення

В таблиці 14.2 представлені різні специфікації форматів, які використовуються оператором PRINT USING для виводу текстових значень.

Таблиця 14.2 .

Символ	Значення
&	Вивід всього текстового значення
!	Вивід першого символу текстового значення
\\	Визначення числа символів

Масиви економічної інформації

Багато економічних та інженерних задач представляють собою сукупність лінійних, розгалужених та циклічних процесів, причому й результати обчислень, й вхідні дані часто доводиться зводити в таблицю. В зв’язку з цим при програмуванні виникає необхідність забезпечити формування готового документа, включаючи його шапки та заголовки. В мовах програмування є відповідні засоби, які дозволяють розв’язувати цю задачу.

Зразок виконання завдання.

Дано:

№ п/п	Наймену-вання товару	Один. вимір.	Кіль-кість товару	Вартість за одиницю товару	Вартість товару
1	Фарба емаль	Банка	47	18.58
2	Лінолеум	м2	457	12.50
3	Посуд	Компл.	148	249.00
4	Сірники	Короб.	257	0.12
5	Телевізор	Шт.	35	547.00
Вартість усіх товарів, всього:

Треба:

1. Ввести масив в пам’ять ПК.

2. Упорядкувати його за елементами деякого поля.

3. Обробити за певним алгоритмом і результати обробки видати на екран за заданою формою.

4. В готовому документі усі графи повинні бути заповнені.

Для одержання математичної моделі задачі вводимо позначення:

K - № п/п;

A$(i) – найменування товару;

B$(i) – одиниці вимірювання;

Kol(i) – кількість товару;

Cena(i) – вартість за одиницю;

C(i) – вартість товару;

S – вартість всіх товарів;

N – кількість рядків таблиці.

Тоді математичне формулювання задачі запишеться наступним чином:

C(i) = kol(i) * cena(i),

.

REM Програма 1

CLS

‘ Лабораторна робота № 14

‘ Обробка масиву економічної інформації

INPUT n

DIM a$(n), b$(n), kol(n), cena(n), c(n)

' Ввід масиву в пам’ять ПК.

PRINT TAB(15); "Вхідний масив інформації"

FOR i = 1 TO n

READ a$(i), b$(i), kol(i), cena(i)

PRINT a$(i), b$(i), kol(i), cena(i)

NEXT i

'Упорядкувати масив за найменуваннями товарів за абеткою.

FOR p = 1 TO n - 1

FOR i = 1 TO n - 1

IF a$(i) > a$(i + 1) THEN

SWAP a$(i), a$(i + 1)

SWAP b$(i), b$(i + 1)

SWAP kol(i), kol(i + 1)

SWAP cena(i), cena(i + 1)

END IF

NEXT i

NEXT p

' Обчислити вартість кожного товару та усіх товарів і результат видати на екран у вигляді таблиці.

PRINT

PRINT TAB(26); "Р Е З У Л Ь Т А Т И"

PRINT TAB(15); "обробки масиву економічної інформації"

PRINT TAB(10); "------------------------------------------------------"

PRINT TAB(10); ": N : Найменування :Один. :Кіл-ть:Ціна за :Вартість:"

PRINT TAB(10); ":n/n:товару:вимір:товару:одиницю:товару :"

PRINT TAB(10); "------------------------------------------------------"

k = 0: s = 0

FOR i = 1 TO n

k = k + 1: c(i) = kol(i) * cena(i): s = s + c(i)

PRINT TAB(10); ":"; k;

PRINT TAB(14); ":"; a$(i);

PRINT TAB(31); ":"; b$(i);

PRINT TAB(37); ":"; USING "####"; kol(i);

PRINT TAB(44); ":"; USING "###.##"; cena(i);

PRINT TAB(52); ":"; USING "#####.##"; c(i);

PRINT TAB(62); ":"

NEXT i

PRINT TAB(10); "------------------------------------------------------"

PRINT TAB(15); "Вартість усіх товарів, всього";

PRINT TAB(52); s

END

DATA Телевізор,шт,35,547

DATA Сірники,короб,257,.12

DATA Посуд,компл,148,249

DATA Фарба емаль,банка,47,18.58

DATA Лінолеум,м.кв.,457,12.50

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

Вхідний масив інформації

Телевізор	шт.	35	547.00
Сірники	короб	257	0.12
Посуд	компл	148	249.00
Фарба емаль	банка	47	18.58
Лінолеум	м.кв.	457	12.50

№ п/п	Найменування товару	Один. вимір.	Кіль-ть товару	Ціна за одиницю	Вартість товару
1	Фарба емаль	банка	47	18.58	873.26
2	Лінолеум	м.кв.	457	12.50	5712.50
3	Посуд	компл	148	249.00	36852.00
4	Сірники	короб	257	0.12	30.84
5	Телевізор	шт.	35	547.00	19145.00
Вартість усіх товарів, всього:					62613.60