Языки и технология программирования. Начальный курс \Pascal\
Методическое пособие - Компьютеры, программирование
Другие методички по предмету Компьютеры, программирование
i:=i+d;
end;
d:=-d;
{ээээээ эээээээээээ ээээээээ ээ эээээээээээээээ}
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
ээээээээээ ээээээээээ
ээээ эээээээ ээээээ эээээээ э эээ, эээ ээээээ эээ, ээээ эээ эээээээээээээ ээээээ ээ K эээээээээ, ээ эээээээээ эээ ээээ эээээээ, эээээээ эээ э ээээээ эээээ эээээээ, эээээ эээээээээээээээ ээ ээээээээээ. ээээээээээ эээээ эээээээээээээ ээээээээээээ ээ ээээээ эээээээ.
э ээээээ ээээээээээ эээээээээээээ эээээ эээээээ ээээээээ ээээээ ээээ эээээээ, эээээээ ээээээээ ээээээээ эээ, ээээ ээээээ эээ эээээээ, эээээээээ ээээээээээээ, эээээээ ээ ээээээ эээээ. эээээээээ ээээээ ээээээ эээээ эээ эээээээээээ ээээээээ ээээээээ э эээээээээ ээээээээээээ ээээээээээ ээээээээээ.
эээ эээээээээээээ эээээээээ ээээээ ээээээээээээээ эээээээээ ээээээээээ ээээээээээ ээээээээээ O(N*N), э эээ эээээээээээээ эээээээээ ээээээ - O(N*LogN) (эээээээ э ээээ ээээээээ ээ эээээээээ 2).
ээээээ: ээээээээээ ээ эээээээээээ эээээээ A ээ N эээээ эээээ ээээээээээ э ээээээээ эээээээ.
program Sort_Include1;
var A:array[1..100] of integer;
N,i,k,x : integer;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
read(A[1]); {for i:=1 to n do read(A[i]);}
{k - ээээээээээ эээээээээ э эээээээээээээ эээээ эээээээ}
for k:=1 to n-1 do
begin
read(x); {x:=A[k+1];}
i:=k;
while (i>0)and(A[i]>x) do
begin
A[i+1]:=A[i];
i:=i-1;
end;
A[i+1]:=x;
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
ээээээ: ээээээээээ ээ эээээээээээ эээээээ A ээ N эээээ эээээ ээээээээээ э ээээээээ эээээээ.
program Sort_Include2;
var A:array[1..100] of integer;
N,i,k,x,c,left,right : integer;
begin
write('ээээээээээ эээээээээ эээээээ '); read(N);
read(A[1]); {for i:=1 to n do read(A[i]);}
{k - ээээээээээ эээээээээ э эээээээээээээ эээээ эээээээ}
for k:=1 to n-1 do
begin
read(x); {x:=A[k+1];}
left:=1; right:=k;
{эээээ э ээээээ эээээээ эээээээээ эээ ээээээ}
while left<right do
{ээээээээ эээээ ээээээээээ эээээээээ}
begin
c:=(left+right+1) div 2;
{ээээээээ э эээээээээээ э эээээээ эээээээ}
if x>=A[c] then left:=c
{эээээ ээээээ ээээээээ э эээээээээ}
else right:=c-1; {эээээ эээээ ээээээээ эээ ээээээээ}
end;
if x>=A[left] then left:=left+1;
{ээээээээ ээ 1 ээээээ эээээ эээээээ, ээээээээээ эээээ
эээ эээээээээ x}
for i:=k downto left do A[i+1]:=A[i];
A[left]:=x;
end;
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
ээээээээээ эээээ
эээ ээээээээээ эээээ ээээээээ эээээээ эээээээээээ. эээээ эээ ээээээээээ э 1962 ээээ эээээээээээ ээээээээээээ ээээээээээээ э. ээээээ. эээ ээээээээээ ээээээ эээээээээээээ ээээээээ. ээээээээээ эээээээ ээээээ эээээээээ эээ ээээээээээээ эээээээ A ээ N эээээээээ ээ эээээээээээ.
ээээээээ ээээээ-ээээээ ээээээээ, ээээээ ээээээээээээ, ээээээээээээ э ээээээээээ X. эээээээээээээээ ээээээээ эээээээ. эээ ээээээээ эээээ-эээээээ ээээ эээээээ ээээээ эээ ээээээ X. э эээ ээээээээ ээээээ-ээээээ ээээ эээээээ ээээээ эээ ээээээ X. эээээээээ ээээээээ ээээээээ эээээээ э ээээээээээээ эээээээээ эээээ.
эээээ эээээ ээээээ ээээээээ эээээээээээ ээ эээ эээээ. э ээээээ эээээээээ ээээээээ ээээээ ээээ ээээээ X, э ээээээ - ээээээ ээээ ээээээ X. эээээ ээээээээ ээээээээ ээээээ э ээээээээээ эээээээ A ээ эээ эээээээээ э ээээээээээ ээээээээээ ээээээ эээээээ.
ээээээээээээээ эээээээээ ээээээ ээээээ эээээээ ээээээээээээ эээээээээ эээээээээээээээ ээээээээээ эээээээээ ээээээээээээ эээээээээ эээээээ. э ээээээ ээээээ эээээээ ээ эээээ ээээээээээээ эээээээ, эээээээ ээээээээээээээ эээээээээ эээээ эээээээээ эээээээ ээээээээээ ээээээээээ ээээээээ эээээээ N*LogN (ээээээээ ээ эээээээээ 2). ээээээээээээээ эээээээээ э эээээээ ээээ ээ эээээээ.
ээээээ: эээээээ ээээээээээ ээ эээээээээээ эээээээ A ээ N эээээ эээээ.
program Quick_Sort;
var A:array[1..100] of integer;
N,i : integer;
{э эээээээээ ээээээээээ эээээ э ээээээ эээээээ ээээээээээээ эээээээээ}
procedure QSort(L,R:integer);
var X,y,i,j:integer;
begin
X:=A[(L+R) div 2];
i:=L; j:=R;
while i<=j do
begin
while A[i]<X do i:=i+1;
while A[j]>X do j:=j-1;
if i<=j then
begin
y:=A[i]; A[i]:=A[j]; A[j]:=y;
i:=i+1; j:=j-1;
end;
end;
if L<j then QSort(L,j);
if i<R then QSort(i,R);
end;
begin
write('ээээээээээ эээээээээ эээээээ ');
read(N);
for i:=1 to n do read(A[i]);
QSort(1,n); {эээээээээээ ээээээээ э эээээээ ээ n-ээ}
for i:=1 to n do write(A[i],' '); {эээээээээээээ ээээээ}
end.
ээээээээээ э ээээээээээээээ эээээээ ээээээээ
э эээээээ ээ ээээ эээээ ээээээээээ эээээээ ээээээээээ, ээээ ээ ээээээээ эээээээээээээээ ээээээээээ, э ээээээээээээ эээээ ээээ, эээээээ эээээ эээээээээ э ээээээ ээ эээ. ээээ эээээээээээ э эээ, эээ ээээээээ ээээээээээээээ ээээээ B, эээээээ эээээээ ээээээээ ээээээээ ээээээээ. эээээ э эээ эээээээ э эээ, э эээээ эээээээ эээээ ээээээээ ээ ээээээээ ээ A, ээээээээ: ээээээ A : 4 7 3 5 ээээээ B : 3 1 4 2 { A[3] A[1] A[4] A[2] }
э ээээээ эээээээээ э ээээээ ээээээээ B ээээээээээээ эээээээээээээээ эээээээээээ эээээ ээ 1 ээ N. эээ ээээээ эээээ ээээээээээ ээээээ ээээээээ A[i] ээээээээээ э ээээээээ A[B[i]]. эээ эээээээ эээ ээээ, эээээ ээээээ эээээээ ээ ээээээээ эээээээ A, э ээ эээээээ, э.э. ээээээээ эээээээ B.
ээээээ CRT (ээээээээ эээээээээээ)