 |
 |
 |
 |
|
 |
 |
87
вывод («З. кольцо»)
линия (100,100)-(200,100)
запрос(«номер =», п)
кон
графический_экран
если п = 1 то
алг «рисунок_прямоугольника»
рисунок_треугольника
нач
инес п = 2 то
рамка (50,50)-(150, 100)
рисунок_прямоугольника
кон
инес п = 3 то
рисунок_кольца
алг «рисунок_кольца»
иначе
нач
вывод («нет такого рисунка»)
окружность (100,100),20
все
окружность (100,100), 50
кон
кон
Реализация данного алгоритма в виде структурированной программы:
Алгоритмы: Программа:
алг «Галерея картинок»
' Галерея картинок
нач
сls
вывод («Список картинок:»)
print «Список картинок:»
вывод («1. треугольник»)
print «1. треугольник»
вывод («2. прямоугольник»)
print «2. прямоугольник»
вывод («З. кольцо»)
print «3. кольцо»
запрос(«номер =», п)
input «номер =», n
если п = 1 то
if n = 1 then
рисунок_треугольника
gosub treug
инеc п =2 то
if n = 2 then
рисунок_прямоугольника
gosub box
инеc п = 3 то
if n = 3 then
рисунок_кольца
gosub ring
инеc п < 1 или п > 3 то
if n < 1 or n >3 then
вывод («нет такого рисунка»)
print «нет такого рисунка»
все
'все
кон
end
алг «рисунок треугольника»
treug: 'рисунок треугольника
нач
cls
графический_экран
screen 2,0
линия (150,50)-(100,100)
line (150,50)-(100,100),3
линия (150,50)-(200,100)
line (150,50)-(200,100),3
линия (100,100)-(200,100)
line (100,100)-(200,100),3
кон
return
алг «рисунок прямоугольника»
box: 'рисунок прямоугольника
нач
cls
графический_экран
screen 2,0
рамка (50,50)-(150,100)
line (50,50)-(150,100),3,b
кон
return
алг «рисунок кольца»
ring: 'рисунок кольца
нач
els
графический _экран
screen 2,0
окружность (100,100),20
circle (100,100),20