Операторы цикла Опции

[Guus Hiddink]

Помогите, пожалуйста, с заданием :
Дано целое число N (> 2) и две вещественные точки на числовой оси: A, B (A < B). Отрезок [A, B] разбит на равные отрезки длины H с концами в N точках вида A, A + H, A + 2H, A + 3H, ..., B. Вывести значение H и набор из N точек, образующий разбиение отрезка [A, B].

[neic]

Что не понятно-то? Вводим значения, вспоминаем 3 класс (а то и меньше), вспоминаем что недавно проходили на информатике.

var S:array[1..100] of real; {для формирования списка шагов}
...
{начало ввода данных}
write('Введите N');
Read(N);
write('Введите начало отрезка');
Read(A);
write('Введите конец отрезка');
Read(B);
{конец ввода данных}

H:=((B-A)/N); {узнали кол-во шагов}

S[1]:=A; {записываем первое разбиение}
For I:=2 to N-1 do
begin
       S[i]:=S[i-1]+H  {записываем следующие разбиения}               
end;
S[N]:=B {записываем конечное разбиение}

[volvo]

Что не понятно-то?

Непонятно, ты сам свою программу запускал? Или это ты теоретически написал, а делаешь вид, что прямо куда там. А вот напрасно... Запускаем (распечатываются все S[i], i = 1 .. N, если что):

Введите N10
Введите начало отрезка1
Введите конец отрезка7
1.00000
1.60000
2.20000
2.80000
3.40000
4.00000
4.60000
5.20000
5.80000
7.00000

И что? Ничего не пропущено по-твоему? Кому надо вспоминать третий класс, а то и раньше?

[neic]

Тестил на A=2.0 B=8.0 N=3

Нашёл ошибку. Ошибка конечно же вычислении шага.
Не знаю как сделать. =(
Чувствую, что что-то рядом, но не вижу что.

[andriano]

Раз точек N, то отрезков между ними N-1.
Дальше, надеюсь, все понятно.

[Guus Hiddink]

Спасибо! Всё работает!