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

56
вывод («нет такого рисунка») 
     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: 'рисунок кольца
нач
cls
графический_экран
   screen 2,0
окружность (100,100),20
   circle (100,100),20
окружность (100,100),50
   circle (100,100),50
кон
return
Данный подход - составление структурированных алгоритмов может применяться к со-
ставлению структурированных программ для любых ЭВМ на любых языках программирования -
Паскаль, Си, Ада, Модула и т. д.
На практике используется более широкий набор правил структурной композиции алгорит-
мов и программ, принятых в современных языках программирования, ~ правила альтернативного
выбора, а также циклы с выходами и со счетчиками.
1. Условные действия.
если у < 0 то               
if у < 0 then
вывод («недопустим»)       
   print «недопустим» 
кесли                     
end if
2. Многоальтернативный выбор.
если х > 1 то               
if х > 1 then
у: = 1                      
   у = 1 
инес х < -1 то             
elseif х < -1 then
у: = -1                   
   у = -1 
иначе                     
else
у: = х                        
   у = х 
кесли                         
end if
3. Циклы со счетчиком:
от k = 1 до п цикл          
for k = 1 to n
вывод (k
k)                 
print k*k 
кцикл                       
next k
4. Циклы с выходами. 
цикл                    
do
s: = s + x                            
   s = s + x
при х < 1 выход            
if х < 1 then exit do
Сайт создан в системе uCoz