взаимодействие массивов (Делфи)

[Влад99]

Есть 2 одномерных массива (очки и команды) Изменения в одном должны должны привести к изменениям другого. Например, после получения дополнительных очков команда должна изменить положение в турнирной таблице.Подскажите алгоритм. В варианте отслеживания изменений в массиве команд (64-Зенит,59-ЦСКА и т.д.) в ответ на изменения в массиве очков(67,59...) есть затруднения в использовании Leftstr(sort0,2). Не удается переместить в левую часть массива команд изменения в массиве очков(:
64-->67.

[Stilet]

Пока ниче не понятно. Покаж код.

[Dvoishnik]

var
comanda:array [1..20] of string;
ochki:array [1..20] of integer;
s:string;
x, i, j : Integer;

begin
    for i := 1 to 20-1 do
        for j := 1 to 20-i do
            if ochki[j] > ochki[j+1] then begin
            begin
             x := ochki[j];
             s:=comanda[j];
             comanda[j]:=comanda[j+!];
             comanda[j+1]:=s;
             ochki[j] :=ochki[j + 1];
             ochki[j + 1] := x;
            end;
...............
end.

просто сортируете массив ocmanda в одном цикле с массивом ochki

[Влад99]

В этой строке должно быть 20-i ? for i := 1 to 20-1 do

[Dvoishnik]

Сообщение от Влад99

В этой строке должно быть 20-i ? for i := 1 to 20-1 do

нет все верно в той строке.
должно быть

for j := 1 to 20-i do

[Влад99]

var
  Form1: TForm1;
  st,st1:string;
  const
  NT=5;
al:array[1..5]of string[15]=('64-Зенит','59-ЦСКА','59-Краснодар','49-Динамо','47-Рубин');
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
s1:integer;
i:integer;
 sort0:string;
  sort1:string;
  sort2:integer;

begin
 s:=Edit1.Text;//Пользователь вставляет НОМЕР КОМАНДЫ, забившей гол
 s1:=strtoint(s);
 sort0:=al[s1];
 sort1:=Leftstr(sort0,2);//выделяются 2 символа слева у команды
 sort2:=strtoint(sort1)+3;//добавляются очки
 sort1:=inttostr(sort2);
//ДАЛЕЕ НУЖНО БЫ ЗАМЕНИТЬ 47-Рубин на 50-Рубин и провести сортировку
//В результате которой Рубин и Динамо поменяются местами (у Динамо-49 очков)
//Пробовал отдельно анализировать и сортировать массивы очков и команд-не получается
//Ниже- исходный список ДО изменений
procedure TForm1.FormCreate(Sender: TObject);
 var i:integer;
begin
 Edit1.Text:='';
 Label1.Caption:='';
 Label2.Caption:='';
for i:=1 to 5 do begin
 st:=st+al[i]+' '+#13#10;   st1:=st1+inttostr(i)+' '+#13#10;
 Label1.Caption:=st;
 Label2.Caption:=st1;
 end; end;
end.

#
А зачем одно и то же трижды с интервалом в несколько минут? Удалил.
Модератор

[Влад99]

Сообщение от Stilet

Пока ниче не понятно. Покаж код.

var
  Form1: TForm1;
  st,st1:string;
  const
  NT=5;
al:array[1..5]of string[15]=('64-Зенит','59-ЦСКА','59-Краснодар','49-Динамо','47-Рубин');
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
s1:integer;
i:integer;
 sort0:string;
  sort1:string;
  sort2:integer;

begin
 s:=Edit1.Text;//Пользователь вставляет НОМЕР КОМАНДЫ, забившей гол
 s1:=strtoint(s);
 sort0:=al[s1];
 sort1:=Leftstr(sort0,2);//выделяются 2 символа слева у команды
 sort2:=strtoint(sort1)+3;//добавляются очки
 sort1:=inttostr(sort2);
//ДАЛЕЕ НУЖНО БЫ ЗАМЕНИТЬ 47-Рубин на 50-Рубин и провести сортировку
//В результате которой Рубин и Динамо поменяются местами (у Динамо-49 очков)
//Пробовал отдельно анализировать и сортировать массивы очков и команд-не получается
//Ниже- исходный список ДО изменений
procedure TForm1.FormCreate(Sender: TObject);
 var i:integer;
begin
 Edit1.Text:='';
 Label1.Caption:='';
 Label2.Caption:='';
for i:=1 to 5 do begin
 st:=st+al[i]+' '+#13#10;   st1:=st1+inttostr(i)+' '+#13#10;
 Label1.Caption:=st;
 Label2.Caption:=st1;
 end; end;
end.

[Влад99]

спасибо за помощь

[Влад99]

Спасибо все получилось