Архив форумов ЦИТФорума

[Dedushka_Wirth]

Privet! U menja zada4a po Delphi.
Sam roboval, polu4ilsja - bred .
Pomogite kto 4em mozhet.....u vas bystree naverno pojdet.

Вводятся 2 массива одинакового размера. Какой из них больше, если сравнивать их в лексикографическом порядке (как строки).

Pasiba zaranee

[Гость]

4to-to tut ne to!!!
Kak by poproshe et sdelat'?


Procedure TForm1.Button1Click(Sender: TObject);
Var res: Byte;
Begin
ListBox1.Items.LoadFromFile('massiv1.txt'); // грузим массивы
ListBox2.Items.LoadFormFile('massiv2.txt'); // из файлов
res:=max(ListBox1,ListBox2)
case res of
0: ShowMessage ('массивы равны');
1: ShowMessage ('первый больше');
2: ShowMessage ('первый меньше');
end;
End;

Function TForm1.Max (p1,p2: TListBox): Byte;
Var i:Integer; j:Integer;
Begin
Result:=0;
If p1.Items.Count>p2.Items.Count
then j:=p2.Items.Count else j:=p1.Items.Count;
For i:=0 to j-1 do
Begin
If Result<>0 then Exit;
If p1.items[i]>p2.items[i] then Result:=1;
If p2.items[i]>p1.items[i] then Result:=2;
End;
If p1.items.count>p2.items.count then Result:=1;
If p1.Items.Count<p2.Items.Count then Result:=2
End;

[Дедушка_Вирт(?)]

2Dedushka_Wirth

p1.items[i]>p2.items[i] then Result
ну это вроде б алфавитный порядок
что есть "лексикографический" более конкретно??