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

UptoLike

ВУЗ: 

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

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

Рубрика: 

177
j:=a[i];
a[i]:=a[i+2];
a[i+2]:=j;
s:=s+1;
end;
until s=0;
end;{mas}
End.
Программа, использующая вышеописанный модуль LOV_1.PAS.
Program REX; {программа с использованием процедуры
модуля}
uses lov_1m,crt; {подключение модуля lov_1m}
var
myarray:arr;{тип arr описан в модуле lov_1m}
i,k,q,j,s:integer;
Begin
clrscr;
randomize;
Write(' Исходная последовательность: ');
For i:=1 to 10 do
begin
myarray[i]:=random(55); {заполнение массива случайными
элементами}
Write(myarray[i]:2,' ');
end;
Writeln;
Write(' Новая последовательность: ');
mas(myarray); {обращение к процедуре сортировки mas модуля
lov_1m}
For i:=1 to 10 do Write(myarray[i]:2,' ');
End.
Пример 10.2. Модуль, содержащий коонстанты и 3 процедуры.
unit lov_3m; {модуль lov_3m}
interface
uses crt;
type arr=array[1..5,1..5] of integer;
const fam=' Задача. Расположить элементы двумерного массива в
нечетных ';
const fam1=' строках по
возрастанию их значений. ';

Страницы