Navigation bar
  Print document Start Previous page
 55 of 144 
Next page End  

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
Сайт создан в системе uCoz