 |
 |
 |
 |
|
 |
 |
55
Сценарий «Галерея картинок»
Список картинок:
1. треугольник
2. прямоугольник
3. кольцо
номер =
«N»
n = 1
n =2
n = 3
В соответствии с этими четырьмя картинками построим три вспомогательных алгоритма
рисования отдельных картинок из «Галереи» и общий алгоритм выбора картинок в соответствии с
приведенным выше сценарием:
алг «Галерея картинок»
нач
алг «рисунок_треугольника»
вывод («Список картинок:»)
нач
вывод («1. треугольник»)
линия (150,50)-(100,100)
вывод («2. прямоугольник»)
линия (150,50)-(200,100)
вывод («3. кольцо»)
линия (100,100)-(200,100)
запрос(«номер =», n)
кон
графический_экран
если n = 1 то
алг «рисунок_прямоугольника»
рисунок_треугольника
нач
инес n = 2 то
рамка (50,50)-( 150,100)
рисунок_прямоугольника
кон
инес n = 3 то
рисунок_кольца
алг «рисунок_кольца»
иначе
нач
вывод («нет такого рисунка»)
окружность (100,100), 20
все
окружность (100,100),50
кон
кон
Реализация данного алгоритма в виде структурированной программы:
Алгоритмы:
Программа:
алг «Галерея картинок»
'Галерея картинок
нач
cls
вывод («Список картинок:»)
print «Список картинок:»
вывод («1. треугольник»)
print «1. треугольник»
вывод («2. прямоугольник»)
print «2. прямоугольник»
вывод («З. кольцо»)
print «3. кольцо»
запрос(«номер =», n)
input «номер =», n
если n = 1 то
if n = 1 then
рисунок_треугольника
gosub treug
инеc n = 2 то
if n = 2 then
рисунок_прямоугольника
gosub box
инеc n = 3 то
if n = 3 then
рисунок_кольца
gosub ring
инеc п < 1 или n > 3 то
if n < 1 or n >3 then