Отсортировать список фамилий по возрастанию

@lesha777 · Регистрация: 21.01.2014

Author24 — интернет-сервис помощи студентам

Отсортировать список фамилий по возрастанию
Вот начало

Pascal

const n=6;
   b:array[1..n] of string =('Никонов', 'Ветров', 'Малышев', 'Алексеев', 'Иванов', 'Леонов');
   var a:array[1..n] of string;
   t: string;
     i,j,imin: integer;

Работает не верно !!!

Pascal

const n=6;
b:array[1..n] of string =('Никонов', 'Ветров', 'Малышев', 'Алексеев', 'Иванов', 'Леонов');
var i, j,imin:integer;
a:array[1..n] of string;
t:string;
 
begin
 
for i:= 1 to n do
for J:= 1 to n-1 do
if(b[J] > b[J+1]) then 
 begin {сортируем по возрастанию. Если нужно наоборот, то меняем > на < }
 t:= b[J];
 a[J]:= b[J+1];
  a[J+1]:= t;
end;
 
for i:= 1 to n do
write(a[i], ' ');
end.

@Puporev · 14.02.2015, 07:06

Pascal

a:=b;
for i:= 1 to n do
for J:= 1 to n-1 do
if(a[J] > a[J+1]) then
 begin {сортируем по возрастанию. Если нужно наоборот, то меняем > на < }
  t:= a[J];
  a[J]:=a[J+1];
  a[J+1]:= t;
end;

	14.02.2015, 07:06

Опции темы