 |
 |
 |
 |
|
 |
 |
108
do
' цикл
read fm$, nm$, r, v, pl$
' ввод fmS, nm$, r, v, pl$
if fm$ = «» then exit do
' если fm$ = «» то выход
fm$, nm$, r, v, pl$
' вывод fm$, nm$, r, v, pl$
if р1$=»муж» then
' если pl$ = «мyж» то
if vs = 0 then
' если vs = 0 то
vs = v
' vs = v
fs$ = finS: ns$ = nm$
' fs$ = fin$: ns$ = nm$
elseif v < vs then
' инес v < vs то
vs = v
' vs = v
fs$ = fm$: ns$ = nm$
' fs$ =fm$: ns$ = nm$
end if
' кесли
end if
' кесли
loop
' кцикл
? «самый легкий ученик:»
' вывод («самый легкий ученик:»)
if vs = 0 then
' если vs = 0 то
? «отсутствует»
' вывод («отсутствует»)
elseif vs > 0 then
' инес vs > 0 то
? fs$, ns, vs
' вывод (fs$, ns, vs)
end if
' кесли
end
' кон
data «Иванов», «Вова», 160, 85, «муж»
data «Петрова», «Катя», 167, 67, «жен»
data «Сидоров», «Миша», 180, 80, «муж»
data «», «», 0, 0, «»
Отметим, что при использовании языка Basic тексты программ и описания алгоритмов
полностью идентичны друг другу и по форме и по содержанию. Можно сказать, что текст про-
граммы на Бейсике получается переводом русских слов и словосочетаний на язык Бейсик и наобо-
рот.
Задача 2. «Экономическая».
Составить алгоритм и программу определения общей стоимости промышленных товаров
по данным из таблицы:
товар
тип
цена
кол-во
ананасы
прод
8000
40
утюги
пром
60000
3
сахар
прод
6000
20
Разработку алгоритма и программы начнем с составления сценария диалога, учитывая воз-
можность отсутствия в таблице требуемых исходных данных.
Сценарий
промышленные товары
отсутствуют
<товар> <цена> <кол> <стоим> *
… … …
общая стоимость = <sum>
Программа
Алгоритм
' стоимость промтоваров
'
алг «стоимость промтоваров»