Структуризация

программ // Шафеева О.П. 2004. -32с.
(Метод. указания к курсовой работе

и РГР)

тип>;
=(); -перечислимый тип. =

или
значения элементов>

типов ORD(X)=X (возвращает само значение Х).
PRED(X)

ORD(PRED(X))=ORD(X)-1;
SUCC(X) ORD(SUCC(X))=ORD(X)+1;

ЦЕЛЫЕ ТИПЫ

Короткое целое без знака
Короткое целое со знаком
Целое без знака
Целое со знаком
Длинное целое со знаком

от 0 до 255
от -128 до 127
от 0 до 65535
-32768 .. 32767
от -2147483648
до 2147483647

BYTE (B)
SHORTINT (S)
WORD (W)
INTEGER (I)
LONGINT (L)

1
1
2
2
4

Примечание

Диапазон

Название

Длина (байт)

(MAXINT); {32 767}
readln; {Задержка

до нажатия клавиши }
END.

1) сложение, вычитание (имеют более низкий пpиоpитет);
DIV, MOD, умножение;
2) ABS(X), SQR(X); TRUNC(X), ROUND(X) дают целый результат;
3) деление дает вещественный результат;

Пример: VAR X:INTEGER;
I,J:BYTE;

-MAXINT<= X<= MAXINT.

аргумента.
Возвращает значение (TRUE), если аргумент нечетное число, (FALSE) если четное.

меняет местами байты в
слове

Возвращает псевдослучайное число равномерно распределенные на интервале 0<=X<=W

CHAR
BYTE
BYTE
BOOLEAN


INTEGER
WORD
Как у параметра

CHR(B)
HI(I),HI(W)
LO(I),LO(W)
ODD(L)


SWAP(I)
SWAP(W)
RANDOM(W)

Уменьшает
Увеличивает

Процедура
Процедура

DEC(Vx[,i])
INC(Vx[,i])

Действие

Тип результата

Обращение

Функции для целых типов

значение Vx на i, при отсутствии i -на 1

LongInt - в перевернутом виде
W=$0102 ⇒ $02 и $01
ЛОГИЧЕСКИЙ ТИП

(BOOLEAN)

FALSE(ложь), TRUE(истина)
FALSEOrd(false)=0; Ord(true)=1;
succ(false)=true, pred(true)=false.
NOT, AND, OR, XOR (<>,<=,>=,<,>,=),
BOOLEAN

VAR X,Y,A,B:BOOLEAN;
BEGIN
…
X:=A OR B;
Y:=(A>x) AND (AEND.

FOR x:=FALSE TO TRUE do <оператор>;
FOR x:=TRUE DOWNTO false do <оператор>;

TRUE FALSE
EOLN(f) - функция

проверки конца строки END OF LINE
EOF(f) - определяет конец файла END OF FILE

ПЕРЕЧИСЛИМЫЙ ТИП

Boolean (2 значения с номерами 0 и 1),
char (256 символов с кодами 0..255),
все целые типы: Byte (256 значений от 0 до 255),
Word (65536 значений),
а также другие целые типы: ShortInt, Integer, LongInt (нумерация значений которых начинается с отрицательного целого числа).

Пример:TYPE Char=(Симв0,симв1,..,симв64,'A','B','C',..,симв255);
Boolean=(False,True);
Byte=(0,1,2,...,255);

TYPE <имя типа1>=(<элемент1>,<элемент2>...,<элементN>);
<имя типаK>=(<элемент1>,...,<элементM>);
<имя типаJ>=<имя типаK>; ...

HT, PT, SB, VS);
BOOLEAN3=(False_,Noinfo,True_) ;{значения новых типов}
BOOLEAN3

TRUE и FALSE.

Максимальное количество элементов в одном вводимом перечислимом типе равно 65536 (0..65535).

Пример: var
T1,T2:TEST;
B1,B2:BOOLEAN3;

Пример: for T1:=test2 to test4 do <оператор>;

