запись в текстовый файл

[Александра_69]

пишет file type not allowed here в ввыделенном месте

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private    { Private declarations }
  public    { Public declarations }
  end;
var
  Form1: TForm1;
  a,b,x,m:extended; n:word; fl:TextFile;
function myf(x,m:extended):extended;
implementation
{$R *.dfm}
function myf(x,m:extended):extended;
var c,s:extended; k:word;
begin
c:=x;
s:=c;
for k:=1 to m do
begin
c:=c*x/k;
s:=s+c;
end;
result:=s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
AssignFile(Fl,’MySin.dat’);
Rewrite(Fl);
m:=5;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
n:=strtoint(edit3.text);
Writeln(fl,'a=',a:5:2,' b=',b:5:2,' n=',n:5);
tabf(a,b,n,myf,fl);
end;
end.

unit Unit2;
interface
Uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
Type fun=function(x,m:extended):extended;
procedure tabf(a,b:extended; n:word; f:fun; fl:TextFile);
implementation
procedure tabf(a,b:extended; n:word; f:fun; fl:TextFile);
var h,x,y,m:extended; i:word;
begin
h:=(b-a)/n;
x:=a;
for i:=1 to n do
  begin
    y:=f(x,m);
    Writeln(fl,'x=',x:5:2,' y=',y:5:2);
    x:=x+h;
   end;
end;
end.

[GunSmoker]

Файловые переменные нельзя передавать по значению. Передавай по ссылке.

procedure tabf(a,b:extended; n:word; f:fun; var fl: TextFile);

[Terran]

procedure tabf(a,b:extended; n:word; f:fun; fl:TextFile);

В этом месте файловую переменную нельзя использовать. Например, она не может быть формальным параметром-значением.
Можно так:

procedure tabf(a,b:extended; n:word; f:fun; Var fl:TextFile);

Но вам лучше переписать процедуру по другому.
-----
Опередили...

И исправьте типы данных в функции:

function myf(x,m:extended):extended;
var c,s:extended; k:word;
begin
c:=x;
s:=c;
for k:=1 to m do
begin
c:=c*x/k;
s:=s+c;
end;
result:=s;
end;

Нельзя тут совмещать Word и Extended.

[Александра_69]

что значит эта ошибка? "parameter lists differ"

[GunSmoker]

http://translate.google.com/#auto|ru...lists%20differ

[Александра_69]

что мне надо сделать? //parameter lists differ

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private         { Private declarations }
  public          { Public declarations }
  end;
const m=5;
var
  Form1: TForm1;
  a,b,x:extended; n:word; fl:TextFile;
function f(x:extended):extended;
implementation
{$R *.dfm}
function f(x:extended):extended;
var c,s:extended; k:word;
begin
c:=x;
s:=c;
for k:=1 to m do
begin
c:=c*x/k;
s:=s+c;
end;
result:=s;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
n:=strtoint(edit3.text);
AssignFile(Fl,'file1');
Rewrite(Fl);
Writeln(fl,'a=',a:5:2,' b=',b:5:2,' n=',n:5);
tabf(a,b,n,f,fl);
end;
end.

unit Unit2;
interface
Uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
Type fun=function(x:extended):extended;
procedure tabf(a,b:extended; n:word; f:fun; var fl:TextFile);
implementation
procedure tabf(a,b:extended; n:word; f:fun; var fl:TextFile);
var h,x,y,m:extended; i:word;
begin
h:=(b-a)/n;
x:=a;
for i:=1 to n do
  begin
    y:=f(x);
    Writeln(fl,'x=',x:5:2,' y=',y:5:2);
    x:=x+h;
   end;
end;
end.

[Terran]

У меня всё компилируется. Ошибки parameter lists differ нет. Если что не так, то лучше исходник своего проекта выложите. Подкорректируем.

[Александра_69]

вот исходник. буду чрезмерно благодарна

[Terran]

Подправил:http://zalil.ru/31993648
P.S. Закачать на форум не удалось, появляется ошибка, поэтому так.

И пересмотрите весь код и функцию myf там при её вызове указывается параметр, который влияет на цикл. Вы указывали выше число 5 я такой же и поставил.

...
const m=5;
...
for k:=1 to m do
...

[Александра_69]

спасибо, работает, только не полностью, т.е. когда открываю файл, он не до конца просчитал.