Цикл repeat.
Цикл repeat
Цикл while может не выполниться ни разу, если логическое выражение в заголовке сразу вернуло false. Однако такая ситуация не всегда может быть приемлемой. Бывает, что тело цикла должно выполниться хотя бы один раз, не зависимо оттого, что вернет логическое выражение. В таком случае используется цикл repeat – цикл с постусловием.
В цикле repeat логическое выражение стоит после тела цикла. Причем, в отличие от цикла while, здесь всё наоборот: в случае true происходит выход из цикла, в случае false – его повторение.
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;
readln
end.
В примере, даже если n будет равно 0, одна звездочка все равно будет напечатана.
Билет 23 Раздел констант.
Раздел «Const» (constant — константа) предназначен для описания констант. Константы, как и переменные, могут быть разных типов: целыми, строковыми, массивами (так называемый структурированный тип) и другими. Обозначение констант одинаковое, что и у переменных. Общий вид данного раздела выглядит следующим образом:
const <имя константы> = <тип константы>;
Пример:1 const
2 pi=3,14159;
3 answer='answer is';
Типизированные "константы" в Паскале.
Типизированные константы
Типизированные константы подобны инициализированным переменным (переменным с заданными начальными значениями).
В отличие от нетипизированных констант, объявление тnипизированной константы определяет сразу и тип, и значение константы.
Типизированные константы могут использоваться подобно переменным того же самого типа, и могут находиться в левой части оператора присваивания.
Обратите внимание: Типизированные константы инициализируются только один раз - при их создании в начале программы. При каждом входе в процедуру или функцию, локальные Типизированные константы не инициализируются повторно.
В дополнение к стандартным константам, значение типизированной константы может быть задано выражением базового адреса.
Пример объявления типизированных констант
Type Point = Record
X, Y : Real
End;
Const Minimum : Integer = 0;
Maximum : Integer = 9999;
Factorial : Array [1..7] Of Integer = (1, 2, 6, 24, 120, 720, 5040);
HexDigits : Set Of Char = ['0'..'9', 'A'..'Z', 'a'..'z'];
Origin : Point = (X : 0.0; Y : 0.0);
Присвоение переменным начальных значений.
ИНИЦИАЛИЗАЦИЯ ПЕРЕМЕННЫХ
Тип переменных определяется пользователем в разделе описания пере- менных:{}
В настоящее время в профессиональном программировании принято записывать имена переменных с использованием так называемой венгерс- кой нотации.
Венгерская нотация - это соглашение о наименованиях переменных и функций. Соглашение широко используется при программировании на язы- ках PASCAL, C и в среде WINDOWS.
Венгерская нотация основывается на следующих принципах:
-имена переменных и функций должны содержать префикс, описывающий их тип;
-имена переменных и функций записываются полными словами или сло- восочетаниями или их сокращениями, но так, чтобы по имени можно было понять назначение переменной или действие, выполняемое функцией.
Префиксы записываются малыми буквами, первая буква каждого слова - заглавная, префиксы и слова записываются либо слитно, либо через сим- вол _ (подчеркивание).
Для языка PASCAL могут быть рекомендованы следующие префиксы для скалярных переменных и функций:
Префикс Типкоординаты символа или точки на экране
by Byte
sh Shortint
i Integer
w Word
l Longint
r Real
si Single
d Double
e Extended
c Comp
ch Char
b Boolean
p Pointer
x,у
Для величин структурированного типа могут быть использованы следу- ющие префиксы:a Array
s String
sz Stringz
se Set
re Record
f File
t Text
Например:
rV, arVector[1..20], sName, iCount
.
В откомпилированной программе для всех переменных отведено место в памяти, и всем переменным присвоены нулевые значения.
Для задания начальных значений переменным (инициализации перемен- ных) TURBO PASCAL позволяет присваивать начальные значения переменным одновременно с их описанием. Для этого используется конструкция
имя переменной: тип = значение;
которая должна быть размещена в разделе описания констант, например:
const rWeight: Real = 0.4;