Составить блок-схему табулирования 2-ух функций - Pascal ABC

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

Табулирования 2-ух функций x и y. Здесь n - число слагаемых суммы s. Результат табулирования вывести в форме след таблицы: writeln('! ',x:2:1,' ! ',y:9:8,' ! ',s:9:8,' ! '); сумма s=x-((x^3)/3!)+((x^5)/5!)-... Диапазон изменения x=[0,1;1] n=10 Функция y=sinx

Решение задачи: «Составить блок-схему табулирования 2-ух функций»

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

const xn=0.1;
      xk=1.0;
      n=10;
var x,dx,t,s,y:real;
    i,j:integer;
begin
dx:=(xk-xn)/(n-1);
writeln(' ');
writeln('---------------------------');
writeln('| x |    y     |    s     |');
writeln('---------------------------');
for i:=1 to n do
 begin
  x:=xn+(i-1)*dx;
  y:=sin(x);
  t:=x;
  s:=t;
  for j:=2 to n do
   begin
    t:=-t*x*x/(2*j-2)/(2*j-1);
    s:=s+t;
   end;
  writeln('|',x:2:1,'|',y:9:8,'|',s:9:8,'|');
 end;
writeln('---------------------------');
end.

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

В данном коде на языке Pascal ABC происходит табулирование двух функций. Переменные и их значения заданы следующим образом: const xn = 0.1; xk = 1.0; n = 10; var x, dx, t, s, y: real; i, j: integer; begin dx := (xk - xn) / (n - 1); writeln(' '); writeln('---------------------------'); writeln('| x | y | s |'); writeln('---------------------------'); for i := 1 to n do begin x := xn + (i - 1) dx; y := sin(x); t := x; s := t; for j := 2 to n do begin t := -t x x / (2 j - 2) / (2 * j - 1); s := s + t; end; writeln('|', x:2:1, '|', y:9:8, '|', s:9:8, '|'); end; writeln('---------------------------'); end.