Нахождение функции(Delphi 7)

[Gungnir]

Доброго времени суток!
Есть такая задача:

Составить приложение в среде Delphi , рассчитывающую
функцию y(х) в зависимости от введенного параметра А.

Программа должна содержать:
1. оператор выбора Case..of
2. четыре вида оператора цикла
3. поясняющие комментарии к тексту программы
4. поясняющие надписи к визуальным компонентам, расположенным
на форме
5. форму с компонентами .
6. верхнее меню
7. контекстное меню
8. диалоговые окна
В программе предусмотреть:
1. запрос на подтверждение пользователем выхода из программы.
2. значение параметра А вводит или выбирает пользователь.
Компонент для ввода А - Edit.
3. полученные значения у(х) записываются в массив.
4. значения массива у(х) и х выводятся в компонент Listbox.
5. верхнее меню (компонент MainMenu) содержит: выход из
программы, расчет у(х) и выбор критерия для расчета.
Cделать следующие критерии:
• максимальный элемент массива,
• минимальный элемент массива,
• сумма всех элементов массива,
• произведение всех элементов массива,
• сумма всех отрицательных элементов массива,
• произведение всех отрицательных элементов массива,
• сумма всех положительных элементов массива,
• произведение всех положительных элементов массива,
Вывод рассчитанных критериев осуществляется с помощью
диалогового окна (Application.MessageBox).
• Вывод всех положительных элементов массива
• Вывод всех отрицательных элементов массива
Вывод всех положительных и отрицательных элементов массива
осуществляется в компонент Memo.
Если положительные или отрицательные элементы при расчете
соответствующего критерия отсутствуют предусмотреть вывод сообщения об
их отсутствии.
6. невозможность расчета у(х) при не введенном А
7. невозможность расчета критериев без рассчитанной у(х)
8. все функции верхнего меню дублируются в контекстном
меню(PopupMenu).

Сделал всю форму, но не могу понять как начать работу с вычислением критериев по задаче:
• максимальный элемент массива
• минимальный элемент массива
• сумма всех элементов массива
и тд.

Буду благодарен за любую помощь.
Сделанное мною находится во вложении.

[p51x]

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

максимальный элемент массива

Вы не можете найти максимум в масиве?

[digitalis]

Тоска берет читать такие безумные задачи, а решения к ним - того паче. Какие 4 типа циклов? For, while, repeat (что-то в решении я только while увидел) - четвертый - неявный цикл с if в конце ?

[p51x]

А может for to, for downto, while, repeat...

[Вадим Мошев]

будет надеяться, что не goto

[digitalis]

Я считал всегда, что for to, for downto - один тип цикла. Иначе в Си, к примеру, где шаг цикла можно задавать, этих типов было бы бесконечно.
Вадим, уж тут без goto никак.

   if i < N then ....

А бедолага все ждет поиск минимума. Откроем тайну? Примем за минимум первый элемент массива , дальше сравниваем: если значение другого элемента меньше, то его заносим в минимум и т.д.

[p51x]

Ну с такими рассуждениями можно сказать, что и цикл с if + goto в конце это тоже самое, что и while или repeat.

[digitalis]

Тут у каждого - своя правда. Вот открываю учебник, оглавление: "Операторы повтора. while, repeat, for ." Так что я больше соглвсен с #6

[Kareyshow]

Почему у вас тут x:=-3.5;

     case A of
     2: begin

      x:=-3.5;

   while x<>3 do
   begin

[Serge_Bliznykov]

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

Почему у вас тут x:=-3.5;

к кому вопрос то? к автору темы? Так он тут с февраля не появлялся.