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

UptoLike

ВУЗ: 

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

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

Рубрика: 

178
const fam2=' После просмотра результатов программы нажмите
<Esc>. ';
procedure win1(x1,y1,x2,y2,c,b:byte); {вывод окна }
procedure win2(x1,y1,x2,y2,c,b:byte); {вывод окна с мерцающими
символами}
procedure mas(var g:arr); {сортировка массива}
implementation
Procedure win2; {процедура win2}
begin
window(x1,y1,x2,y2); {окно}
textbackground(c); {цвет экрана}
textcolor(b+blink); {цвет мерцающего символа}
end;
Procedure win1; {процедура win1}
begin
window(x1,y1,x2,y2); {окно}
textbackground(c); {цвет экрана}
textcolor(b); {цвет символа}
end;
Procedure mas;
var
i,j,k,f,m:integer;
begin
for i:=1 to 5 do
if i mod 2<>0 then {поиск нечетных строк}
for j:=1 to 5 do
begin {сортировка элементов по }
{возрастанию}
m:=g[i,j];
k:=j;
for f:=j+1 to 5 do
if g[i,f]<m then
begin
m:=g[i,f];
k:=f;
end;
g[i,k]:=g[i,j];
g[i,j]:=m;
end;
end;{mas}
end.
Программа, использующая модуль LOV_3.PAS.

Страницы