Таблица значений функции на Delphi

Учебный пример, форма приложения может иметь такой вид:

Форма приложения "Таблица значений функции"

В коде обрабатывается только нажатие кнопки "Построить", а функция вынесена в отдельную подпрограмму f(x):

function f(x:real):real;
begin
 f:=sin(x)+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,x,fx:real;
    s0,s:string;
begin
 try
  a:=StrToFloat(Edit1.Text);
 except
  on EConvertError do begin
   if Edit1.Text='' then ShowMessage ('Введите значение A!')
   else ShowMessage ('Ошибка: '+ Edit1.Text +' - это не число');
   Exit;
  end;
 end;
 try
   b:=StrToFloat(Edit2.Text);
   if a>=b then
    ShowMessage ('a должно быть больше b!')
   else begin
    Memo1.Lines.Clear;
    x:=a;
    while x<=b do begin
     s0:=FloatToStrF(x,ffFixed,15,3);
     fx:=f(x);
     s:=FloatToStrF(fx,ffFixed,15,3);
     Memo1.Lines.Add (s0+#9+s);
     x:=x+0.1;
    end;
   end;
 except
  on EConvertError do begin
   if Edit2.Text='' then ShowMessage ('Введите значение B!')
   else ShowMessage ('Ошибка: '+ Edit2.Text +' - это не число');
   Exit;
  end;
 end;
end;

Пример доступен в этом архиве (~2 Мб) вместе с двумя десятками других полезных примеров приложений на Delphi. Но я бы Delphi изучать сегодня не стал - ветвь тупиковая... лучше сразу C++ :)

11.11.2011, 11:26 [12485 просмотров]