For30. Дано целое число $$N$$ ($$> 14$$) и две вещественные точки на числовой оси: $$A$$, $$B$$ ($$A < B$$). Отрезок [$$A$$, $$B$$] разбит на $$N$$ равных отрезков. Вывести $$H$$ — длину каждого отрезка, а также значения функции $$F(X) = 1 — sin(X)$$ в точках, разбивающих отрезок [$$A$$, $$B$$]: $$F(A)$$, $$F(A + H)$$, $$F(A + 2*H)$$,…,$$ F(B)$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program For25; 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('F(',A+i*h,')=',1-sin(A+i*h)); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: