Выбор наибольшего числа!

← →
Витёк (2005-08-12 02:34) [0]

Подскажите пожалуйста, как мне например из 10 чисел выбрать наибольшее! Вот из двух я могу выбрать тут проще простого, а как из 10! Пожалуйста помогите!

← →
Andy BitOff © (2005-08-12 02:36) [1]

Что значит выбрать? Откуда?
Если на бумаге написано, просто посмотри какое больше.

← →
KilkennyCat © (2005-08-12 02:44) [2]

пузырьком.

и не жадничай :)

← →
KilkennyCat © (2005-08-12 02:48) [3]

а давайте поглючим, кто самый заумный код сравнения 10 чисел напишет?

← →
SoftX (2005-08-12 03:21) [4]

Procedure XXX; var a:array of integer; var i:integer; var maxnumber:integer; begin Setlength(a,10); randomize; for i:=0 to High(a) do a[i]:=Trunc(Random(MaxInt)); maxnumber:=a[0]; for i:=1 to High(a) do if a[i]>maxnumber then maxnumber:=a[i]; ShowMessage("Max number="+IntToStr(maxnumber)); end;

← →
KilkennyCat © (2005-08-12 03:29) [5]

предлагаю такой:

var s : TStringList; label oshibka; function check(const ss : string) : boolean; var i : integer; begin for i := 1 to length(ss) do begin result := ss[i] in ["0".."9"]; if not result then exit; end; end; begin s := TStringList.Create; if not check(edit1.text) then goto oshibka; s.add(Edit1.Text); if not check(edit2.text) then goto oshibka; s.add(Edit2.Text); if not check(edit3.text) then goto oshibka; s.add(Edit3.Text); if not check(edit4.text) then goto oshibka; s.add(Edit4.Text); if not check(edit5.text) then goto oshibka; s.add(Edit5.Text); if not check(edit6.text) then goto oshibka; s.add(Edit6.Text); if not check(edit7.text) then goto oshibka; s.add(Edit7.Text); if not check(edit8.text) then goto oshibka; s.add(Edit8.Text); if not check(edit9.text) then goto oshibka; s.add(Edit9.Text); if not check(edit10.text) then goto oshibka; s.add(Edit10.Text); s.sort; showmessage ("наибольшее число: " + s.strings[9] + " не обращайте внимание на последующее сообщение об ошибке"); oshibka : showmessage("Вы где-то что-то не то ввели. Попробуйте еще раз"); edit1.text := ""; edit2.text := ""; edit3.text := ""; edit4.text := ""; edit5.text := ""; edit6.text := ""; edit7.text := ""; edit8.text := ""; edit9.text := ""; edit10.text := ""; s.free; end;

← →
Andy BitOff © (2005-08-12 03:33) [6]

KilkennyCat © (12.08.05 03:29) [5]

Ну тут ты перестарался, надо было check функцией не оформлять, а прописать явно в каждом условии. Вот тогда...

← →
Lamer@fools.ua © (2005-08-12 08:25) [7]

>>SoftX (12.08.05 03:21) [4]

>if a[i]>maxnumber then maxnumber:=a[i];

Автор, вроде как, наибольшее просил, а не наименьшее.

>>KilkennyCat © (12.08.05 03:29) [5]

2 > 10
?

← →
БарЛог © (2005-08-12 08:27) [8]

Переводим в двоичную систему. Идем от старшего бита и сравниваем на равно/не равно. При первом неравенстве то число, где 1, больше.

Код писАть лень =)

ЗЫ Систему счисления можно и не двоичную =) тада алгоритм чуток изменить придется.

← →
begin...end © (2005-08-12 08:34) [9]

> Lamer@fools.ua © (12.08.05 08:25) [7]

> Автор, вроде как, наибольшее просил, а не наименьшее.

Там, вроде как, наибольшее и находится.

← →
tttyu © (2005-08-12 08:48) [10]

for Ct1:=0 to 9 do begin if ChkValue<WArray[ct1] then break else begin ChkError:=ChkError+1; min1:=ChkValue; end; end; if chkerror=10 then begin ShowMessage(Inttostr(min1)); break; end; end;Ограничение на 9-просто так

← →
TUser © (2005-08-12 08:51) [11]

