Составить программу табулирования функции y=f(x) на отрезке [a, b] - Turbo Pascal (28995)

Формулировка задачи:

Cоставить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла While. Функция F(x)=xsin(x); a=0 b=3pi m=10

Код к задаче: «Составить программу табулирования функции y=f(x) на отрезке [a, b] - Turbo Pascal (28995)»

textual
const
    A = 0;
    B = 3*PI;
    M = 10;
    H = (B - A)/(M - 1);
var
    x: Real;
begin
    x := A;
    while (x < B) do
    begin
        WriteLn('F(', x:0:4, ')=', (x*Sin(x)):0:4);
        x := x + H;
    end;
end.

8   голосов, оценка 4.250 из 5


СОХРАНИТЬ ССЫЛКУ