|
Программа на Delphi|J:=-L - 200; |250 | |B:= J > L; |False | |B:= (J < L) and (Q[5] = |True | |'i'); |230 | |Rec.A:= J-20; |Ошибка. Несоответствие типов | |Rec.B:= 20; |'d\\d' | |Rec.B:= S[1]+S[3]+'\d'; | | 11.2. Оператор безусловного перехода Этот оператор выполняет передачу управления оператору, которому предшествует метка. Синтаксис оператора: Goto Метка; Язык допускает в качестве меток использовать имя или значение целого типа из диапазона 1 .. 9999. При использовании операторов перехода необходимо придерживаться следующих правил: 1. Все метки, используемые в блоке, должны быть описаны словом Label. Пример оператора описания меток: Label 1, 2, Met1, Met2, Met3; 2. Метка должна располагаться в том же блоке, что и оператор, который ею помечен. 3. Недопустим переход к метке внутрь структурного оператора (например, внутрь цикла, минуя его заголовок). Компилятор не реагирует на эту ситуацию, однако поведение программы может быть непредсказуемо. Недопустимы также вход или выход по метке в процедурах или функциях. П р и м е ч а н и е. Не используйте меток, если в этом нет особой необходимости. В технике современного программирования использование меток считается правилом плохого тона, т. к. их применение часто ведет к составлению плохо структурированных модулей, усложняющих чтение, сопровождение и отладку программ. 11.3. Оператор обращения к процедуре Этот оператор вызывает активизацию операторов, расположенных в теле процедуры (см. параграф 15.1). После выполнения процедуры управление передается к оператору, расположенному вслед за оператором процедуры. При вызове процедуры её формальным параметрам должны строго соответствовать по совместимости типов и количеству фактические параметры. Примеры обращения к процедурам: Val (s, r, Code); Sort (a, n * 2); SaveParameters; 11.4. Обращение к функции Следует подчеркнуть, что не существует специального оператора обращения к функции (см. параграф 15.1). Обычно такое обращение производится посредством другого оператора, часто оператора присваивания. Обращение к функции активизирует ее внутренние операторы точно так же, как это происходит в процедурах. Принципиальное отличие между выполнением процедуры и функции состоит в следующем: . после выполнения оператора процедуры управление передается к следующему за ним оператору; . после выполнения функции управление вновь передается в оператор, который содержит обращение к этой функции, с целью передачи в него вычисленного значения функции и для завершения вычислений внутри этого оператора. Поясним это на примере оператора присваивания, содержащего обращение к функции Func8: G:= 2 * Pi * Func8(m, n, a) / Sqr (z); При выполнении этого оператора сначала происходит обращение к функции Func8. После выполнения операторов, составляющих тело этой функции, вычисленное значение возвращается в этот оператор, где оно используется для выполнения дальнейших вычислений внутри оператора. 12. Стандартные процедуры и функции Язык содержит ряд процедур и функций, которые в практике программирования ипользуются наиболее часто. Расширенный список процедур и функций, которые могут найти применение в практике программирования, приведен в приложении. 12.1. Строковые процедуры и функции 1. Function Length (St): LongInt; Возвращает длину строки символов St, т. е. количество символов в ней (не путать с размером строки). St:= '1234abc'; L:= Length(St); {L= 7} 2. Procedure Delete (St, Pos, Num); Удаляет Num символов из строки St начиная с позиции Pos, если PosLength (Target), то результат Target + Obj. St1:= '***'; St2:= '1234abc'; Insert (St1, St2, 3) { St2= '12***34abc'} 4. Procedure Str (Value, St); Преобразует значение Value числового типа в строку символов St. Value может сопровождаться форматом. L:=19; Str (L, g); {g= '19'} R:= 2.123155; Str (R: 8:3, h); {h= ' 2.123' (длина 8, в дробной части 3} 5. Procedure Val (St, Vr, Code); Преобразует строку символов St в числовую величину Vr целого или вещественного типа. Code = 0, если преобразование прошло успешно, иначе в Code будет записан номер первого ошибочного символа конвертируемой строки, при этом значение Vr не определено. St:='319'; Val (St, k, Cod); {k= 319, Cod = 0} St:='81yy9'; Val (St, k, Cod); {k= ?, Cod = 3} 6. Function Copy (St, Pos, Num): String; Выделяет из строки St подстроку символов длиной Num начиная с позиции Pos. Если Pos>Length, то возвращает пустую строку. St1:='АБВГДЕ'; St2:= Copy(St1, 2, 3); {St2= 'БВГ'} St2:= Copy(St1, 2, 27); {St2= 'БВГДЕ'} St2:= Copy(St1, 44, 2); {возвращает пустую строку St2= ''} 7. Function Concat (St1, St2{, …, StN}): String; Объединяет строки в одну строку. St:='abc'; St1:=Concat( 'sss', St, '1234'); {St1= 'sssabc1234'} St1:=Concat( St, '123'); {St1= 'abc123'} 8. Function Pos (Obj, Target): Integer; Возвращает номер символа, начиная с которого строка Obj первый раз входит в строку Target. Если строка Obj отсутствует в строке Target, то Pos = 0. Q:= 'Иванов Сергей Петрович'; H:= Pos ('Сергей', Q); {H= 7} H:= Pos ('Игорь', Q); {H= 0} 9. Function SizeOf (Obj): Integer; Возвращает размер переменной Obj. 10. Function FormatFloat(const Format: string; Value: Extended): string; Возвращает форматированное вещественное значение в виде строки. Format – формат числа, Value – число. В табл. 14 даны форматы функции FormatFloat. Таблица 14 |Формат |Описание | |0 |Поле для цифры. Недостающие позиции заменяются нулями | |# |Поле для цифры. Если в позиции имеется значащая цифра, то| |. |оно выводится. Нули не выводятся | |, |Разделитель целой и дробной частей | |E+, E- |Поле разделителя тысяч, миллионов | | |Формат представления чисел с плавающей точкой. Если "+" | |; |указан, то перед порядком выводится знак. Если указан | | |"-", то минус выводится только для отрицательных порядков| | | | | |Разделитель форматов | Примеры действия форматов при конвертации числа в строку представлены в табл. 15. Таблица 15 |Формат |Число 1 |Число 2 |Число 3 |Число 4 | |0 |1234 |-1234 |0.5 |0 | |0.00 |1234 |-1234 |1 |0 | |#.## |1234.00 |-1234.00 |0.50 |0.00 | |#,##0.00 |1234 |-1234 |.5 |0.00 | |#,##0.00;(#,##0.00|1,234.00 |-1,234.00 |0.50 |0.00 | |) |1,234.00 |(1,234.00) |0.50 |Zero | |#,##0.00;;Zero |1,234.00 |-1,234.00 |0.50 |0.000E+00| |0.000E+00 |.234E+03 |-1.234E+03 |5.000E-01 | | |#.###E-0 |1.234E3 |-1.234E3 |5E-1 |0E0 | 12.2. Стандартные функции 1. Function Char (X: byte): Char; Возвращает символ с номером X. Ch:= Char(74); {Ch= 'J'} 2. Function Ord (X): LongInt; Возвращает порядковый номер скалярного аргумента. j:= Ord('J'); {j= 74} 3. Function Round (X: Real): LongInt; Возвращает округленное до целого значение вещественного аргумента. j:= Round(12.8235); {j= 13} 4. Function Trunc (X: Real): LongInt; Возвращает целое путем отбрасывания дробной части вещественного аргумента. j:= Round(12.8235); {j= 12} 12.3. Арифметические процедуры и функции 1. Function Frac (X: Extended): Extended; Возвращает дробную часть аргумента, например: r:= Frac(-12.82); {r = -0.82, Frac(12.82)=0.82 } 2. Function Abs (X: Extended): Extended; Возвращает абсолютное значение аргумента, например: r:= Abs(-12.82); {r = 12.82} 3. Function ArcTan (X: Extended): Extended; Возвращает арктангенс аргумента. 4. Function Cos (X: Extended): Extended; Возвращает косинус аргумента. 5. Function Sin (X: Real): Real; Возвращает синус аргумента. 6. Function ArcCos(X: Extended): Extended; Возвращает арккосинус аргумента, значение которого должно принадле- жать отрезку [-1, 1]. Возвращает значение из отрезка [0, Pi]. 7. Function ArcSin(X: Extended): Extended; Возвращает арксинус аргумента, значение которого должно принадле-жать отрезку [-1, 1]. Возвращает значение из отрезка [-Pi/2, Pi/2]. 8. Function ArcTan2(Y, X: Extended): Extended; Возвращает арктангенс аргументов, вычисляя ArcTan(Y/X) в соответ-ствии с квадрантами координатной плоскости xOy. Возвращает значение из отрезка [-Pi, Pi]. 9. Function Exp (X: Real): Real; Возвращает экспоненту аргумента. 10. Function Sinh(X: Extended): Extended; Возвращает гиперболический синус аргумента. 11. Function Cosh(X: Extended): Extended; Возвращает гиперболический косинус аргумента. 12. Function Tanh(X: Extended): Extended; Возвращает гиперболический тангенс аргумента. 13. Function ArcSinh(X: Extended): Extended; Возвращает гиперболический арксинус аргумента. 14. Function ArcCosh(X: Extended): Extended; Возвращает гиперболический арккосинус аргумента. 15. Function ArcTanh(X: Extended): Extended; Возвращает гиперболический арктангенс аргумента. 16. Function Ln (X: Real): Real; Возвращает натуральный логарифм аргумента. 17. Function Sqr (X: Real): Real; Возвращает квадрат аргумента. 18. Function Sqrt (X: Real): Real; Возвращает квадратный корень аргумента. 19. Function Ceil(X: Extended):Integer; Возвращает наибольшее целое аргумента. Сeil(-2.8) = -2 Ceil(2.8) = 3 Ceil(-1.0) = -1 20. Function Floor(X: Extended): Integer; Возвращает наименьшее целое аргумента. Ceil(-2.8) = -3 Ceil(2.8) = 2 Ceil(-1.0) = -1 21. Function Dec (X, [n]: LongInt): LongInt; Уменьшает значение аргумента на величину второго параметра. Если он отсутствует, то уменьшает на 1. J:=67; K:=Dec(J); {j= 66} K:=Dec(J, 13); {j= 53} 22. Function Inc (X, [n]: LongInt): LongInt; Увеличивает значение аргумента на величину второго параметра. Если он отсутствует, то увеличивает на 1. J:=67; K:=Inc(J); {j= 68} K:=Inc(J, 13); {j= 81} 12.4. Скалярные функции 1. Function Odd (X: LongInt): Boolean; Возвращает True, если аргумент четный. J:=67; K:=Odd(J); {K= False} 2. Function Pred (X); Возвращает предшествующее значение типа аргумента. 3. Function Succ (X); Возвращает последующее значение типа аргумента. 12.5. Процедуры завершения 1. Procedure Exit; Выход из процедуры. 2. Procedure Halt([Code:Word]); Выход в операционную систему с кодом возврата, если он указан. 12.6. Процедуры и функции для работы с типами "дата/время" Типы TDateTime и TTimeStamp, а также производные от них типы предназначены для хранения даты и времени. Эти типы используются в ряде весьма полезных и необходимых процедур и функций для работы с датами и временем. 1. Function Now: TDateTime; Возвращает текущую дату и время. 2. Function Date: TDateTime; Возвращает текущую дату. 3. Function Time: TDateTime; Возвращает текущее время. 4. Function DateToStr (D: TDateTime): String; Преобразует дату в строку символов, например: S:= DateTimeToStr(Date); {текущая дата '26.10.99'} 5. Function TimeToStr(T: TDateTime): String; Преобразует время в строку символов, например: S:= TimeToStr(Time); { текущее время '13.58.13'} 6. Function DateTimeToStr(DateTime: TDateTime): String; Преобразует дату/время в строку символов, например: S:= DateTimeToStr(Now); { текущие дата и время '26.10.99 14.01.51'} 7. Function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; Конвертирует TDateTime в TTimeStamp, например: TS:= DateTimeToTimeStamp(Now); {type TS = TTimeStamp} s:= IntToStr(Ts.Date) + ' ' + IntToStr(Ts.Time); {'730053 51095810' – (прошло дней с 00.00.0000 г. и миллисекунд от полуночи текущего дня} 8. Function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime; Конвертирует TTimeStamp в TDateTime. 9. Procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); Раскладывет дату Date на год, месяц и день, например: DecodeDate(Now, Y, M, D); s:= IntToStr(Y) + ' ' + IntToStr(M) + ' ' + IntToStr(M); {'1999 10 26'} 10. .Procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word); Раскладывет время Time на час, минуты, секунды и миллисекунды, например: DecodeTime(Now, H, M, S, MS); ss:= IntToStr(H) + ' ' + IntToStr(M) + ' ' + IntToStr(S) + ' ' + IntToStr(MS); {'14 22 34 567', т. е. 14 ч 22 мин 34 с 567 мс} 11. .Function EncodeDate(Year, Month, Day: Word): TDateTime; Противоположна DecodeDate; 12. .Function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; Противоположна DecodeTime; 13. .Function FormatDateTime(const Frmt: string; DateTime: TDateTime): string; Преобразует DateTime в строку с заданным форматом. Если формат пуст, то функция возвращает строку в формате "c". Следующий оператор присвоит строковой переменной s значение 'Встреча состоится: пятница, 6 Ноябрь, 1999, в 10:30 AM'. s:= FormatDateTime('"Встреча состоится:" dddd, mmmm d, yyyy, ' +'"в" hh:mm AM/PM', StrToDateTime('6.11.99 10:30am')); Виды форматов даны в табл. 16. 12.7. Прочие процедуры и функции 1. Function Hi(X): byte; Возвращает старший байт своего целочисленного аргумента. 2. Function Lo(X) : byte; Возвращает младший байт своего целочисленного аргумента. 3. Procedure Swap(X); Меняет старший и младший байты целочисленного аргумента местами. 4. Procedure Randomize; Инициализирует генератор случайных чисел. 5. Function Random(N: Integer): Integer; Возвращает случайное число из интервала (0, N). 6. Function SizeOf(X) : Integer; Возвращает число байт, занимаемых аргументом. 7. Procedure Move(Var Source, Dest; Count: Integer); Копирует Count байт из переменной Source в переменную Dest. В случае перекрытия областей памяти пересылка в перекрывающуюся область не производится. 8. Function ParamCount: Word; Возвращает число параметров, переданных в командной строке. 9. Procedure Break; Оператор безусловного завершения цикла, процедуры или функции. 10. . Procedure Continue; Оператор, используемый в цикле для передачи управления в его начало. Таблица 16 |Формат |Описание | |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); В этом примере цикл будет выполняться до тех пор, пока не выполнится условие i = 44 или если в операторе if переменная s превысит значение 14. Оператор Continue также может быть размещен в теле цикла. При его выполнении управление независимо от того, где он расположен, сразу передается в начало цикла для выполнения следующего шага. Пример. s:= 0; i:=0; Repeat Inc (i); s:= s + z[i]; if (s > 20) then Continue; if (s > 14) then Break; Until (i = 44); В этом примере если в первом операторе if выполнится условие s > 20, то сработает оператор Continue. Он сразу передаст управление на первый оператор в теле цикла – Inc (i), предотвратив тем самым выполнение ниже- следующих операторов – второго if и Until. 13.8. Вложенные циклы В теле оператора цикла могут быть размещены другие операторы цикла. Такие структуры называются вложенными циклами. Язык допускает любую глубину вложенности циклов. При использовании вложенных циклов необходимо иметь в виду следующее: . все вложенные циклы For – Do должны иметь различные счетчики (иначе это противоречило бы требованию на запрет изменения значения счетчика внутри цикла); . нет никаких ограничений на досрочный выход из внутреннего цикла наружу; . недопустим вход во внутренний цикл For – Do, минуя его заголовок, что соответствует общему требованию о корректном входе в цикл. Вложенные циклы используются в ситуациях, когда на каждом шаге наружного цикла необходимо полностью выполнить внутренний цикл. Пример. Const n = 15; m = 24; Var i,j: Byte; R,Tau,s: Real; z: array[1..n, 1..m] of Real; … {заполнение массива z с использованием вложенных циклов} Tau:= Pi/m; For i:=1 to n do begin R:=4.0*Pi*Sin(i*Tau); {первый оператор в теле цикла по i} For j:=1 to m do z[i, j] := R+j; {второй оператор в теле цикла по i} end {i}; {вычисление суммы положительных элементов массива z с использованием вложенных циклов } s:=0; For i:=1 to n do For j:=1 to m do if ( z[i, j] > 0) then s:= s + z [i, j]; Приведенный пример содержит две структуры вложенных циклов. Первая структура предназначена для заполнения элементов двумерного массива z с помощью математической формулы [pic] Наружный цикл со счетчиком i в теле цикла содержит два оператора – оператор присваивания (вычисление значения вспомогательной переменной R с целью сокращения времени вычислений) и оператор внутреннего цикла со счетчиком j. Поскольку наружный цикл в своем теле содержит несколько операторов, то они заключены в операторные скобки begin … end. Эта структура работает следующим образом. После входа в наружный цикл переменная i (счетчик этого цикла) примет значение 1. Далее будет вычислено значение переменной R при i = 1. После этого будет выполнен внутренний цикл со счетчиком j, где j на каждом шаге будет последовательно принимать значения 1, 2, 3, … m (i при этом остается неизменным и равным 1). В результате будут вычислены элементы z11, z12, …, z1m первой строки массива. Затем будет выполнен возврат к заголовку наружного цикла, где значение счетчика i будет увеличено на 1 (т. е. i станет равно 2) и вновь будет выполнены операторы, расположенные в его теле. В результате будут определены элементы z21, z22, …, z2m второй строки массива и т.д. Вторая структура вложенных циклов предназначена для вычисления суммы положительных элементов массива z. Для этого сначала переменной s будет присвоено значение 0, а затем во вложенных циклах будет накоплена требуемая сумма в ячейку s. 13.9. Оператор записи With В ранних версиях языка оператор использовался для более удобного доступа к полям записи. Пример: Var Student : Record Fam: String[30]; Name: String[20]; Age: Word; End; … Student.Fam:= 'Колокольников'; Student.Name:= 'Павел'; S:=Student.Fam + ' '+Student.Name; {предыдущих три оператора эквивалентны следующим} With Student do Begin Fam:= 'Колокольников'; Name:= 'Павел'; S:= Fam + ' '+ Name; End; 13.10. Оператор Try – Except – End Это новейшее средство языка. Блок Try – Except – End используется для предотвращения исключительных ситуаций (ИС), которые могут возникнуть при выполнении программы. К их числу относятся сбои в работе аппаратуры, ошибки вычислений (например деление на нуль), попытки присвоить значение, выходящее за пределы типа и т. д. Синтаксис: Try {операторы, способные генерировать ИС} Except {операторы, обрабатывающие генерированные ИС} end; Блок Try – Except – End работает следующим образом. Выполнение начинается с операторов, расположенных в блоке Try – Except. Если в каком-либо операторе возникает ИС, то она подавляется и затем выполняются все операторы, расположенные в блоке Except – End. В результате предотвращается аварийное прерывание программы. Использование блока Try – Except – End открывает возможность программного контроля за ИС. Пример. i:= 0; n:= 8; Try i:= n div i; {Деление на нуль. Оператор генерирует ИС} n:= i + 9; Except ShowMessage('Ошибка. Деление на нуль в операторе i := n / i'); End; Результатом выполнения блока операторов будет появление на экране формы с сообщением "Ошибка. Деление на нуль в операторе i := n / i", после чего программа продолжит работу с оператора, следующего за словом End, а не с оператора n := i + 9. Если бы оператор i := n div i не был защищен блоком Try – Except – End, то возникшая при его выполнении ИС привела бы к нежелательному аварийному завершению программы. 13.11. Оператор On – End При возникновении ИС язык позволяет не только предотвратить прерывание программы, но и определить, какого именно вида была ИС. Для этого в блоке Except – End можно использовать оператор On –Do. Пример i:= 0; n:= 8; Try i:= n div i; {Деление на нуль. Оператор генерирует ИС} n:= i + 9; Except On Ex: EdivByZero do ShowMessage('Деление на нуль'); End; В этом примере сообщение о возникновении ИС будет выдано только в случае, когда ИС будет только деление на нуль (EdivByZero). Во всех остальных случаях ИС будет предотвращена, однако никакого сообщения о ее возникновении выдано не будет. Объявленная в блоке Except – End переменная Ex может быть любым именем (здесь Ex используется только для примера). 13.12. Оператор Try – Finally – End Блок Try – Finally – End также используется для предотвращения ИС, которые могут возникнуть при выполнении программы. В отличие от блока Try – Except – End блок Try – Finally – End используется для освобождения ресурсов памяти, закрытия файлов и пр. в случае возникновения ИС. Синтаксис: Try {операторы, способные генерировать ИС} Finally {операторы освобождения ресурсов памяти } end; Блок Try – Finally – End работает следующим образом. Выполнение начинается с операторов блока Try – Finally, которые в правильно написанной программе должны содержать операторы выделения ресурсов памяти. Если в каком-либо операторе возникает ИС, то управление сразу передается к операторам блока Finally – End, где производится освобождение памяти, закрытие файлов и пр. В результате, с одной стороны, предотвращается аварийное прерывание программы и, во вторых, корректно освобождается ранее зарезервированная память, выполняется ряд других необходимых операций. Отметим, что блок Finally – End выполняется всегда вне зависимости от того, была или не была сгенерирована ИС. Пример. i:= 0; n:= 8; Try GetMem (p, 8000); {выделение памяти} i:= n div i; {Деление на нуль. Оператор генерирует ИС} n:= i + 9; Finally FreeMem (p, 8000); {освобождение памяти} End; 14. Указатели В языке есть средство, разрешающее запрашивать память динамически, т. е. по необходимости. Это позволяет уменьшить объем кода программы и экономно расходовать оперативную память. Такое средство представляет собой специальный тип, называемый указателем. Имеется два типа ука-зателей: указатель на объект некоторого типа и указатель без типа. Тип Pointer образует указатель без типа. Указатель на тип имеет синтаксис: ^ Имя типа Примеры объявления указателей: Type tDinArr = Array[1 .. 1000, 100] of String[255]; {обычный тип} tDinArrPtr = ^tDinArr; {указатель на тип tDinArr} tRecPtr = ^tRec; {указатель на тип записи, который описан ниже} tTRec = Record {обычный тип-запись} A: Integer; B: Real; C: String[255]; End; Var DinArr: tDinArr; {обычная запись} DinArrPtr: tDinArrPtr; {указатель на тип} RecPtr: tRecPtr; {указатель на тип-запись} |
|
