 |
 |
 |
 |
|
 |
 |
117
Что и требовалось в постановке задачи. Следовательно, выбранный способ решения поставленной
задачи правилен и на его основе можно приступать к составлению соответствующих алгоритма и
программы.
Для систематичности разработки примем следующий сценарий диалога и представление исходных
данных в операторах data.
Сценарий
Представление данных
список товаров
товар цена кол-во
<тов1> <с1> <т1> *
dan: 'сведения о товарах
… .... ...
data яблоки, 8000, 3
сумма = <Sum>
data бананы, 4000, 2
Максимум
data арбузы, 1000, 20
<товар> <стоим>
data «», 0, 0
Приведем алгоритм и программу решения поставленной задачи в соответствии с выбранным
сценарием и представлением данных.
Алгоритм
Программа
алг «сумма и максимум»
' сумма и максимум
нач
сls
вывод («список товаров»)
? «список товаров»
вывод («товар цена кол-во»)
? «товар цена кол-во»
s := 0; k = 0
s = 0: k = 0
цикл
do
чтение (тов, с, т)
read tv$, с, m
при тов = «» выход
if tv$ = «» then exit do
k := k + 1
k = k + 1
вывод (тов, с, т)
? fv$; с; m
s :=s + c•m
s= s + c•m
если k = 1 то
if k = 1 then
max := c•m
max = c•m
ToвMax := тов
ТМ$ = tv$
инес c•m > max то
elseif c(m > max then
max := c•m
max = c•m
ToвMax := тов
TM = tv$
кесли
end if
кцикл
loop
вывод («cyммa=»,s)
? «cyммa=»,s
вывод («Максимум»)
? «Максимум»
вывод (ToвMax, max)
? TM$, max
кон
end
Сравнение результатов выполнения представленных алгоритма и программы с описанием
выбранного способа решения показывает их полное соответствие друг другу.
Алгоритм
Результаты выполнения
алг «сумма и максимум»
нач
вывод («список товаров»)
список товаров
вывод («товар цена кол-во»)
товар цена кол-во
s :=0; k = 0
s
0
=0 [k = 0]
цикл