[AZZriel]

Ребята помогите пожалуйста решить задачу на массивы ...препод говорит что она наилементарнейшая....а я в Delphi вообще не шарю...очень надо плизззз в четверг последний день сдачи (((

Найти номер наибольшего элемнта массива B(10) , Значение которого также принадлежит отрезку
(-2;2,5) включительно .


Помогите плиззз очень надо ....

[Rokuell]

Что-то вроде этого, можешь переделать под свои нужды:

Код:

function MinVal:real;
var B:array [1..10] of real; // как я понял тебе нужен дробный тип,
                             // если целый, то integer
    min:real;
    i:integer;
begin
 for i:=1 to 10 do B[i]:=Random*3; // запосление значений случайными числами
 min:=High(integer);
 for i:=1 to 10 do
  begin
   if (B[i] < min) and (B[i] >=2) and (B[i] <=2.5) then min:=B[i];
  end;
 if min = High(integer) then
  begin
   Result:=0; // Если ответа нет, то пусть функция возвращает 0
  end
 else
  begin
   Result:=min;
  end;
end;

[AZZriel]

Вау ...круто пасиб большое !!!

[AZZriel]

Слушай...это я как понял для нахождения наименьшего значения...а если наибольшее то это по аналогии да ? Если не трудно можешь код подправить немного для нахождения наибольшего значения тоже )))

[Rokuell]

Да ладно, не трудно, так ты что реально pascal не знаешь?

Код:

function MaxVal:real;
var B:array [1..10] of real;
    max:real;
    i:integer;
begin
 for i:=1 to 10 do B[i]:=Random*3; // заполнение значений случайными числами
 max:=Low(integer);
 for i:=1 to 10 do
  begin
   if (B[i] > max) and (B[i] >=2) and (B[i] <=2.5) then max:=B[i];
  end;
 if max= Low(integer) then
  begin
   Result:=0; // Если ответа нет, то пусть функция возвращает 0
  end
 else
  begin
   Result:=max;
  end;
end;

[AZZriel]

Неа...вообще болта не шарю в программировании...Не мое это =(Слушай а это разве паскаль ? Я думал делфи...а в делфи можешь ? Мне просто в делфи надо ((((

[Yurk@]

Да нет!
Прога РЕАЛЬНО на Делфи написана

[Rokuell]

Для тех кто не в курсе: Delphi - это среда прогрраммирования, а не язык!!! Основной язык в Delphi - это Object Pasсal, хотя можно писать на assembler, и немного на C ( с пом спец директивы вроде ).
Можно код написать хоть в блокноте, а потом откомпилить компилятором ( sorry ) от Delphi и прога будет работать!

[AZZriel]

Пасиб )))))