B1=false_; B2:=B1;
T1:=test1; T2:=test(0);

Пример: True_ > Noinfo
test2 > test1.

ORD(x): Ord(test1)=0; Ord(test2)=1;... Ord(test5)=4;

t1:=Test(0) эквив. t1:=Test1
<имя Перечисл.типа> (номер элемента)

(предыдущее) (следующее в типе значение)
Если x:=test2, то Succ(x)=test3; Pred(x)=test1.
X:=(ПорядковыйНомер)
Пример:T1:=TEST(0) и

T1:=TEST1 - нулевой элемент типа TEST

ВЕЩЕСТВЕННЫЕ ТИПЫ

Знак m*Ep,

где m - мантисса числа, причем 0.5<=|m|<1 (нормализованное);
p - порядок (экспоненциальная часть: степень E), целое двоичное число со знаком

Знак

порядок

мантисса

7..8
SINGL
4
диапазон десятичного порядка
мантисса
(значащие цифры)

название
типа

длина
(байт )

{$N+} - подключить сопроцессор,
{$N- } - отключить сопроцессор. REAL

Операции +,-,* дадут вещественный результат, если один из аргументов вещественен. Для деления результат получается вещественный, даже если оба операнда целые.

{$N+, Е+} - подключение эмулятора сопроцессора

вещественный результат при вещ. или целом аргументе;
Abs(x), Sqr(x)

при вещ. Х дают вещ. результат.
Дополнительно в ТП определены функции:

Pi =3.141592653
Дробная часть числа x
Целая часть числа x
0Случайное целое число
Инициализация датчика
псевдослучайных чисел.
Гарантирует несовпадение
последовательностей случ. чисел, вызываемых функцией Random

вещественный
вещественный
вещественный
Вещественный
Целый

-
вещественный
вещественный
-

-

Pi
Frac(x)
Int(x)
Random;
Random(x);
Randomize;

примечание

тип результата

тип параметра

Обращение

Напечатать их по 4 элемента в строке
Program Mass2;
Uses CRT;
Const

N=16;
VAR A:array[1..N] of real;
i :byte;
c: char; {символьный тип}
BEGIN
Randomize;
For i:=1 to N do
begin
a[i]:= random;
Write(a[i]:7:3);
if (I mod 4) = 0 then writeln;
end;
repeat
c:=readkey {читает код нажатой клавиши}
until ord(c) = 27 { пока не нажата клавиша ESC окно вывода не закроется}
END.

для базового типа Byte}
LETERS='A'..'Я'; {прописные буквы из базового тип Char

}
TESTOD=test2..test5; {часть перечислимого типа TEST}
RABNED=PN..PT; {ограничение на перечислимый тип NED}

Пример: TYPE date=1..31;
VAR L,L1:date;
BEGIN
L:=2*10+5; ...
L1:=2*10+60; {неверно, т.к. L1 выходит за пределы}
END. {диапазона}

TYPE DIAP= 1..10;
vektor = array[diap] of real;
VAR date: 1..31;
month: 1..12;
letchr: 'A'..'Z';

D:byte;
B:boolean;
R:real;

A:integer;
C:char;
Begin ...
A:=Integer('A'); {65}
D:=byte (R);
C:=Char(I+J-D); R:=real (D);
B:=Boolean(100); {True}
Arr:= TyType('TP_60'); где TyType=array[1..5] of char;

b:=3.5
A:=integer(b+4.8); {8}
A:=integer (b) + integer (4.8) {7}

do
begin {поиск m -

номера Max X[1…k];}
m:=1;
for i:=2 to k do if x [i]>x [m] then m:=i;
{перестановка элементов x [m] и x [k];}
r:= x[k]; x[k]:= x[m]; x[m]:=r
end;

б) сортировка обменом
x k и xk+1(k=1,2,…,n-1)
x k > xk+1

Ефимов С.С. Сортировка и поиск. м.у. 2001г.