> а давайте поглючим, кто самый заумный код сравнения 10 чисел напишет?

Вот поиск 10-го (по порядку) числа из 10. Время - логарифмическое. Не тестировал, но принцип понятен.

var A: array [0..9] of integer;

function Find10: integer;

function F (S, E: byte): integer;
var i, j, m: integer;
begin
if S = E then
result:=S
else begin
i:=S; j:=E;
repeat
m:=(i + j) shr 1;
m:=A[m];
while A[i] < m do inc (i);
while A[j] > m do dec (j);
if i < j then begin
m:=A[i]; A[i]:=A[j]; A[j]:=m;
end;
until i >= j;
result:=F (i,E);
end;
end;

begin
result:=F (0,9);
end;

← →
Gero © (2005-08-12 08:58) [12]

if (a1 > a2) and (a1 > a3) and (a1 > a4) and (a1 > a5) and (a1 > a6) and (a1 > a7) and (a1 > a8) and (a1 > a9) and (a1 > a10) then Result := a1 else if (a2 > a1) and (a2 > a3) and (a2 > a4) and (a2 > a5) and (a2 > a6) and (a2 > a7) and (a2 > a8) and (a2 > a9) and (a2 > a20) then Result := a2 else if (a3 > a1) and (a3 > a2) and (a3 > a4) and (a3 > a5) and (a3 > a6) and (a3 > a7) and (a3 > a8) and (a3 > a9) and (a3 > a30) then Result := a3 else if (a4 > a1) and (a4 > a2) and (a4 > a3) and (a4 > a5) and (a4 > a6) and (a4 > a7) and (a4 > a8) and (a4 > a9) and (a4 > a40) then Result := a4 else if (a5 > a1) and (a5 > a2) and (a5 > a3) and (a5 > a4) and (a5 > a6) and (a5 > a7) and (a5 > a8) and (a5 > a9) and (a5 > a50) then Result := a5 else if (a6 > a1) and (a6 > a2) and (a6 > a3) and (a6 > a4) and (a6 > a5) and (a6 > a7) and (a6 > a8) and (a6 > a9) and (a6 > a60) then Result := a6 else if (a7 > a1) and (a7 > a2) and (a7 > a3) and (a7 > a4) and (a7 > a5) and (a7 > a6) and (a7 > a8) and (a7 > a9) and (a7 > a70) then Result := a7 else if (a8 > a1) and (a8 > a2) and (a8 > a3) and (a8 > a4) and (a8 > a5) and (a8 > a6) and (a8 > a7) and (a8 > a9) and (a8 > a80) then Result := a8 else if (a9 > a1) and (a9 > a2) and (a9 > a3) and (a9 > a4) and (a9 > a5) and (a9 > a6) and (a9 > a7) and (a9 > a8) and (a9 > a90) then Result := a9 else if (a10 > a1) and (a10 > a2) and (a10 > a3) and (a10 > a4) and (a10 > a5) and (a10 > a6) and (a10 > a7) and (a10 > a8) and (a10 > a9) then Result := a10 else Result := ERROR;

← →
tttyu © (2005-08-12 10:49) [13]

> Gero

Стильно!

← →
Lamer@fools.ua © (2005-08-12 10:50) [14]

>>begin...end © (12.08.05 08:34) [9]

А, ну да. Это я ступил.

← →
Igorek © (2005-08-12 10:52) [15]

Если массив 10 чисел отсортирован, то берем соотв. первое или последнее.

← →
ocean © (2005-08-12 11:49) [16]

unit Math;
var iArray[1..10] : Array of Integer;
...
Result := MaxIntValue(iArray);

> а давайте поглючим, кто самый заумный код сравнения 10 чисел напишет?
{ А вдруг там 2 одинаковых максимальных числа? }
... (в лом)

← →
ocean © (2005-08-12 11:50) [17]

пардон, заболтался:
uses unit Math;

← →
Думкин © (2005-08-12 11:55) [18]

> [17] ocean © (12.08.05 11:50)

Колбасит, Михалыч? (с)

← →
KilkennyCat © (2005-08-12 11:55) [19]

> [12] Gero © (12.08.05 08:58)

Блеск!
:)

← →
Antonn © (2005-08-12 12:00) [20]

