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

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

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

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

textual
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.

10   голосов, оценка 3.900 из 5


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