preload
Янв 01

ОператорыОператор 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 могут быть опущены.

Оператор присваивания

Оператор присваивания используется для присваивания значений переменным и имеет следующий синтаксис: Читать полностью »


Янв 01

Объявления процедур и функций
Функции, это подпрограммы, возвращающие какое-либо значение. Процедуры, это подпрограммы, которые ничего не возвращают. Читать полностью »


Янв 01

Объявления переменных
Чтобы объявить переменную, используйте ключевое слово var:

program variableDeclarations;
var
index: integer;
field: array[1..15] of integer;
begin
for index := 1 to 15 do
field[index] := 10;
end.


Янв 01

Объявления типов
Вы можете объявлять собственные типы данных. Чтобы делать это, используйте ключевое слово type:

program myOwnTypes;
type
number = integer;
chessFieldType = array[1..8, 1..8] of integer;
chessElementType = record
positionRow, positionCol: integer;
elementType: integer;
end;
var
element: chessElementType;
field: chessFieldType;
numberOfPlayers: number;
begin
end.


Янв 01

Объявления констант
Константа определяет значение, закреплённое за именем. Посмотрим на пример:

program constantDeclaration;
const
minutesInHour = 60;
hoursInDay = 24;
famousQuote = 'Быть или не быть';
begin
end.