 |
 |
 |
 |
|
 |
 |
111
Что и требовалось. Следовательно, метод правильный.
Приведем сценарий диалога решения поставленной задачи на ЭВМ. Для представления данных в
программе примем последовательность операторов data.
Сценарий
Представление данных
Данные об учениках
фамилия вес рост
dano:'данные учеников
<Fam1> <V1> <R1>
data «Иванов», 185, 85
… … …
data «Петрова», 165, 65
<Fam
N
> <V
N
> <R
N
>
data «Сидоров», 170, 80
data «», 0, 0
суммарный вес = <Vsum>
Алгоритм обработки данных и программа, соответствующие выбранному сценарию и методу
вычисления:
Алгоритм
Программа
алг «суммарный вес»
' суммарный вес
нач
cls
вывод («данные об учениках»)
? «данные об учениках»
вывод («фамилия вес рост»)
? «фамилия вес рост»
s := 0
s = 0
цикл
do
чтение fam$, r, v
read fam$, r, v
при fam$=«» выход
if fam$=«» then exit do
вывод (fam$, v, r)
? fam$; v; r
s := s + v
s = s + v
кцикл
loop
vsum = s
vsum = s
вывод («суммарный вec=»,vsum)
? «суммарный вес=»; vsum
кон
end
Правильность приведенного алгоритма можно увидеть из описания результатов его выполнения.
Алгоритм
Результаты выполнения
алг «суммарный вес»
на экране и в памяти ЭВМ
нач
вывод («Данные об учениках»)
Данные об учениках
вывод («фамилия вес рост»)
фамилия вес рост
s: = 0
S
0
= 0
цикл
чтение fam$, r, v
при fam$=«» выход
вывод (fam$, v, r)
<fam
k
> <v
k
> <r
k
>
s: = s + v
s
k
= s
k-1
+ v
k
кцикл
[k = (1...n)]
vsum = s
vsum = s
n
вывод («суммарный вec=»,vsum)
суммарный вес= <vsum>
кон