народ помогите что не правильно?
задача:
a^0/0!+a^1/1!+...+a^n/n!
программа:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var z,l,k,a,s,s1,s2:real;
i,n:integer;
begin
n:=strtofloat(edit1.text);
a:=strtofloat(edit2.text);
s:=1;
for i:=1 to n do
begin
s1:=1;
for l:=1 to i do
begin
s2:=1
for k:=1 to i do
s2:=s2*k;
z:=power(a,l);
s1:=s2*(z/s2);
end;
end;
s:=s+s1;
edit3.Text:=floattostr(s);
end;
end.
Bargest: оформляем код тегами!
[Error] Unit1.pas(36): For loop control variable must have ordinal type
[Error] Unit1.pas(39): For loop control variable must have ordinal type
[Error] Unit1.pas(42): Missing operator or semicolon
[Error] Unit1.pas(43): Incompatible types: 'Real' and 'procedure, untyped pointer or untyped parameter'
[Error] Unit1.pas(44): Undeclared identifier: 'power'
с меня няши)