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).
>Решение Pascal
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. |
>
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | #include #include int main(void) { int n; printf("N:"); scanf ("%i", &n); float a; printf("A:"); scanf ("%f", &a); float b; printf("B:"); scanf ("%f", &b); float h=(b-a)/n; printf("H:%f \n ",h); int i; for (i =0; i<=n; ++i){ printf("%f \n ",1-sin(a+i*h)); } return 0; } |
Решение C++
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "Russian"); int n; cout << "N:"; cin >> n; float a; cout << "A:"; cin >> a; float b; cout << "B:"; cin >> b; float h = (b - a) / n; cout<<h<<" "; int i; for (i = 0; i <= n; ++i) { cout<<1 - sin(a + i * h)<<" "; } return 0; } |