Алгоритмы и программы. Афанасьева Т. В - 176 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

176
function { описание функций }
{ инициализационная часть.}
begin { Основной блок модуля }
end.
Заголовок модуля специфицирует имя модуля, которое вы будете
использовать для обращения к нему в разделе USES вашей программы.
В интерфейсной части описываются константы, типы, переменные,
процедуры и функции доступные пользователю данного модуля.
В интерфейсной части записаны только заголовки процедур и
функций. Их тела
расположены в разделе реализации.
Реализационная часть содержит тела всех доступных процедур и
функций.
Также в ней описаны скрытые константы, типы, переменные,
процедуры и функции не доступные пользователю данного модуля.
Инициализационная часть является последним разделом модуля. Она
состоит либо из зарезервированного слова END, не имеющего
реализационного кода, или из последовательности операторов,
выполняющихся
при инициализации модуля.
Пример 10.1. Модуль, содержащий одну процедуру сортировки
элементов массива, стоящих на четных местах.
unit lov_1m;
interface
uses crt;
type arr=array[1..10] of integer;
procedure mas(var a:arr);
implementation
Procedure mas; {процедура сортировки mas методом парных
перестановок}
var
s,q,i,j,k,f,m:integer;
Begin
repeat
s:=0;
For i:=2 to 8 do
If i mod 2=0 then {выбор элементов, стоящих на четных
местах}
If a[i]>a[i+2] then begin {сортировка элементов по
возрастанию}

Страницы