Составить программу табулирования функции 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]»

Листинг программы

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.

Объяснение кода листинга программы

В начале объявляются необходимые константы и переменные.
Переменная x инициализируется значением A.
Запускается цикл while, условием которого является x < B.
Внутри цикла вычисляется значение (x*Sin(x)) и записывается в файл.
Переменная x увеличивается на H.
Проверяется условие окончания цикла, если оно истинно, то цикл завершается.
Программа заканчивается.