Сохранение

[MangoDGJ]

Нужно переделать программу так чтобы результат записывался не в memo а на файлы например c:\x.txt,c:\g(x).txt,c:\y(x).txt .
Буду очень благодарен.

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,n,x,y,g:real;
begin
a:=-2;
b:=5;
n:=14;
h:=(b-a)/n;
kol:=0;
sr:=0;
x:=a;
while x <= b do
begin
g:=sin(x);
if x<=1 then y:=2*x-sin(x);
if x>=2 then y:=10*exp(x)+4;
if (x>2) and (x>1) then y:=Exp(x*(Ln(7)));
memo1.Lines.Add(floattostr(x));
memo2.Lines.Add(floattostr(y));
memo3.Lines.Add(floattostr(g));
sr:=sr+g;
kol:=kol+1;
x:=x+h;
end;
end;

[eval]

end;
end;

заменить на

end;
memo1.Lines.SaveToFile('c:\x.txt');
memo2.Lines.SaveToFile('c:\y(x).txt');
memo3.Lines.SaveToFile('c:\g(x).txt')
end;

и исправить ошибки...

[MangoDGJ]

memo в обще не должно быть на форме . Тут нужно что то через открывать файл и записывать в него с помощью write. Но вот как это реализовать

[Аватар]

memo в обще не должно быть на форме

Ну и пишите в StringList, а из него как eval предложил хоть в сотню txt

[MangoDGJ]

на форме должна быть одна кнопка которая все это делает и ничего больше и нужно воспользоваться именно через write

[eval]

Разрешите выполнять?!

PS:
код покупают тут: http://programmersforum.ru/forumdisplay.php?f=29
клянчат на паперти тут: http://programmersforum.ru/forumdisplay.php?f=31
а в данной ветке надо и самому работать.

[MangoDGJ]

Сообщение от eval

Разрешите выполнять?!

Да я это понимаю но до экзамена осталось 2 дня а я уже 4 день мучаюсь. Преподаватель попался строгий. Я ей через мемо сделал она меня послала. Вот и приходиться просить у вас помощи .

[Yurk@]

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,h,n,x,y,g, kol, sr : real;
  f : TextFile;
begin
  a := -2;
  b := 5;
  n := 14;
  h := (b-a)/n;
  kol := 0;
  sr := 0;
  x := a;
  while x <= b do
  begin
    g := sin(x);
    if x <= 1 then
      y := 2 * x - sin(x);
    if x >= 2 then 
      y := 10 * exp(x) + 4;
    if (x > 2) and (x > 1) then
      y:=Exp(x * (Ln(7)));

    AssignFile(f, 'c:\x.txt');
    Rewrite(f);
    Write(f, x);
    CloseFile(f);

    AssignFile(f, 'c:\y.txt');
    Rewrite(f);
    Write(f, y);
    CloseFile(f);

    AssignFile(f, 'c:\g.txt');
    Rewrite(f);
    Write(f, g);
    CloseFile(f);

    sr:=sr+g;
    kol:=kol+1;
    x:=x+h;
  end;
end

[MangoDGJ]

спасибо огромное

[MangoDGJ]

Работает но вот только записывает 1 последнюю где добавить чтобы записывал все по очереди.