Работа с "древним" языком Pascal )

Лучше так:

 uses crt, math; 

const tau = 2 * pi;

var x: real = -tau; h: real = pi / 4; 

i, n: integer; 

 

function f2(x: real): real; 

begin 

  if (x < 0) then f2 := -sqr(cos(pi*x)) 

  else if (x

вот образец, примени и измени функцию и граници
{f(x) = ctg(x) - ln(x) |1 - 5.5| h=0.5}
program tabulaciya;
uses crt;
var
f,x:real;
BEGIN
clrscr;
writeln('vichislenie funkcii');
writeln('---------------------');
writeln;
writeln(' x f');
writeln('----------------');
x:=1;
repeat
f:=cos(x)/sin(x)/cos(x) - ln(x);
writeln(x:6:2,f:7:2);
x:=x+0.5;
until x >5.5;
writeln('----------------');
writeln;
writeln('konec zadachi');
readkey;
END.

PasccalABC (внук классического Pascal :)))

var F2, X, X1, X2, h : real;
begin
h := 0.25*pi; X1 := -2*pi; X2 := 4*pi;
WriteLn (' X ', ' Fx');
X := X1-h;
While (X <= X2) do
begin
X := X+h;
if (X>2*pi) then F2 := abs(Power(X,1/5))
else if (X < 0) then F2 := (-1)*sqr(cos(pi*X))
else F2 := exp (-0.3*X);
WriteLn (X:8:3, F2:8:3);
end;
end.

Паскаль не учил, на Python - вот ==>
Даже настоящая табличка получается

 from math import e, cos, pi 

from tabulate import tabulate 

from numpy import arange 

 

p = 2 * pi 

a, b, c, count = -p, 4 * pi, .25 * pi, 0 

for i in arange(a, b, c): count += 1 

table = [[''] * 2 for i in range(count)] 

 

 

def f(x): 

    if x > p: 

        return abs(x ** (1. / 5.)) 

    elif 0