написанные программы / задание №5 — 1 / TRAIN2

program Table;
uses Crt;
var Mas:array[1..40,1..2] of Real;
const x:Real =-12.0; y:Real=12.0; d:Real=1.0;

function FirstFunc(x:Real):Real;
var i:Byte; F,Fraction:Real;
begin
F:=1; Fraction:=1;
for i:=1 to 5 do begin
Fraction:=Fraction*x/i;
F:=F+Fraction;
end;
FirstFunc:=F;
end;

procedure MakeTable(k:Real;l:Byte);
var i:Byte;
begin
gotoXY(1,1); Writeln(' x є f(x) ');
gotoXY(1,2); Writeln('ННННННННННОННННННННННННН');
for i:=1 to l do begin
if Mas[i,1]>7*k/10 then TextColor(14) else TextColor(7);
if i>21 then gotoXY(40,i-19) else gotoXY(2,2+i);
Write(Mas[i,2]:7:2,' є ',Mas[i,1]:7:3);
end;
end;

procedure MakeData(xn,xk,dx:Real);
var i:Byte; k:Real;
begin
k:=FirstFunc(xn); i:=0;
while xn<=xk do begin
if i=40 then Break; Inc(i);
if xn<0 then Mas[i,1]:=FirstFunc(xn) else Mas[i,1]:=1+xn+xn*xn*xn;;
Mas[i,2]:=xn;
if k<Mas[i,1] then k:=Mas[i,1];
xn:=xn+dx;
end;
MakeTable(k,i);
end;

begin
clrscr;
MakeData(x,y,d);
Readkey;
TextColor(7);
clrscr;
end.