Определяем функции.
Code
Function func_a(x: Byte): Real;
Begin
func_a := ln(6*x);
End;
function func_b(x: Byte): Real;
Begin
finc_b := 5 * x;
End;
function func_c(x: Byte): Real;
Begin
func_c := Tan(0.5 * x);
End;
Инициализация
Code
deltaX := 1; {byte}
g := 10; {byte}
xn := -20; {integer}
xk := 20; {integer}
Основной фрагмент кода
Code
x := xn; {integer}
While (x < xk) do
begin
if ((x >= 0) and (x <= g)) then y := func_B(x)
else if (x < 0) then y := func_C(x) else y := finc_a(X); {вроде не напутал, пишу без компилятора, проверь}
Writeln(X:8, Y:8:4);
x := x + deltaX;
end;
P.S. Проверьте всё на реальном компиляторе, мог где-то ошибиться.
