ОператорыОператор MIDletPascal может быть следующим:
| · | цикл for |
| · | цикл while |
| · | цикл repeat .. until |
| · | оператор break |
| · | оператор if .. then .. else |
| · | оператор присваивания |
| · | вызов процедуры/функции |
Цикл for
Цикл for имеет следующий синтаксис:
for loopIndex := НачальноеЗначение to КонечноеЗначение do
begin
Операторы;
end;
Для того, чтобы создать цикл с обратным (уменьшающимся) отсчётом, необходимо вместо to использовать downto.
Следующий пример вычисляет сумму всех цифр от 1 до 10:
...
for i:= 1 to 10 do
begin
sum := sum + i;
end;
...
Если внутри цикла только один оператор, ключевые слова begin и end можно опустить.
Цикл while
Цикл while имеет следующий синтаксис:
while Условие do
begin
Операторы;
end;
Например, чтобы подождать нажатия кнопки пользователем, мы можем написать:
...
while (getKeyClicked = KE_NONE) do
begin
delay(100);
end;
...
Если внутри цикла только один оператор, ключевые слова begin и end можно опустить.
Цикл repeat .. until
Цикл repeat .. until имеет следующий синтаксис:
repeat
Операторы;
until УсловиеОкончания;
Чтобы подождать нажатия кнопки пользователем, мы можем написать:
...
repeat
delay(100);
until (getKeyClicked <> KE_NONE);
...
Оператор break
Оператор break используется для прерывания циклов for, while и repeat.
...
repeat
for i := 1 to 10 do
begin
if doSomething(i) = -1 then break; // выходим из цикла for
end;
until getClickedCommand <> emptyCommand;
...
Оператор if .. then .. else.
Оператор if .. then .. else имеет следующий синтаксис:
if Условие then
begin
Операторы; { выполняется, если Условие истинно }
end
[
else
begin
Операторы; { выполняется, если Условие ложно }
end;
]
ветвь else может быть опущена. Если внутри ветви используется один оператор, ключевые слова begin и end могут быть опущены.
Оператор присваивания
Оператор присваивания используется для присваивания значений переменным и имеет следующий синтаксис: Читать полностью »
