Студенты-Программеры

pRogram Zdn_2;
Uses crt;
Const n=10;
Var massiv: array [1..n] of byte;

Procedure Add(var mas: array of byte); (** zapolnenie massiva **)
Var i:byte;
Begin
i:=0;
Randomize;
For i:=1 to n do mas[i]:=random(20);
End;

Procedure Shw(var mas: array of byte); (** vivod massiva **)
Var i:byte;
Begin
i:=0;
For i:=1 to n do writeln(’ Mas[',i,'] = ‘,mas[i]);
End;

Procedure Obnl(var mas: array of byte); (** poisk dublikatov **)
Var i,j:byte;
Begin
i:=0; j:=0;
For i:=1 to n-1 do
For j:=i+1 to n do
If i<>j Then
If (mas[i]=mas[j]) and (mas[i]>0) Then
begin
writeln(’–> Mas[',i,'] & Mas [',j,'] = ‘,mas[j]);
Mas[j]:=0; (** dublikat obnulyaetsya **)
end;
End;

BEGIN
ClrScr;Add(massiv);Shw(massiv);Obnl(massiv);Shw(massiv);
(** massiv posle izmeneniya **)
Readkey;
END.

pRogRam Zdn_1;
Uses crt;
Const n=10;
Var massiv: array [1..n] of byte;
Procedure Add(var mas: array of byte); (** zapolnenie massiva **)
Var i:byte;
Begin
Randomize;
For i:=1 to n do mas[i]:=random(255);
End;

Procedure Shw(var mas: array of byte); (** vivod massiva **)
Var i:byte;
Begin
For i:=1 to n do writeln(’ Mas[',i,'] = ‘,mas[i]);
End;

BEGIN
ClrScr;Add(massiv);Shw(massiv);Readkey;
END.

Любые данные, то есть константы, переменные, свойства, значения функций или выражений характеризуются своими типами. Тип определяет множество допустимых значений, которые можно иметь тот или иной объект, а также множество допустимых операций, которые применимы к нему. Кроме того, тип определяет также и формат внутреннего представления данных в памяти ПК.

К простым типам относятся порядковые и вещественные типы, а также тип дата-время.

Порядковые типы отличаются тем, что каждый из них имеет конечное количество

возможных значений. Эти значения можно определенным образом упорядочить (отсюда – название типов) и, следовательно, с каждым из них можно сопоставить некоторое целое число – порядковый номер значения.

Вещественные типы, тоже имеют конечное количество значений, которое определяется форматом внутреннего представления вещественного числа. Однако это количество настолько велико, что сопоставить с каждым из них целое число (его номер) не представляется возможным.

Тип дата-время предназначен для хранения даты и времени. Фактически для этих целей он использует вещественный формат.

К порядковым типам относятся целые, логические, символьный, перечисленный и тип-диапазон. К любому из них применима функция Ord (X), которая возвращает порядковый номер значения выражения Х.

Целые типы. Диапазон возможных значений целых типов зависит от их внутреннего представления, которое может занимать 1, 2, 4 или 8 байтов.

При действиях с целыми числами тип результата будет соответствовать типу операндов, а если операнды относятся к различным целым типам, - общему типу, который включает в себя два операнда. При стандартной настройке компилятор не вырабатывает код, осуществляющий контроль за возможной проверкой выхода значения из допустимого диапазона, что может привести к недоразумениям.

Логические типы. В стандартном языке Паскаль определен тип Boolean. Значениями логического типа может быть одна из предварительно объявленных констант False (ложь) или True (истина). Для них справедливы правила:

Ord (False) = 0

Ord (True) <> 0

Succ (False) = True

Pred (True) = False

Поскольку логический тип относится к порядковым типам, его можно использовать в операторе цикла счетного типа.

Символьный тип. Значениями символьного типа является множество всех символов клавиатуры компьютера. Каждому символу приписывается целое число в диапазоне 0…255. Это число служит кодом внутреннего представления символа, его возвращает функция Ord.

Перечисленный тип. Перечисленный тип задается перечислением тех значений, которые он может получать. Каждое значение именуется некоторым идентификатором и располагается в списке, обрамленном круглыми скобками.

Соответствие между значениями перечисленного типа и порядковыми номерами этих значений устанавливается очередностью перечисления: первое значение в списке получает порядковый номер 0, второе – 1 и т.д. Максимальная мощность перечисленного типа составляет 65536 значений, поэтому фактически перечисленный тип задает некоторое подмножество целого типа Word и может рассматриваться как компактное объявление сразу группы целочисленных констант со значениями 0, 1, и т.д.

Использование перечисленных типов повышает надежность программ благодаря возможности контроля, тех значений, которые получают соответствующие переменные.

Тип-диапазон. Тип-диапазон есть подмножество своего базового типа, в качестве которого может выступать любой порядковый тип, кроме типа-диапазона.

Тип-диапазон задается границами своих значений внутри базового типа:

<мин. знач.>..<макс. знач.>

Здесь <мин. знач.> - минимальное значение типа-диапазона, <макс. знач.> - максимальное его значение.

Тип-диапазон необязательно описывать в разделе type, а можно указывать непосредственно при объявлении переменной.

