Развлетвляющиися алгоритмы

[hunt3r]

Unit UnRazvAlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}
// Процедура обработки события создания Формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:='0.5';     // начальное значение X
 Edit2.Text:='1.8';     // начальное значение Y
 Memo1.Clear;           // очистка  Memo1
// Вывод строки в  Memo1:
 Memo1.Lines.Add(‘Лабораторная работа №2 - Разветвляющийся алгоритм’);
end;
// Процедура обработки события нажатия кнопки Button1:
procedure TForm1.Button1Click(Sender: TObject);
 var
  x,y,z,fx : extended; // объявление локальных переменных
begin
 x:=StrToFloat(Edit1.Text);  // X присваивается содержимое Edit1
 y:=StrToFloat(Edit2.Text);  // Y присваивается содержимое Edit2
 fx:=sin(x);                          // fx присваивается начальное значение
// Выбор функции, соответствующей нажатой кнопке:
 case RadioGroup1.ItemIndex of
  0:fx:=sin(x);
  1:fx:=cos(x);
  end;
 // Вычисление выражения:
  if x<y then
          z:=fx
          else
           z:=y;
  // Проверка состояния кнопки CheckBox1:
  if CheckBox1.Checked then
                        Memo1.Lines.Add('X = '+Edit1.Text+
   '  Y = '+Edit2.Text);         // контрольный вывод X, Y  в Memo1
 // Вывод результата в Memo1:
 Memo1.Lines.Add(' Z = '+FloatToStrF(z,ffFixed,8,3));
end;
end.

решение похожей задачи, кто сможет переделать под эту

[Z1000000]

Не догоняю.
f(x) чему равно ?
f(x) = 0.5*x ; b=10 так что ли?

[Mereke]

у меня точь в точь такая задача если есть ответ скинь пожалуйста!!!!!