Программная логика для начинающих

Если 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]

Нашли ошибку в тексте?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *