0

Я написал решение через while do (рабочее решение), но мне нужно через repeat until, я его написал, но оно не работает. Помогите переделать.

Код через while do

procedure TForm1.BitBtn1Click(Sender: TObject);
var x, y, xn, xk, h:real;
begin
  xn:= strToFloat(edit1.Text);
  xk:= strToFloat(edit2.Text);
  h:= strToFloat(edit3.Text);
  chart1.Series[0].Clear;
  x:= xn;
  while x<=xk do
  begin
    y:=x*sin(x);
    chart1.Series[0].AddY(y);
    x:= x+h
  end;
end;    

Код через repeat until

procedure TForm1.BitBtn1Click(Sender: TObject);    
var x, y, xn, xk, h:real;    
begin    
  xn:= strToFloat(edit1.Text);    
  xk:= strToFloat(edit2.Text);    
  h:= strToFloat(edit3.Text);    
  chart1.Series[0].Clear;    
  x:= xn;
  repeat    
    y:=x*sin(x);    
    chart1.Series[0].AddY(y);    
    x:= x+h    
  until x<=xk;
end;
2
  • 2
    что ни так то? делать за тебя не будут, но помочь сделать помогут.
    – NMD
    18 окт 2014 в 15:49
  • 2
    @Igor_bogun хмм..всегда рады помочь в общем
    – DreamChild
    19 окт 2014 в 9:53

1 ответ 1

2

Всем спасибо. Я решил эту проблему нужно было "until x<=xk;" сменить знак на противоположный "until x>=xk;".

1
  • until x>xk; иначе условия не равнозначны. Последний проход while, когда x=xk, а последний проход until, с вашим условием, когда x<xk. 31 авг 2016 в 6:18

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.