Составить блок-схему табулирования 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-ух функций - Pascal ABC»

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

11   голосов, оценка 3.455 из 5


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