 |
 |
 |
 |
|
 |
 |
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