![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Ребята помогите пожалуйста решить задачу на массивы ...препод говорит что она наилементарнейшая....а я в Delphi вообще не шарю...очень надо плизззз в четверг последний день сдачи (((
Найти номер наибольшего элемнта массива B(10) , Значение которого также принадлежит отрезку (-2;2,5) включительно . Помогите плиззз очень надо .... Последний раз редактировалось AZZriel, 25.12.2007 в 20:50. |
#2
|
||||
|
||||
![]() Что-то вроде этого, можешь переделать под свои нужды:
Код:
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; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#3
|
|||
|
|||
![]() Вау ...круто пасиб большое !!!
![]() |
#4
|
|||
|
|||
![]() Слушай...это я как понял для нахождения наименьшего значения...а если наибольшее то это по аналогии да ? Если не трудно можешь код подправить немного для нахождения наибольшего значения тоже )))
Последний раз редактировалось AZZriel, 25.12.2007 в 21:19. |
#5
|
||||
|
||||
![]() Да ладно, не трудно, так ты что реально 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; Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#6
|
|||
|
|||
![]() Неа...вообще болта не шарю в программировании...Не мое это =(Слушай а это разве паскаль ? Я думал делфи...а в делфи можешь ? Мне просто в делфи надо ((((
|
#7
|
||||
|
||||
![]() Да нет!
Прога РЕАЛЬНО на Делфи написана ![]() Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#8
|
||||
|
||||
![]() Для тех кто не в курсе: Delphi - это среда прогрраммирования, а не язык!!! Основной язык в Delphi - это Object Pasсal, хотя можно писать на assembler, и немного на C ( с пом спец директивы вроде ).
Можно код написать хоть в блокноте, а потом откомпилить компилятором ( ![]() Велик и могуч наш Object Pascal ! ICQ: 357-591-887 |
#9
|
|||
|
|||
![]() Пасиб )))))
|