помогите с программкой в Delphi

[iren10.06.1986]

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

[Alex11223]

Если "помогите" = "сделайте все за меня", то есть раздел http://programmersforum.ru/forumdisplay.php?f=29 (за вознаграждение)

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

У меня ссылка в подписи. Обращайтесь.
Сделаю на Delphi 7

[newerow1989]

function y(x:real;A:integer):real;
begin
   Result:=0;
   try
   If A=6 then
      y:=exp(A-x)/x;
   If A=1 then
      y:=Sqrt(x*x-A);
   If A=2 then
      y:=cos(x/A);
   except
      Write('no ');
   end;
end;

procedure Rep(A:integer);
const h=0.25;
      b=-3;
      c=-1;
var x:real;
begin
   x:=b-h;
   Repeat
      x:=x+h;
      Writeln(x:5:5,'   ',y(x,A):5:5);
   Until x>=c;
end;


begin
   Rep(6);
   Rep(1);
   Rep(2);
   Readln;
end.

Сойдет?

[iren10.06.1986]

спасибо))) главное, база уже есть, остальное, думаю, сама додумаю уже)))

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

newerow1989 - плохой дядя...

[newerow1989]

newerow1989 - плохой дядя...

Ха-ха-ха!
Как раз я хороший!

[min@y™]

Ха-ха-ха!
Как раз я хороший!

Фима, посмотrите на этога поца!
И этот шлимазл будет учить нас делать бизнес?