Разрешите добавить свои 10 копеек:)

function MaxIsTenChisel(_i1,_i2,_i3,_i4,_i5,_i6,_i7,_i8,_i9,_i10:real):real; var _massiv:array[0..9] of real; _max_tmp:real; i:integer; begin _massiv[0]:=_i1;_massiv[1]:=_i2; _massiv[2]:=_i3;_massiv[3]:=_i4; _massiv[4]:=_i5;_massiv[5]:=_i6; _massiv[6]:=_i7;_massiv[7]:=_i8; _massiv[8]:=_i9;_massiv[9]:=_i10; _max_tmp:=_massiv[0]; for i:=0 to 9 do if _massiv[i]> _max_tmp then _max_tmp:=_massiv[i]; result:=_max_tmp; end; procedure TForm1.Button1Click(Sender: TObject); begin label1.caption:=floattostr(MaxIsTenChisel(10,20,30,40,45,60,80,10,20,80.2)); end;

← →
KilkennyCat © (2005-08-12 12:27) [21]

интересно, можно ли применить строковые Soundные функции?

← →
guav © (2005-08-13 00:42) [22]

http://kladovka.net.ru/index.cgi?pid=list&rid=213

← →
Витёк (2005-08-13 02:11) [23]

Огромное спасибо всем!!! Вы мне очень ПОМОГЛИ!!!!!!!!!!!

← →
Труп Васи Доброго © (2005-08-13 10:50) [24]

Смотри примеры из стандартной поставки Дельфей, там есть три алгоритма сортировки массива, выбирай на вкус.

← →
SergP. (2005-08-13 11:55) [25]

> Gero © (12.08.05 08:58) [12]
>
> if (a1 > a2) and (a1 > a3) and (a1 > a4) and (a1 > a5) and
> (a1 > a6) and (a1 > a7) and (a1 > a8) and (a1 > a9) and
> (a1 > a10) then
> Result := a1
> else if (a2 > a1) and (a2 > a3) and (a2 > a4) and (a2 >
> a5) and (a2 > a6) and (a2 > a7) and (a2 > a8) and (a2 >
> a9) and (a2 > a20) then
> Result := a2
> else if (a3 > a1) and (a3 > a2) and (a3 > a4) and (a3 >
> a5) and (a3 > a6) and (a3 > a7) and (a3 > a8) and (a3 >
> a9) and (a3 > a30) then
> Result := a3
> else if (a4 > a1) and (a4 > a2) and (a4 > a3) and (a4 >
> a5) and (a4 > a6) and (a4 > a7) and (a4 > a8) and (a4 >
> a9) and (a4 > a40) then
> Result := a4
> else if (a5 > a1) and (a5 > a2) and (a5 > a3) and (a5 >
> a4) and (a5 > a6) and (a5 > a7) and (a5 > a8) and (a5 >
> a9) and (a5 > a50) then
> Result := a5
> else if (a6 > a1) and (a6 > a2) and (a6 > a3) and (a6 >
> a4) and (a6 > a5) and (a6 > a7) and (a6 > a8) and (a6 >
> a9) and (a6 > a60) then
> Result := a6
> else if (a7 > a1) and (a7 > a2) and (a7 > a3) and (a7 >
> a4) and (a7 > a5) and (a7 > a6) and (a7 > a8) and (a7 >
> a9) and (a7 > a70) then
> Result := a7
> else if (a8 > a1) and (a8 > a2) and (a8 > a3) and (a8 >
> a4) and (a8 > a5) and (a8 > a6) and (a8 > a7) and (a8 >
> a9) and (a8 > a80) then
> Result := a8
> else if (a9 > a1) and (a9 > a2) and (a9 > a3) and (a9 >
> a4) and (a9 > a5) and (a9 > a6) and (a9 > a7) and (a9 >
> a8) and (a9 > a90) then
> Result := a9
> else if (a10 > a1) and (a10 > a2) and (a10 > a3) and (a10
> > a4) and (a10 > a5) and (a10 > a6) and (a10 > a7) and (a10
> > a8) and (a10 > a9) then
> Result := a10
> else
> Result := ERROR;

Попытался оптимизировать. :-)))

