For29. Дано целое число $$N$$ ($$> 1$$) и две вещественные точки на числовой оси: $$A$$, $$B$$ ($$A < B$$). Отрезок [$$A$$, $$B$$] разбит на $$N$$ равных отрезков. Вывести $$H$$ — длину каждого отрезка, а также набор точек $$A$$, $$A + H$$, $$A + 2*H$$, $$A + 3*H$$,…, $$B$$, образующий разбиение отрезка [$$A$$, $$B$$].
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program For29; var A, B,H:Real; N, i :Integer; begin Write('Введите N: '); Readln(N); Write('Введите A: '); Readln(A); Write('Введите B: '); Readln(B); H:=(B-A)/N; Writeln('Длинна отрезков равна: ',H); Writeln('Набор точек:'); For i:=0 to N do Writeln(A+i*h); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: