Расчет значений функций в указанном диапазоне изменения аргумента и параметра.

[aijan]

Составить программу для расчета значений функций в указанном диапазоне изменения аргумента и параметра. Результаты вычислений поместить в файл prog_4.res. По результатам расчета функций на указанном отрезке с заданными шагом и диапазоном изменения параметра построить их графики.
y=x*x/c+c-2
delta X=1
x=[-5;5]
c=1,2,3;
Спасибо кто помог!

[Stilet]

Ну вот тее отличноработающий код :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TFastLineSeries;
    Series2: TFastLineSeries;
    Series3: TFastLineSeries;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var c:integer;y,x:double;l:TStringList;
begin
 l:=TStringList.Create;
 for c:=0 to Chart1.SeriesCount-1 do begin
  x:=-5; while x<=5 do begin
   y:=x*x/(c+1)+(c+1)-2;
   Chart1.Series[c].AddXY(x,y);
   l.Add(format('X=%2.3f      Y=%2.3f',[x,y]));
   x:=x+1;
  end;
  l.SaveToFile('c:\temp\'+intToStr(c)+'.txt');
  l.Clear;
 end;
 l.Free;
end;

end.