unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, TeEngine, Series, ExtCtrls,
TeeProcs, Chart, XPMan;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Button2: TButton;
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
Series3: TLineSeries;
Series4: TLineSeries;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
y0,y1,y2,y3,x,a1,a2,a3,b1,b2,b3,a0: real;
l: integer;
d: real;
h1: array[0..100] of real;
h2: array[0..100] of real;
h3: array[0..100] of real;
h4: array[0..100] of real;
k1: array[0..100] of real;
k2: array[0..100] of real;
k3: array[0..100] of real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
a1:=0;
for i=0 to l do begin
h1[i]:=(3.14-i*0.314)*d*cos(3.14-i*0.314);
a1:=a1+h1[i];
end;
Label9.caption:=FloatToStr(a1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
x:=-4; while x<4 do begin
y1:=0.5*a0+a1*cos(x)+b1*sin(x);
y0:=x;
y2:=y1+a2*cos(2*x)+b2*sin(2*x);
y3:=y2+a3*cos(3*x)+b3*sin(3*x);
series1.AddXY(x,y1);
series2.AddXY(x,y0);
series3.AddXY(x,y2);
series4.AddXY(x,y3);
x:=x+0.1;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
a0:=0;
for i=0 to l do begin
h4[i]:=(3.14-i*0.314)*d;
a0:=a0+h4[i];
end;
Label8.caption:=FloatToStr(a0);
end;
procedure TForm1.Button4Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
a2:=0;
for i=0 to l do begin
h2[i]:=(3.14-i*0.314)*cos((3.14-i*0.314)*2)*d;
a2:=a2+h2[i];
end;
Label10.caption:=FloatToStr(a2);
end;
procedure TForm1.Button5Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
a3:=0;
for i=0 to l do begin
h3[i]:=(3.14-i*0.314)*cos((3.14-i*0.314)*3)*d;
a3:=a3+h3[i];
end;
Label11.caption:=FloatToStr(a3);
end;
procedure TForm1.Button6Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
b1:=0;
for i=0 to l do begin
k1[i]:=(3.14-i*0.314)*sin(3.14-i*0.314)*d;
b1:=b1+k1[i];
end;
Label12.caption:=FloatToStr(b1);
end;
procedure TForm1.Button7Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
b2:=0;
for i=0 to l do begin
k2[i]:=(3.14-i*0.314)*sin((3.14-i*0.314)*2)*d;
b2:=b2+k2[i];
end;
Label13.caption:=FloatToStr(b2);
end;
procedure TForm1.Button8Click(Sender: TObject);
var
i: integer;
begin
l:=StrToInt(Edit1.Text);
d:=(2*3.14)/l;
b3:=0;
for i=0 to l do begin
k3[i]:=(3.14-i*0.314)*sin((3.14-i*0.314)*3)*d;
b3:=b3+k3[i];
end;
Label14.caption:=FloatToStr(b3);
end;
end.
22.02.2013, 17:06
For loop control variable must be simple local variable
Я ее в каждой процедуре отдельно выделяю. Я еще пробовал для каждой процедуры совершенно новую создавать переменную, не помогает. Вроде ошибка не должна стопить программу, но все равно она стопится, таких ошибок просто 7 штук. А есть вариант как нибудь на сильно запустить программу?
Линейный вид
