Не получается правильно создать цикл repeat until.

[Tomoyo]

Смысл программы: если abs(y1+y2-1)<заданной точности, то должен выводиться результат. Если > заданной точности, то все расчеты должны повториться снова. Все это должно считаться в интервале температур от 329,35 до 373,15. У меня не получается правильно совместить условие и цикл.

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,L12,L21,g1,g2,p10,p20,y1,y2,T:real;
begin
x1:=strtofloat(edit1.Text);
x2:=strtofloat(edit2.Text);
T:=strtofloat(edit3.Text);

repeat
L12:=(18.7/104)*exp(-(180.31/(1.987*T)));
L21:=(104/18.7)*exp(-(1722.1/(1.987*T)));
g1:=exp(-ln(x1+L12*x2)+x2*((L12/(x1+L12*x2))-(L21/(x2+L21*x1))));
g2:=exp(-ln(x2+L21*x1)-x1*((L12/(x1+L12*x2))-(L21/(x2+L21*x1))));
p10:=exp(34.61307+(-4873.446/T)-0.000000003249502*T-3.422*ln(T));
p20:=exp(30.79802+(-5966.069/T)+0.000000001030134*T-2.5*ln(T));
y1:=g1*(p10/1)*x1;
y2:=g2*(p20/1)*x2;


if (abs(y1+y2-1)<0.01) then
begin
edit4.Text:=floattostr(L12);
edit5.Text:=floattostr(L21);
edit6.Text:=floattostr(g1);
edit7.Text:=floattostr(g2);
edit8.Text:=floattostr(p10);
edit9.Text:=floattostr(p20);
edit10.Text:=floattostr(y1);
edit11.Text:=floattostr(y2);
edit12.Text:=floattostr(T);
end
else
T:=T+1;
until T>=373.15;



end;


end.

[v2]

А  если "Если > заданной точности" будет _всегда_ для текущего "T",  то как _долго_ "все расчеты должны повториться снова" ?

и попробовать заменить real на extended

[Tomoyo]

Непонятно...

[Вад]

Либо использовать ещё одно условие в цикле ("до T>=373.15 или Нужно_остановиться"), где Нужно_остановиться - логическое условие "досрочного" выхода.
Либо выйти из цикла по break в if-блоке:

Код:

repeat
   { ... }
   if (condition) then
      begin
         {...}
         break;
      end
until T>=373.15;

[v2]

Tomoyo, расскажи о ещё двух исходных значениях "x1" и "x2".

Они задаются для всего интервала "Т" или ими можно/нужно манипулировать
для достижения необходимой точности в конкретной точке "Т"

[Tomoyo]

x1 и x2 задаются для всего интервала. Во все формулы подставляются они и температура, которая меняется, пока не выполнится условие.


Вад, последовала Вашему совету выйти еще в блоке if. Работает. Спасибо!

[v2]

А если условие точности никогда не выполнится (несколько раз пересчитать одно и тоже делу не поможет), что тогда? Считаем значение для нового Т, или останавливаемся и говорим об этом бедному пользователю?

[v2]

... мрак

[Tomoyo]

Что мрак? Условие точности здесь обязательно должно выполниться, иначе прибор не правильно работал и дал неправильные экспериментальные данные)

[v2]

А зачем тогда его проверять, если "Условие точности здесь обязательно должно выполниться"

[Tomoyo]

Смысл заключается в том, чтобы узнать, при какой температуре имеет место соответствующий состав пара, найденный по  экспериментальному составу жидкости. Звучит не понятно, но ничего поделать не могу)


Там имеет место физико-химическая зависимость.

[Вад]

Tomoyo, в твоей программе смешиваются вычисление и вывод результата. По уму, отдельно вычислили - отдельно отобразили результат. А тут получается, что ещё из цикла не вышли, как уже куда-то что-то выводим. Кроме того, если всё-таки нужная точность достигнута не будет - пользователь не увидит вообще ничего.

[Tomoyo]

Я же сказала уже, что в данной конкретной задаче точность будет достигнута, только вот при какой температуре, вот в чем вопрос. Тем более что уже все работает и работает правильно. Так что спасибо Вам еще раз.