Отметим, что при использовании языка Basic тексты программ и описания алгоритмов полностью идентичны друг другу и по форме и по содержанию. Можно сказать, что текст программы на Бейсике получается переводом русских слов и словосочетаний на язык Бейсик и наоборот.
Задача 2. «Экономическая».
Составить алгоритм и программу определения общей стоимости промышленных товаров по данным из таблицы:
товар | тип | цена | кол-во |
ананасы | прод | ||
утюги | пром | ||
сахар | прод |
Разработку алгоритма и программы начнем с составления сценария диалога, учитывая возможность отсутствия в таблице требуемых исходных данных.
Сценарий
промышленные товары
отсутствуют
<товар> <цена> <кол> <стоим> *
… … …
общая стоимость = <sum>
Программа Алгоритм
' стоимость промтоваров ' алг «стоимость промтоваров»
сls ' нач
? «промтовары:» ' вывод («промтовары:»)
n = 0: sum = 0 ' п = 0: sum = 0
|
|
do ' цикл
read tv$, tp$, сn, kl ' ввод tv$, tp$, сn, kl
if tv$ = «» then exit do ' если tv$ = «» то выход
if tp$ = «пром» then ' если tp$ = «пром» то
n = n + 1 ' n =n + 1
st = cn*kl ' st = cn *kl
? tv$, en; kl; st ' вывод (tv$, en, kl, st)
sum = sum + st ' sum = sum + st
end if ' кесли
loop ' кцикл
if n = 0 then ' если n = 0 то
? «отсутствуют» ' вывод («отсутствуют»)
else ' иначе
? «общая cтoимocть=»,sum ' вывод(«общая стоимость =», sum)
end if ' кесли
end ' кон