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

[SonicTheHedgenog]

Всем привет. Прошу помощи. Нужно составить приложение в среде Delphi, рассчитывающую функцию y(x) в зависимости от введенного параметра А.
Приложение рассчитывающее функцию y(x)
235.jpg
Программа должна содержать:
1. оператор выбора Case..of
2. четыре вида оператора цикла
3. полученные значения у(х) записываются в массив.
Вывод A -memo, Вывод- StringGrid

Сделал на форме меню, а что дальше делать и как рассчитывать не знаю. Подскажите кто-нибудь как это можно рассчитать и как вывести. Не разбираюсь в этом совсем

[Stilet]

Опиши функцию:

function y(x:Double;a:integer):Double;
begin
 case a of -3:Result:=ln(x+a)/a; 10:result:=sin(a-x);6:a-4*x; else result:=0;
end;

Потом ее используй в цикле:

var x:double;
begin
 x:=2;while x<=20 do begin 
  with StringGrid1 do begin RowCount:=RowCount+1; Cells[0,RowCount-1]:=format('%5.2f',[f(x,a)]) end;
  x:=x+2;
 end;
end;

Идею уловил?

[SonicTheHedgenog]

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

Опиши функцию:

function y(x:Double;a:integer):Double;
begin
 case a of -3:Result:=ln(x+a)/a; 10:result:=sin(a-x);6:a-4*x; else result:=0;
end;

Потом ее используй в цикле:

var x:double;
begin
 x:=2;while x<=20 do begin 
  with StringGrid1 do begin RowCount:=RowCount+1; Cells[0,RowCount-1]:=format('%5.2f',[f(x,a)]) end;
  x:=x+2;
 end;
end;

Идею уловил?

Да, спасибо.а можете объясните как это работает:

 
var x:double;
begin
x:=2;while x<=20 do begin 
  with StringGrid1 do begin RowCount:=RowCount+1; Cells[0,RowCount-1]:=format('%5.2f',[f(x,a)]) end;
  x:=x+2;
 end;
end;

x=2 До тех пор пока х меньше либо равен 20..а дальше? Заполнение таблицы? а зачем x+2? Извините, что вопросами завалил, просто интересно и хочется все понять и разобраться

[p51x]

а зачем x+2?

а вы задание читали свое? там же написано шаг 2

Заполнение таблицы?

выводе в консоль вместо таблицы... проблема в чем?

[SonicTheHedgenog]

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

а вы задание читали свое? там же написано шаг 2


выводе в консоль вместо таблицы... проблема в чем?

Читал. Что я понял в этом задании я уже писал.
Проблема, в том, что не могу разобраться, поэтому попросил объяснения кода. Мне хочется понять что и как.

[p51x]

Читал. Что я понял в этом задании я уже писал.

Стоп. А вы 5 класс школы окончили? Ну ладно не понять, что такое логарифм, но такую запись функции и "шаг 2" для аргумента...

[SonicTheHedgenog]

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

Стоп. А вы 5 класс школы окончили? Ну ладно не понять, что такое логарифм, но такую запись функции и "шаг 2" для аргумента...

Окончил. Но так как мне это в жизни не пригодилось, я благополучно забыл все)

[Stilet]

Заполнение таблицы?

Да.

а зачем x+2?

Согласно заданию.

[SonicTheHedgenog]

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

Да.

Согласно заданию.

Спасибо, более-менее понятно. Скажите, а как можно сумму всех отрицательных чисел массива вывести в RichEdit?

[Stilet]

Та же схема:

var x,y,s:double;
begin
x:=2;while x<=20 do begin 
  y:=f(x,a); 
  with StringGrid1 do begin RowCount:=RowCount+1; 
    Cells[0,RowCount-1]:=format('%5.2f',[y]); 
  end;
  if y<0 then s:=s+y;
  x:=x+2;
 end;
 Выводим y;
end;