ВУЗ:
Составители:
Рубрика:
19
3. Управляющие структуры
3.1. if...
if e1 then e2 else e3
if e1 then e2
e1 может генерировать не более одного значения
e3 могут генерировать столько значений, сколько позволяет
контекст.
3.2. case of
case e1 of
{
e2 : e3
e4 : e5
...
e2n : e2n+1
default : e2n+2
}
3.3. while do
while e1 do e2
while e1
Генерируется одно значение e1, и если НЕ ЛОЖЬ, то вы-
полняется e2.
Пример:
i:=0
while i<2 do {writes(" ",i);i+:=1}
Выход: 0 1
В следующем примере будут бесконечно «печататься» на
экране вводимые Вами строки символов:
while write(read( ))
20
3.4. until do
until e1 do e2
Эквивалентно while not e1 do e2
Пример
: Печать чисел Фибоначчи
procedure main()
local i,j
i:=1;j:=1
until i>100 do {write(i,j);i+:=j;i:=:j}
end
3.5. repeat – повторять до бесконечности.
i:=1
repeat
{
if i<10 then {write("i меньше 10");i:=i+1} else break
}
3. Управляющие структуры 3.4. until do until e1 do e2 3.1. if... Эквивалентно while not e1 do e2 if e1 then e2 else e3 Пример: Печать чисел Фибоначчи if e1 then e2 procedure main() e1 может генерировать не более одного значения local i,j e3 могут генерировать столько значений, сколько позволяет i:=1;j:=1 контекст. until i>100 do {write(i,j);i+:=j;i:=:j} end 3.2. case of 3.5. repeat – повторять до бесконечности. case e1 of { i:=1 e2 : e3 repeat { e4 : e5 if i<10 then {write("i меньше 10");i:=i+1} else break ... } e2n : e2n+1 default : e2n+2 } 3.3. while do while e1 do e2 while e1 Генерируется одно значение e1, и если НЕ ЛОЖЬ, то вы- полняется e2. Пример: i:=0 while i<2 do {writes(" ",i);i+:=1} Выход: 0 1 В следующем примере будут бесконечно «печататься» на экране вводимые Вами строки символов: while write(read( )) 19 20
Страницы
- « первая
- ‹ предыдущая
- …
- 8
- 9
- 10
- 11
- 12
- …
- следующая ›
- последняя »