Navigation bar
  Print document Start Previous page
 88 of 179 
Next page End  

88
окружность (100,100),50
circle (100,100),50
кон
return
Данный подход — составление структурированных алгоритмов — может применяться к
составлению структурированных программ для любых ЭВМ на любых языках программирования
Паскаль, Си, Ада, Модула и т. д.
На практике используется более широкий набор правил структурной композиции алгоритмов и
программ, принятых в современных языках программирования, — правила альтернативного выбора, а
также циклы с выходами и со счетчиками.
1. Условные действия:
если у < 0 то               
if у < 0 then
вывод («недопустим»)       
print «недопустим» 
кесли                      
end if
2. Многоальтернативный выбор:
если х > 1 то               
if х > 1 then
y: = 1
                        
у = 1 
инеc х < —1 то             
elseif х < —1 then
у: = -1                   
у = -1 
иначе                     
else
у: = х                       
у = х 
кесли                        
end if
3. Циклы со счетчиком:
от k = 1 до п цикл         
for к = 1 to n
вывод (k
• k)
                  
print k*k 
кцикл                       
next k
4. Циклы с выходами:
цикл                       
do
s: = s + х                  
s = s + х 
при х < 1 выход             
if x < 1 then exit do
х: = x/2                    
x = x/2 
кцикл                      
loop
В циклах в общем случае возможны несколько выходов. Дополнительные выходы считаются
допустимыми даже для циклов со счетчиками. Приведем примеры решения задач с использованием
дополнительных правил структурирования алгоритмов и программ.
Пример записи структурированных алгоритмов и программ с использованием циклов для алгоритма
игры-эксперимента «Звездное небо»:
Алгоритм
Программа
алг «звездное небо»
' звездное небо»
нач
cls
цикл
do
запрос(«звезд=», п)
input «звезд=», n
при п <= 0 выход
if n <= 0 then exit do
графический _экран
screen 2,10
от k = 1 до п цикл
for k = 1 to n
х: = случайное [0:200]
х = rnd*200
у: = случайное [0:200]
у = rnd*200
точка (х,у)
pset (x,y),3
кцикл
next k
кцикл
end do
Сайт создан в системе uCoz