В отличие от порядковых типов, значения которых всегда сопоставляются с рядом целых чисел и, следовательно, представляются в ПК абсолютно точно, значения вещественных типов определяют произвольное число лишь с некоторой конечной точностью, зависящей от внутреннего формата вещественного числа.

Вещественное число занимает от 4 до 10 смежных байтов и имеет следующую структуру в памяти компьютера:

Здесь s – знаковый разряд числа; e – экспоненциальная часть; содержит двоичный порядок; m – мантисса числа.

Мантисса m имеет длину от 23 до 63 двоичных разрядов, что и обеспечивает точность десятичных цифр. Десятичная точка (запятая) подразумевается перед левым (старшим) разрядом мантиссы, но при действиях с числом ее положение сдвигается влево или вправо в соответствии с двоичным порядком числа, хранящимся в экспоненциальной части, поэтому действия над вещественными числами называют арифметикой с плавающей точкой (запятой).

Арифметический сопроцессор всегда обрабатывает числа в формате Extended

, а три других вещественных типа в этом случае получаются простым усечением результатов до нужных размеров и применяются в основном для экономии памяти.

Процедуры и функции представляют собой относительно самостоятельные фрагменты программы, оформленные особым образом и снабженные именем. Упоминание этого имени в тексте программы называется вызовом процедуры (функции).

Описание подпрограммы состоит из заголовка и тела подпрограммы. Заголовок процедуры имеет вид: procedure <имя> [(<СП.ф.п.>)] : <тип>; . Здесь: <имя> - имя подпрограммы (правильный идентификатор), <СП.ф.п.>- список формальных параметров, <тип> - тип возвращаемого функции результата. Сразу за заголовком подпрограммы может следовать одна из стандартных директив assembler, external, far, forward, inline, interrupt, near. Эти директивы уточняют действие компилятора и распространяются на всю подпрограмму и только на нее, т.е. если за подпрограммой следует другая подпрограмма, стандартная директива, указанная за заголовком первой, не распространяется на вторую.

Assembler – отменяет стандартную последовательность машинных инструкций, вырабатываемых при входе в процедуру и выходом из нее.

External – С помощью этой директивой объявляется внешняя подпрограмма.

Far – компилятор должен создавать код подпрограммы, рассчитанный на дальнюю модель вызова.

Near- заставит компилятор создать код, рассчитанный на ближайшую модель памяти.

Forward – используется при опережающем описании для сообщения компилятору, что описание подпрограммы следует где-то дальше по тексту программы (но в пределах текущего программного модуля).

Inline – указывает на то, что тело подпрограммы реализуется с помощью встроенных машинных инструкций.

Interrupt – используется при создание процедур обработки прерываний.

Параметры.

Список формальных параметров необязателен и может отсутствовать. Если же он есть, то в нем должны быть перечислены имена формальных параметров и их типы, например: Procedure SB (a: Real; b: Integer; c: Char); Для оператора тела подпрограммы список параметров является своеобразным расширением раздела описаний: все переменные из этого списка могут использоваться в любых выражениях внутри подпрограммы. Таким способом осуществляется настройка алгоритма подпрограммы на конкретную задачу.

Процедуры и функции представляют собой относительно самостоятельные фрагменты программы, оформленные особым образом и снабженные именем. Упоминание этого имени в тексте программы называется вызовом процедуры (функции).

Описание подпрограммы состоит из заголовка и тела подпрограммы. Заголовок процедуры имеет вид: procedure <имя> [(<СП.ф.п.>)]; . Здесь: <имя> - имя подпрограммы (правильный идентификатор), <СП.ф.п.> - список формальных параметров. Сразу за заголовком подпрограммы может следовать одна из стандартных директив assembler, external, far

, forward, inline, interrupt

, near

. Эти директивы уточняют действие компилятора и распространяются на всю подпрограмму и только на нее, т.е. если за подпрограммой следует другая подпрограмма, стандартная директива, указанная за заголовком первой, не распространяется на вторую.

Assembler – отменяет стандартную последовательность машинных инструкций, вырабатываемых при входе в процедуру и выходом из нее.

External – С помощью этой директивой объявляется внешняя подпрограмма.

Far – компилятор должен создавать код подпрограммы, рассчитанный на дальнюю модель вызова.

Near- заставит компилятор создать код, рассчитанный на ближайшую модель памяти.

Forward – используется при опережающем описании для сообщения компилятору, что описание подпрограммы следует где-то дальше по тексту программы (но в пределах текущего программного модуля).

Inline – указывает на то, что тело подпрограммы реализуется с помощью встроенных машинных инструкций.

Interrupt – используется при создание процедур обработки прерываний.

Параметры.

Список формальных параметров необязателен и может отсутствовать. Если же он есть, то в нем должны быть перечислены имена формальных параметров и их типы, например: Procedure SB (a: Real; b: Integer; c: Char);

Для оператора тела подпрограммы список параметров является своеобразным расширением раздела описаний: все переменные из этого списка могут использоваться в любых выражениях внутри подпрограммы. Таким способом осуществляется настройка алгоритма подпрограммы на конкретную задачу.