нужна блок схема для программы

[Glenel]

unit MainUnit;

interface

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

type
TMainForm = class(TForm)
edtX: TEdit;
rgFunction: TRadioGroup;
lblX: TLabel;
lblY: TLabel;
lblEps: TLabel;
edtEps: TEdit;
lblMaxIters: TLabel;
edtMaxIters: TEdit;
edtY: TEdit;
btnEvaluate: TButton;
chart: TChart;
edtX0: TEdit;
edtX1: TEdit;
lblX0: TLabel;
lblX1: TLabel;
btnGraph: TButton;
series: TLineSeries;
edtIters: TEdit;
Label1: TLabel;
edtStep: TEdit;
lblStep: TLabel;
btnExit: TButton;
procedure btnEvaluateClick(Sender: TObject);
procedure btnGraphClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnExitClick(Sender: TObject);
private
eps: Double;
iters: Integer;
maxiters: Integer;
function ml_sin(x: double): double;
function ml_cos(x: double): double;
public
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}
function TMainForm.ml_sin(x: double): double;
var
numer, denom, sign, sum, old_sum: double;
begin
numer := x;
denom := 1;
sign := 1;
sum := x;
iters := 1;
repeat
old_sum := sum;
numer := numer * x * x;
denom := denom * (2*iters) * (2*iters+1);
sign := sign * (-1);
sum := sum + (sign * numer/denom);
inc(iters);
until (abs(old_sum - sum) < eps) or (iters > maxiters);
result := sum;
end;

function TMainForm.ml_cos(x: double): double;
var
numer, denom, sign, sum, old_sum: double;
begin
numer := 1;
denom := 1;
sign := 1;
sum := 1;
iters := 1;
repeat
old_sum := sum;
numer := numer * x * x;
denom := denom * (2*iters-1) * (2*iters);
sign := sign * (-1);
sum := sum + (sign * numer/denom);
inc(iters);
until (abs(old_sum - sum) < eps) or (iters > maxiters);
result := sum;
end;

procedure TMainForm.btnEvaluateClick(Sender: TObject);
var
x, y: double;
begin
try
x := strToFloat(edtX.Text);
eps := strToFloat(edtEps.Text);
maxiters := strToInt(edtMaxIters.Text);
case rgFunction.ItemIndex of
0: y := ml_sin(x);
1: y := ml_cos(x);
else
raise Exception.Create('Invariant failed: only sin and cos are allowed');
end;
edtY.Text := FloatToStrF(y, ffGeneral, 15, 15);
edtIters.Text := IntToStr(iters);
except
on EConvertError do edtY.Text := 'Неверный формат ввода';
end;
end;

procedure TMainForm.btnGraphClick(Sender: TObject);
var
x0, x1, h, x, y: double;
begin
try
x0 := strToFloat(edtX0.Text);
x1 := strToFloat(edtX1.Text);
h := strToFloat(edtStep.Text);
eps := strToFloat(edtEps.Text);
maxiters := strToInt(edtMaxIters.Text);
series.Clear;
x := x0;
while x <= x1 do begin
case rgFunction.ItemIndex of
0: y := ml_sin(x);
1: y := ml_cos(x);
else
raise Exception.Create('Invariant failed: only sin and cos are allowed');
end;
series.AddXY(x, y);
x := x + h;
end;
except
on EConvertError do edtY.Text := 'Неверный формат ввода';
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
rgFunction.ItemIndex := 0;
edtEps.Text := FloatToStr(10e-12);
edtMaxIters.Text := FloatToStr(100);
edtX.Text := FloatToStr(pi/4);
edtX0.Text := FloatToStr(0);
edtX1.Text := FloatToStr(2*pi);
edtStep.Text := FloatToStr(pi/400);
end;

procedure TMainForm.btnExitClick(Sender: TObject);
begin
Application.Terminate;
end;

end.

[mss]

Совсем школота опухла - ходит и побирается без стыда и совести ..

Совсем не стыдно, да ?

Спереть где-то у кого-то код, палец о палец не ударить чтобы хоть как-то его проанализировать его - и тут же гнусавить "пада-а-айте блок-схему ! Сами мы не ме-е-естные !"

[Glenel]

не спереть,а просто попросил чтоб сделали

[mss]

просто попросил чтоб сделали

И не стыдно тебе побираться то там то здесь ?)

Ну ладно преподу этот неформатированный говнокод впарить (святое дело для школяра-студента - авось проканает), но здесь-то тебе не школа) ..

Просто поразительная наглость и бесстыдство ...

[Glenel]

просто оч срочно нужна помощь,так бы просить даж не стал

[Serge_Bliznykov]

код не отформатирован.

Тема названа неверно... (ну, по крайней мере, не отражается суть решаемой задачи)

Требования - больше на фриланс тянут (т.е. нужна не помощь, а чтобы сделали за автора топика работу).
ЗАКРЫТО!


p.s. найдите программку FC Editor - она по коду генерит блок-схему...
только Вам блок-схема всё равно не поможет...