VPF::[Delphi]Дин.Массивы поиск мин.Нечётного! числа

Нэраварин

Дата 9.3.2009, 13:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 9.3.2009

Репутация: нет
Всего: нет

Впринципе довольно распространёная задачка, фактически она  у меня решена, "но я считаю что я немного смошеничал". Суть в том что мне нужно найти миниальный нечётный элемент при помощи функции ODD , по моей логике 0-чётное (и число и в 0-ой позиции масива обычно хранится тоже чётное) а в последующей обычно Random ставит Мин.нечётный. вот я тупо и сделал Min:=x[1].
Но подскажите как грамотно реализовать цикл с использованием ODD.

Условие моей задачи :
//Даны  целые числа a, x1, x2, ..., xn.
//Если в последовательности x1, x2, ..., xn есть хотя бы один член, равный a,
// то получить сумму всех членов, следующих за первым таким членом,
// иначе найти минимальный среди нечетных чисел последовательности x1, x2, ..., xn

Код моей задачи (Суть в конце кода, (но на всякий случай описал абсолютно полностью всю ситуацию неабесудьте если "Многа_БУкафф   smile

"))

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(X, 10);   // устанавливает длинну динамического массива
  for i:=0 to 9 do begin
    X[i]:=Random(50)-50;   //задаём случайные числа динамическому массиву Х
    S.cells[i,0]:=floattostr(x[i]); //  отображаем случайные числа из динамического масива Х в Стринг грид
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  j,sum,min,n,a,i:integer;
  ok: boolean;
begin
  a := strtoint(Edit2.Text);
  i := 0;
  ok :=false;
  n := Length(x);
  sum:=0;
  min:=x[1];

  while not ok and (i < n) do
  begin
      if x[i] = a then
        ok := true   //поиск элемента А
      else
        i:=i+1;
  end;
  if Ok then
    for j:=I+1 to 9 do begin   //Если элемент А найден считаем суму последующих чисел за ним
      sum:=sum+x[j];
      Label1.Caption := IntToStr(sum) + ' ' + IntToStr(sum);
      end
    else                                   //Если эл. А ненайден ищем Минимальное нечётное чилсо
     for i:=1 to 9 do begin
       {while odd(x[i]) do begin} {Тщетные попытки заставить ф-цию odd работать на автоматизме через цыкл}
       {if odd(x[i])then begin}       //ВОТ тут то и нужна мне ваша помощь!
        if odd(x[i]) < odd(min) then  min:=x[i];
        //end;
        //end;
       end;
       Label1.Caption := IntToStr(min);



end;
end.

При помощи этой задачи понимал суть масивов, Но нивкакую немогу реализовать другую задачу т.к у вас правило одна тема-один вопрос то пожалуйста перейдите по ссылочке на другую тему Сравнение двух строк

З.Ы Оформил вроде правильно, но у мну что то неощущается подсветки кода ...

Это сообщение отредактировал(а) Нэраварин - 9.3.2009, 14:36

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »