Задача на циклы

[}|{eka]

Здраствуйте помогите пожалуйста я не могу переделать готовую задачу цикла while в остальные циклы for и repeat, вот задача:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
const
  e = 0.00001;
  pv=1.03;
var
  R, p, h, d, c: real;
begin
r:=strtoint(form1.Edit1.Text);
p:=strtoint(form1.Edit2.Text);
  h:=0;
  d:=4*r;
  c:=4*p*r*r*r;
  while abs(pv*h*h*(3*r-h)-c)>e do
  begin
    if d*(pv*h*h*(3*r-h)-c)<0 then
      d:=d/2
    else
      d:=-d/2;
    h:=h+d;

 end;
  form1.Label6.Caption:='   '+floattostrf((r-h),fffixed,0,1)+'(Цикл While)';

end;




initialization
  {$I unit1.lrs}

end.

Помогите пожалуйста

[Stilet]

  repeat
    if d*(pv*h*h*(3*r-h)-c)<0 then
      d:=d/2
    else
      d:=-d/2;
    h:=h+d;

 until abs(pv*h*h*(3*r-h)-c)<=e;

А с for скорее всего обломится.

[}|{eka]

да обломалось ошибка

забыл сказать, за этот цикл (repeat) спасибо тебе Stilet работает правильно, а счетчик даже не представляю как сделать, что там можно ограничить

[Stilet]

что там можно ограничить

А практически ничего. FOR в паскалеподобных языках не приспособлен к условному противостоянию )
Хотя конечно есть какерские методы....