var
T: array[1 .. 15] of integer;
n, I, с: integer;
begin
write('n = ');
readln(n);
if (n>1) and (n<15) then
begin
for i := 1 to n do begin
write('T[', i, '] = ');
readln(T);
end;
write('C = ');
readln(c);
for i := 1 to n do begin
if T<>c then
write(T,' ')
end;
end else
writeln('enter..');
readln;
end.
сортировкапо убыванию
Как сделать сортировку по убыванию даного write(T,' '). Помогите с кодом сортировки.
Код:
непонятно что такое С-?
сама сортировка по убыванию методом пузырька будет выглядеть вот так без дополнительной переменной:
и с дополнительной переменной:
сама сортировка по убыванию методом пузырька будет выглядеть вот так без дополнительной переменной:
Код:
for i:=1 to N-1 do
for j := i+1 to N do
if (a>a[j]) then
begin
a := a+a[j];
a[j] := a-a[j];
a := a-a[j];
end;
for j := i+1 to N do
if (a>a[j]) then
begin
a := a+a[j];
a[j] := a-a[j];
a := a-a[j];
end;
и с дополнительной переменной:
Код:
for i:=1 to N-1 do
for j := i+1 to N do
if (a>a[j]) then
begin
k := a;
a := a[j];
a[j] := k;
end;
for j := i+1 to N do
if (a>a[j]) then
begin
k := a;
a := a[j];
a[j] := k;
end;
Че та не работает сортировка в чем дело?
Код:
var
T: array[1 .. 15] of integer;
n,i,j,c,k:integer;
begin
write('n = ');
readln(n);
if (n>1) and (n<15) then
begin
for i := 1 to n do begin
write('T[', i, '] = ');
readln(T);
end;
write('C = ');
readln(c);
for i := 1 to n do begin
if T<>c then
write(T,' ')
end;
for i:=1 to N-1 do
for j := i+1 to N do
if (a>a[j]) then
begin
k := T;
T := t[j];
T[j] := k;
end;
end else
writeln('enter..');
readln;
end.
T: array[1 .. 15] of integer;
n,i,j,c,k:integer;
begin
write('n = ');
readln(n);
if (n>1) and (n<15) then
begin
for i := 1 to n do begin
write('T[', i, '] = ');
readln(T);
end;
write('C = ');
readln(c);
for i := 1 to n do begin
if T<>c then
write(T,' ')
end;
for i:=1 to N-1 do
for j := i+1 to N do
if (a>a[j]) then
begin
k := T;
T := t[j];
T[j] := k;
end;
end else
writeln('enter..');
readln;
end.
вот код:
под свою С еще допишешь
З.Ы. и привыкай писать с отступами, чтобы было понятно читать твой код!!!
Код:
var
T: array[1 .. 15] of integer;
n,i,j,c,k:integer;
begin
write('n = ');
readln(n);
if (n>=1) and (n<=15) then
for i := 1 to n do begin
write('T[', i, '] = ');
readln(T);
end;
for i:=1 to N-1 do
for j := i+1 to N do
if (t<t[j]) then
begin
k := T;
T := t[j];
T[j] := k;
end;
for i := 1 to n do
write(T,' ');
readln;
end.
T: array[1 .. 15] of integer;
n,i,j,c,k:integer;
begin
write('n = ');
readln(n);
if (n>=1) and (n<=15) then
for i := 1 to n do begin
write('T[', i, '] = ');
readln(T);
end;
for i:=1 to N-1 do
for j := i+1 to N do
if (t<t[j]) then
begin
k := T;
T := t[j];
T[j] := k;
end;
for i := 1 to n do
write(T,' ');
readln;
end.
под свою С еще допишешь
З.Ы. и привыкай писать с отступами, чтобы было понятно читать твой код!!!