Определённый логарифм

[Andrey770]

Доброго дня всем!
Вот такая проблемка, при вводи одинаковых границ логарифма программа зацыклювается
вот часть главной процедуры

    dx:=(b-a)/n;

    y:=0; x:=1;
    while x<b do begin {x<Xn}
    y:=y+f(x);
    x:=x+dx; {x= x0,x1,x2..xn-1}
    end;
    y:=y*dx;
     clrscr;
     writeln('integral of formul left  rectangles: ',y: 10:3);

     y:=0; x:=a+dx; {x= X1}
     while x<=b do begin {x<= Xn}
     y:=y+f(x);
     x:=x+dx; {x=x1,x2,x3..xn}
     end;
     y:=y*dx;
     writeln('integral of formul right rectangles: ', y:10:3);
   read;

Когда (a=b) or (a>b) тогда не работает
хэлп!!!!!!

[Andrey770]

как мне сделать, чтоб когда (a=b) or (a>b) прерывался цикл и можна было б снова вводить границы интеграла???

[rubius2008]

ошибка тут

    dx:=(b-a)/n;

    y:=0; x:=1;
    while x<b do begin {x<Xn}
    y:=y+f(x);
    x:=x+dx; {x= x0,x1,x2..xn-1}
    end;

попробуйте так, не знаю просто на сколько к вашей задаче подойдет

    dx:=(b-a)/n;

    y:=0; x:=a;
    while x<b do begin {x<Xn}
    y:=y+f(x);
    x:=x+dx; {x= x0,x1,x2..xn-1}
    end;

[rubius2008]

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

как мне сделать, чтоб когда (a=b) or (a>b) прерывался цикл и можна было б снова вводить границы интеграла???

можно сделать так, чтоб вводить можно было только нужные границы

repeat
  readln(a,b);
untit a<b;

[Andrey770]

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

можно сделать так, чтоб вводить можно было только нужные границы

repeat
  readln(a,b);
untit a<b;

Это неплохой вариант, только как мне сделать, что бы Пример:
я ввожу a=3 b=2 a>b
как после этого мне вписать к этому

repeat
  readln(a,b);
untit a<b;

сообщение чтобы повторно ввели а и b????

[rubius2008]

вместо первого ввода вставьте

repeat
  readln(a,b);
  if not(a<b) then writeln('Всё плохо. Повторите ввод');
untit a<b;

[Andrey770]

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

вместо первого ввода вставьте

repeat
  readln(a,b);
  if not(a<b) then writeln('Всё плохо. Повторите ввод');
untit a<b;

Спасибо, чучуть и все красиво)