Если x=2, то выполнить команду (вывод окна), если нет, то не выполнять её:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
If x = 2 then ShowMessage(‘1 = 2’); // var x:Integer;
[/cc]
Выполнение блока команд, если x=1, если нет, то не выполнять:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
If x=1 then begin ShowMessage(‘1-я команда’); ShowMessage(‘2-я команда’);
end; // var i:integer;
[/cc]
Выбор и выполнение одной из двух команд в зависимости от того x=2 или нет:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
If x = 2 then ShowMessage(‘x = 2’) else ShowMessage(‘x не равняется двум’);
// var x:integer;
[/cc]
Выполняет (цикл) следующий код несколько раз подряд (например 5 раз):
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
for i := 1 to 5 do // var i : Integer;
[/cc]
Оператор безусловного перехода goto. После команды goto m; команды не выполнять, а начать выполнять после метки m: в коде программы:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
m: ShowMessage(‘Информационное ‘+#13#10+’сообщение 1’);
goto m; // не забудте поставить label m;
GotoLabel; // Бесконечный цикл вывода диалогового окна.
[/cc]
Внимание ! Перед begin поставить label m; Метки объявляются через запятую (label m, v, е; begin), в конце ставится “;”
Выбор произвольного значения переменной int от 1 до 6:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
int := RandomRange(1,7); // int: Integer;
[/cc]
После uses ставь , Math; Внимание ! Первые 2 значения всегда 1 !
Увеличение значения переменной s на единицу:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
Inc(s); // s: integer;
[/cc]
Уменьшение значения переменной s на семь :
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
Dec(s, 7); // s: integer;
[/cc]
Запись в переменную “r” True, если переменная “x” содержит нечетное число и False , если четное:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
r:=Odd(x); //var x: Integer; r:Boolean;
[/cc]
Немедленный выход из подпрограммы (подпрограмма должна оканчиваться – end;) или закрытие приложения, если подпрограмма главная (единственная) программа – Exit; // может не срабатывать.
Выход из цикла – break;
Нахождение наименьшего значения двух переменных ( x1, x2) и присваивание его третьей переменной y:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
y := Min( x1, x2); // uses Math; var x1, x2, y: Integer;
[/cc]
Нахождение наибольшего значения двух переменных ( x1, x2) и присваивание его третьей переменной y –
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
y := Max( x1, x2); // uses Math; var x1, x2, y: Integer;
[/cc]
Отбрасывание дробной части числа и присвоение целой части переменной x:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:=Int(12.954); //x: Extended; Здесь x=12.
[/cc]
Обнуление целой части числа и присвоение его переменной:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
x:=Frac(12.009); //x: Extended; Здесь x=0.009.
[/cc]
Выводить текстовое сообщение (повторять цикл) пока x=1:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
while x=1 do begin ShowMessage(‘первая команда’);
end;
[/cc]
Вывести текстовое сообщение и повторять цикл (вывод сообщения) пока x=1:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
repeat ShowMessage(‘первая команда’) until x=1;
[/cc]
Если в коде возникнет ошибка, то выполнять программу дальше, если этот код заключён в (блок try finally):
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
try
MessageDlg(‘здесь ошибка !’, mtError, [mbOK], 0);
finally
ShowMessage(‘выполнять не смотря ни на что’);
end;
end;
[/cc]
Циклическое повторение процедуры “xzvxcv;” с интервалом времени (вместо таймера):
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
SetTimer(0,1,5000,@xzvxcv);
[/cc]
Обратный цикл:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
for i:=7 DOWNTO 0 do // var i:integer
[/cc]
Пропускаем обработки такта цикла:
[cc lang=”delphi” tab_size=”2″ line_numbers=”false” no_links=”false”]
Continue;
[/cc]