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

UptoLike

ВУЗ: 

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

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

Рубрика: 

179
Program mod_sort;
uses lov_3m;
var
myarray:arr;
i,j,x11,x12,y11,y12,a1,b1:byte;
Begin
randomize;
writeln(fam); {печать констант fam,fam1,fam2}
writeln(fam1);
writeln;
writeln(fam2);
win1(13,15,68,22,14,15); {установка окна win1}
writeln(' Данная матрица');
writeln;
win1(13,17,68,22,7,0); {установка окна win1}
for i:=1 to 5 do
for j:=1 to 5 do
myarray[i,j]:=random(88); {заполнение массива случайными
элементами}
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(myarray[i,j]:3); {печать элементов массива}
writeln;
end;
win2(50,15,68,22,4,15); {установка окна win2}
writeln(' Полученная матрица');
mas(myarray); {обращение к процедуре mas}
win1(52,17,68,22,7,0);
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(myarray[i,j]:3); {печать полученной матрицы}
writeln;
end;
End.
Пример 10.3. Модуль с разделом инициализации.
unit lov_4m; {модуль lov_4m использует раздел инициализации}
interface
uses crt;

Страницы