[AZZriel]

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

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


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

[Rokuell]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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 не знаешь?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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]

Пасиб )))))