Программа на Delphi
|
|C |Показывает сначала дату в формате дд.мм.гг, затем время в |
| |формате чч.мм.сс. Не показывает время, если дробная часть |
|D |DateTime равна нулю |
|Dd |Показывает день без лидирующего нуля (1 – 31) |
|Ddd |Показывает день с лидирующим нулём (01 – 31) |
|Dddd |Показывает день недели в укороченном формате (Вос – Суб) |
|Ddddd |Показывает день недели в полном формате (Воскресенье – Суббота)|
|Dddddd | |
|M |Показывает дату в формате дд.мм.гг. |
|Mm |Показывает дату в формате д Месяц год |
|Mmm |Показывает месяц без лидирующего нуля (1 – 12) |
|Mmmm |Показывает месяц с лидирующим нулём (01 – 12) |
|Yy |Показывает месяц в сокращенном виде (Янв – Дек) |
|Yyyy |Показывает месяц в полном формате (Январь – Декабрь) |
|h |Показывает год в виде двух последних цифр (00 – 99) |
|hh |Показывает год в виде четырех цифр (00000 – 9999) |
|n |Показывает час без лидирующего нуля (0 – 23) |
|nn |Показывает час с лидирующим нулем (00 – 23) |
|s |Показывает минуту без лидирующего нуля (0 – 59) |
|ss |Показывает минуту с лидирующим нулем (00 – 59) |
|t |Показывает секунду без лидирующего нуля (0 – 59) |
|tt |Показывает секунду с лидирующим нулем (00 – 59) |
|am/pm |Показывает время в формате чч:мм |
|ampm |Показывает время в формате чч:мм:сс |
|a/p |Показывает время в 12-часовом формате (am – до полудня, pm – |
|/ |после полудня) |
|: |Показывает время в 12-часовом формате без указателя до/после |
| |полудня |
| |Использует Windows-разделитель даты. |
| |Использует Windows-разделитель времени |
11. . procedure Abort;
Используется в контексте с другим оператором; отменяет "задним числом"
оператор в случае его аварийного завершения, блокирует выдачу
сообщения об ошибке, удобен к использованию в блоке try … finally.
13. Структурные операторы
К их числу относятся:
. составной оператор,
. условный оператор If,
. оператор варианта Case,
. оператор цикла For – Do,
. оператор цикла While – Do,
. оператор цикла Repeat – Until,
. оператор записи With,
. оператор Try – Except – End,
. оператор Try – Finally – End,
. оператор On – Do,
. оператор Try – Finally – End.
13.1. Составной оператор
Это простая структура следующих друг за другом операторов, заключенных в
операторные скобки begin … end.
Синтаксис составного оператора:
Begin
Оператор1
Оператор2
…
ОператорN
End;
Составной оператор применяется в тех случаях, когда какое-либо действие
необходимо применить не к одному, а сразу к нескольким операторам.
Пример:
Begin
R:= X;
X:= Y;
Y:= R;
End;
13.2. Условный оператор If
Синтаксис допускает два вида оператора:
if логическое выражение then оператор1 else оператор2;
и его усеченный вариант:
if логическое выражение then оператор1;
Оператор работает следующим образом. Сначала вычисляется логичес-кое
выражение. Если оно истинно, то выполняется оператор1, иначе – оператор2.
Усеченный оператор выполняет оператор1 только в случае истинного значения
логического выражения и не производит никаких действий в случае его
ложности.
Примеры:
if (x < 10.7) then a[4]:= 5 else a[4]:= 6;
if (x < 10.7) then a[4]:= 5;
Допустима вложенность условных операторов внутри составного условного
оператора. Например, оператору
if L1 then if L2 then St1 else St2 else St3;
эквивалентен оператор
if L1 then
begin
if L2 then St1 else St2;
end
else St3;
В этом операторе для повышения структурированности использованы операторные
скобки begin … end. При конструировании сложного условного оператора во
избежание логических ошибок следует отдавать предпочтение структурному
способу записи такого оператора.
13.3. Оператор варианта Case
Синтаксис оператора:
Case Selector of
Const1: Оператор1;
Const2: Оператор2;
…
ConstN: ОператорN
[else Оператор];
End;
Selector может быть любой простой тип кроме Real. Каждая из Const1 … ConstN
может быть значение, несколько перечисленных через запятую значений или
отрезок типа. Оператор Else, как видно из описания, может отсутствовать. В
том случае, если он присутствует, то действует общее правило: перед словом
Else не должно быть символа ";" (точка с запятой). Поясним работу оператора
Case на примере:
Case i of
0 : x := 0;
1,3 : x := 1;
10 .. 15: x := 2
else x := 3;
End;
При выполнении оператора Case управление будет передано тому оператору,
который помечен константой, являющейся значением переменной i. Например,
если к моменту выполнения Case-оператора i = 0, то будет выполнен оператор
x := 0. Иначе, если i = 1 или i = 3, то будет выполнен оператор x := 1;
иначе, если значение i в диапазоне 10 .. 15, то будет выполнен оператор x
:= 2; наконец, если i не равно ни одной из вышеперечисленных констант, то
будет выполнен оператор x := 3, следующий за словом else (иначе).
13.4. Оператор цикла For – Do
Синтаксис оператора имеет две разновидности:
For счетчик цикла:=нач.знач. To конеч.знач. Do оператор
For счетчик цикла:=нач.знач. Downto конеч.знач. Do оператор
Здесь конструкция For .. Do называется заголовком цикла, оператор – телом
цикла.
Для циклов должны соблюдаться следующие правила и ограничения:
. начальное и конечное значения счетчика цикла должны быть одинаковых
простых типов, кроме Real;
. в теле цикла счетчик не должен менять значение;
. вход в цикл минуя заголовок запрещен;
. для первой разновидности начальное значение не должно быть больше
конечного;
. для второй разновидности начальное значение не должно быть меньше
конечного.
Первая разновидность оператора цикла For работает следующим образом.
Сначала счетчик цикла принимает нач.знач. и выполняется оператор,
расположенный вслед за словом Do. Затем значение счетчика будет увеличено
на шаг счетчика 1 и вновь будет выполнен оператор и т. д., пока счетчик не
переберет все значения от нач.знач. до конеч.знач.
Пример.
s:= 0;
For i:=1 to 44 do s:= s + z[i];
В результате в переменной s будет накоплена сумма первых 44 элементов
массива z.
Другая разновидность оператора For отличается лишь отрицательным шагом –1
счетчика.
Пример.
s:= 0;
For i:=44 Downto 1 do s:= s + z[i];
Будет получен тот же результат.
13.5. Оператор цикла While – Do
Синтаксис оператора:
While логическое выражение Do оператор;
Цикл выполняет оператор, расположенный вслед за словом Do до тех пор, пока
истинно логическое выражение, расположенное за словом While ("выполняй,
пока истинно").
Пример.
x:= 0;
i:=0;
While (x < 101.667) do
Begin
Inc (i);
X:= X + 5.617;
Y[i]:= Func (i + 6, 9 * i, X);
End;
В этом примере цикл будет выполняться до тех пор, пока не выполнится
условие x < 101.667. В теле цикла переменная X с каждым шагом цикла
увеличивает свое значение на 5.617 так, что на определенном шаге условие x
< 101.667 впервые не будет выполнено. В этот момент без входа в тело цикл
закончит работу.
13.6. Оператор цикла Repeat – Until
Синтаксис оператора:
Repeat
Оператор1;
Оператор2;
…
ОператорN;
Until логическое выражение;
Цикл работает, пока логическое выражение ложно ("повторяй, пока не
выполнится").
Пример.
s:= 0;
i:=0;
Repeat
Inc (i);
s:= s + z[i];
Until (i = 44);
В этом примере цикл будет выполняться до тех пор, пока не выполнится
условие i = 44. Результат будет тот же, что в примере для For-цикла.
13.7. Операторы Break и Continue
Оператор Break может быть размещен в теле цикла. При его выполнении цикл
прекращает работу и считается выполненным.
Пример.
s:= 0;
i:=0;
Repeat
Inc (i);
s:= s + z[i];
if (s > 14) then Break;
Until (i = 44);
| | скачать работу |
Программа на Delphi |