 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Data «», «», 0, 0, «»
Отметим, что при использовании языка 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 ' кон
Поиск по сайту: