Создать модуль "Табулирование функции на заданном отрезке" - Turbo Pascal (33978)

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

Здравствуйте,помогите сделать модуль и задачку! Наработок нету,в модули не врубаюсь( Реализовать в виде модуля набор подпрограмм для выполнения следующих операций для заданной функции y=3 cos x -табулирование данной функции на заданном отрезке [a, b] с заданным шагом h; Буду рад помощи!!!

Решение задачи: «Создать модуль "Табулирование функции на заданном отрезке"»

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

unit tabutils;
interface
const
  TabW:integer=8;
  TabD:integer=2;
  TabC:integer=1;
type
  func1=function(x: real): real;
procedure tabulate(a, b, h: real; f: func1);
implementation
procedure tabulate(a, b, h: real; f: func1);
var
  i: integer;
begin
  i:=TabC; if i<1 then i:=1;
  for i:=i downto 1 do Write('x':TabW,'y':TabW);
  WriteLn; i:=1;
  while a<=b do begin
    Write(a:TabW:TabD, f(a):TabW:TabD); a:=a+h;
    if (TabC>0) and (i mod TabC=0) then WriteLn; inc(i);
  end;
end;
end.

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

Данный код представляет собой модуль Табулирование функции на заданном отрезке, написанный на языке Turbo Pascal. Модуль содержит следующие элементы:

Константы:
- TabW: integer = 8;
- TabD: integer = 2;
- TabC: integer = 1;
Тип данных:
- func1: function(x: real): real;
Функция tabulate:
- procedure tabulate(a, b, h: real; f: func1);
- var
  - i: integer;
  - a, b, h: real;
- begin
  - i := TabC; if i < 1 then i := 1;
  - for i := i downto 1 do Write('x': TabW, 'y': TabW);
  - WriteLn; i := 1;
  - while a <= b do begin
  - Write(a: TabW, f(a): TabW);
  - a := a + h;
  - if (TabC > 0) and (i mod TabC = 0) then WriteLn;
  - inc(i);
  - end;
- end; В данном коде используется цикл while, который выполняется до тех пор, пока значение переменной a не превысит значение переменной b. Внутри цикла происходит запись значений переменных a и f(a) на экран. После каждой записи выполняется функция WriteLn для перехода на новую строку. Если значение переменной i равно 0, то перед каждым вычислением функции f выполняется вывод символа x. После каждого цикла выполняется увеличение значения переменной i на единицу.