if (a1 > a2) and (a1 > a3) and (a1 > a4) and (a1 > a5) and
(a1 > a6) and (a1 > a7) and (a1 > a8) and (a1 > a9) and
(a1 > a10) then
Result := a1
else if (a2 > a3) and (a2 > a4) and (a2 > a5) and (a2 > a6) and (a2 > a7) and (a2 > a8) and (a2 >
a9) and (a2 > a10) then
Result := a2
else if (a3 > a4) and (a3 > a5) and (a3 > a6) and (a3 > a7) and (a3 > a8) and (a3 > a9) and (a3 > a10) then
Result := a3
else if (a4 > a5) and (a4 > a6) and (a4 > a7) and (a4 > a8) and (a4 > a9) and (a4 > a10) then
Result := a4
else if (a5 > a6) and (a5 > a7) and (a5 > a8) and (a5 >
a9) and (a5 > a10) then
Result := a5
else if(a6 > a7) and (a6 > a8) and (a6 > a9) and (a6 > a10) then
Result := a6
else if (a7 > a8) and (a7 > a9) and (a7 > a70) then
Result := a7
else if (a8 > a9) and (a8 > a10) then
Result := a8
else if (a9 > a10) then
Result := a9
else Result := a10;

А я бы их в TList поместил, точнее указатели на них и сортировал его. Врядли самому удастся придумать лучший способ сортировки, чем у TList"а.

> Попытался оптимизировать. :-)))

Самый оптимальный код у меня. см. ссылку 22

>>GuAV © (13.08.05 13:46) [27]

>Самый оптимальный код у меня

По какому критерию?

По критерию минимизации предпринятых усилий для реализации у меня самый оптимальный:
Math.MaxValue() либо Math.MaxIntValue().

> По какому критерию?

Очевидно, что по требованиям данной ветки.

> Кому очевидно?

А вы этот код смотрели?

max(max(...),max(...))
глупо и просто.

NikotiN © (13.08.05 19:59) [32]
max(max(...),max(...))

Точно!!

function ExecAndWait(const ExeName, Params: string; out ExitCode: Cardinal; Timeout: Cardinal = MaxInt): boolean; var p: PChar; sui: TStartupInfo; pi: TProcessInformation; begin ZeroMemory(@sui, SizeOf(sui)); sui.cb := SizeOf(sui); if ExeName = "" then P := nil else P := PChar(ExeName); Win32Check(CreateProcess(p, PChar(Params), nil, nil, False, 0, nil, nil, sui, pi)); try CloseHandle(pi.hThread); Result := WaitForSingleObject(pi.hProcess, Timeout) = WAIT_OBJECT_0; if Result then Win32Check(GetExitCodeProcess(pi.hProcess, ExitCode)); finally CloseHandle(pi.hProcess); end; end; function FindMax(Arr: array of Integer): Integer; const ProgramText = " function Max(i, j: Integer): Integer;"#13#10+ " begin"#13#10+ " if i > j then"#13#10+ " Result := i"#13#10+ " else"#13#10+ " Result := j;"#13#10+ " end;"#13#10+ ""#13#10+ "begin"#13#10+ " Halt(%s)"#13#10+ "end."; function StrMax(const s1, s2: string): string; begin Result := "Max(" + s1 + ", " + s2 + ")"; end; var s: string; f: TextFile; i: Integer; flag: boolean; begin s := IntToStr(Arr[Low(Arr)]); for i := low(Arr) + 1 to high(Arr) do s := StrMax(s, IntToStr(Arr[i])); AssignFile(f, ExtractFilePath(ParamStr(0)) + "calc.dpr"); ReWrite(f); try Write(f, Format(ProgramText, [s])); finally CloseFile(f); end; flag := ExecAndWait("", "dcc32.exe "" + ExtractFilePath(ParamStr(0)) + "calc.dpr"", Cardinal(Result)); if flag then flag := ExecAndWait(ExtractFilePath(ParamStr(0)) + "calc.exe", "", Cardinal(Result)); if not flag then raise Exception.Create("Не могу найти ответ. Очень сложная задача :-("); end;

Lamer@fools.ua © (13.08.05 17:29) [28]

> По какому критерию?

Минимум зависимостей.
IMHO, самый быстрый алгоритм (из предложенных).

Выбор наибольшего числа! Найти похожие ветки