[Делфи]Самое маленькое число. Как вычислить?

[zotox]

Есть числа такого плана:

4120,9947,21,412,10,82.

(т.е. числа через запятую (токо числа ничего больше), а на конце точка)
Как программно на делфи вычислить самое маленькое число?

[SuperVisor]

Элементарно, Ватсон.

var
  S,S2: string;
  i:integer;
begin
  S:='234,555,333,123.';
  s2:='';
  i:=0;

  while length(S)<>0 do
  begin

    if s[1] in ['0'..'9'] then
      s2:=s2+s[1]
    else

    begin
      if strtoint(s2)<i then i:=strtoint(s2);
      s2:='';
    end;

    delete(s,1,1);
  end;
  ShowMessage(inttostr(i));
end;

[Alex Cones]

А ты загони эти числа в массив и отсортируй его по убыванию. Числа вводить так:

Var
NachalString, EscheString:String;
Massiv:Array of Integer;
N:Integer;
Begin
ReadLn(NachalString);
EscheString:=NachalString;
While Pos(EsheString,',')<>0 do
 Begin
   Inc(N);
   Delete(EsheString,Pos(EsheString,','), Length(EscheString)-Pos(EsheString,','));
 End;
SetLength(Massiv,N);
EscheString:=NachalString;
While Pos(EscheString,'.')<>1 Do
 {Дальше додумывай сам решение очень простое, аналогично тому, что я описал выше}

[zotox]

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

Элементарно, Ватсон.

var
  S,S2: string;
  i:integer;
begin
  S:='234,555,333,123.';
  s2:='';
  i:=0;

  while length(S)<>0 do
  begin

    if s[1] in ['0'..'9'] then
      s2:=s2+s[1]
    else

    begin
      if strtoint(s2)<i then i:=strtoint(s2);
      s2:='';
    end;

    delete(s,1,1);
  end;
  ShowMessage(inttostr(i));
end;

Пробывали? У меня выводится ноль почему то

Alex Cones уж слишком непонятно

Все еще актуально

[Скандербег]

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

Пробывали? У меня выводится ноль почему то
Все еще актуально

В отладке посмотреть "почему" слишком сложно?

Да, все просто. i := MaxInt, а не i := 0, потому как в этом случае условие strtoint(s2)<i никогда не выполняется (при положительных числах, как они есть в приведенной автором строке) и как вошли в цикл с i = 0, так и вышли с тем же значением.

[SERG1980]

var
  S,S2: string;
  i:integer;
begin
  S:='234,555,333,123.';
  s2:='';
  i:=0;

  while length(S)<>0 do
  begin

    if s[1] in ['0'..'9'] then
      s2:=s2+s[1]
    else

    begin
      if i=0 then i:=strtoint(s2) else
      if strtoint(s2)<i then i:=strtoint(s2);
      s2:='';
    end;

    delete(s,1,1);
  end;
  ShowMessage(inttostr(i));
end;

[Serge_Bliznykov]

Ребят, безусловно, код (с) SuperVisor c модификацией SERG1980 будет работать.
Почти... (как говорится - "программа работает в целом, прокалываясь на мелочах..." )

Прежде, просто брюзжание...
Но, зачем, вот объясните мне - ЗАЧЕМ - называть переменную, в которой мы храним минимальное значение i ?!
неужели MinValue или CurrentMin хуже?! но это ладно..

а вот, SERG1980, скажите, если я в строке напишу так:

  S:='12,10,0,777.';

Догадываетесь, какой ответ выдаст программа?!
Сообщаю - НЕВЕРНЫЙ!

А если в строке я напишу отрицательные числа, что будет?!
почему бы не завести счётчик чисел (ну, или булевскую переменную) и в MinValue записывать ПЕРВОЕ число из строки, а потом уже сравнивать остальные числа с ним...

реализацию не пишу. Потому как не сомневаюсь в способностях здесь присутствующих.

[IliaIT]

А всё просто, тут немного надо было придумать, чуть чуть не доглядели.
вобщем надо проверку ставить.

var
  S,S2: string;
  i:integer;
  pr:boolean;
begin
  S:='234,-555,0,123.';
  s2:='';
  pr:=true;

  while length(S)<>0 do
  begin

    if s[1] in ['0'..'9','-'] then
      s2:=s2+s[1]
    else

    begin
      if pr then begin i:=strtoint(s2); pr:=false end else
      if strtoint(s2)<i then i:=strtoint(s2);
      s2:='';
    end;

    delete(s,1,1);
  end;
  ShowMessage(inttostr(i));
end;

[Nester]

Попробуй так:

Procedure TForm1.Button1Click(Sender: TObject);
 Const Stroka='100,2,500,-6,10,0,-100,-500,15,7';
 Var I,Min:Integer;
     S:String;
 Begin
  //Минимальное число по умолчанию
  Min:=0;
  //Проходим по всем символам строки
  For I:=1 To Length(Stroka) Do
   Begin
    //Если найден не допустимый символ то EXIT
    If Not (Stroka[I] In ['0'..'9','-',',']) Then Exit;
    //Если не разделитель то добавляем символ
    If Stroka[I]<>',' Then S:=S+Stroka[I]
    Else
     //Если символ разделитель
     Begin
      //Если в между разделителями нет числа то EXIT
      If (Length(S)=0) Or (S='-') Then Exit;
      //Если число меньше чем Min то Min=Число
      If StrToInt(S)<Min Then Min:=StrToInt(S);
      //Очищаем
      S:='';
    End;
 End;

 Label1.Caption:=IntToStr(Min)
End;

[Stilet]

Все тут чето обсуждают горячо... А мона и я тут выкидышем похвастаюсь?

  const s='4120,9947,210 412,100,82.';
  var e:string;kk,mn,k,i:integer;
begin                 mn:=MaxInt;
 i:=1; while i<=length(s) do begin
  if not (s[i] in ['0'..'9']) then begin
   val(e,k,kk);
   if mn>k then mn:=k;
   e:='';
  end else begin
   e:=e+s[i];
  end;
  inc(i);
 end;
 write(mn); Readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Код не звисит от разделителей, но рассчитан только на целые. Думаю это самый оптимальный из представленных.