Примем, что запросы на поиск друзей по росту и результаты поиска будут выводиться на экран по следующему сценарию:
Сценарий «Поиск друзей»
выбор друзей по росту мин_рост = ? <min> макс_рост = ? <max> |
![]() ![]() |
нет таких |
Для представления данных о друзьях в программе воспользуемся следующими операторами
data:
dan: 'данные о друзьях
data «Иванов», «Саша», 180
data «Петров», «Вова», 160
data «Сидоров», «Миша», 190
data «», «», 0
Тогда в качестве решения на ЭВМ поставленной задачи в соответствии с выбранными сценарием и представлением сохраняемых данных, могут быть приняты следующие алгоритм и программа обработки данных.
Алгоритм Программа
алг «выбор друзей» ' выбор друзей
нач сls
вывод («выбор друзей по росту») print «выбор друзей по росту»
запрос («мин_рост =>», min) input «мин_рост =>», mn
запрос («макс_рост =<», тах) input «макс_рост =<», mх
чтение-таблицы dan restore dan
n: = 0 n = 0
цикл do
чтение (фам, имя, r) read fm$,im$,r
при фам = «» вых if fm$ = «» then exit do
если min £ r и r £ max то if mn<= r and r <= mx then
вывод (фам, имя) print fm$, im$
n: = n+1 n = n+1
все end if
кцикл loop
если n = 0 то if n = 0 then