Отрезки на числовой оси

[wOOp]

Всем привет!

Дано целое число N(>1) и две вещественные точки на числовой оси А, В (А<В). Отрезок [А,В] разбит на N равных отрезков, вывести Н – длину каждого отрезка, а также набор точек
А, А+Н, А+2Н, А+3Н, …, В,

Помогите пжл с задачей, одно условие вгоняет меня в ступор
Заранее спс

Pascal ABC

[Serge_Bliznykov]

да всё намного проще, чем Вы себе понапридумывали!

длина отрезка находится так:
H := (B-A)/N;

ну и решение:

var i, N : integer;
   A, B, H : real;
begin
   repeat
     WriteLn('Введите A,B,N : ');
     Readln( A, B, N);  
   until (B>A) and (N>1);
   H := (B-A)/N;
   WriteLn(A);
   for i:=1 to N-1 do  begin
     A := A + H;
     WriteLn(A);
   end;
   WriteLn(B);
   Readln;
end.

[Sweta]

Так как точки на числовой оси, то это довольно просто, потому что одна из координат равна 0. Следовательно
1 Ввод N, A, B, с проверкой заданных условий.
2 Если условия не выполняются, то повторный ввод, до выполнения условий.
3 Если условия выполняются, то находим Н=(В-А)/N., а дальше вычисляем в цикле
L=A+i*H и выводим на экран.
Вот и все.

[wOOp]

Спасибо, все и правдо оказалось легче чем я подумал

А вот это условие, ну или часть задания
про набор точек
А, А+Н, А+2Н, А+3Н, …, В,

выполняется в:

 for i:=1 to N-1 do  begin
     A := A + H;
     WriteLn(A);
   end;
   WriteLn(B);

?