Question

ДАЮ 30 БАЛЛОВ!!

Нужно построить трассировочную таблицу к этому алгоритму:

var x, a, b, f, p :i nteger; s, c : real;

begin

writeln('Введите x');

read(x);

s := 0;

a:= 1;

c:=1;

while a 0 then begin c:= -1*(p/f); end {+ меняется на -}

else if c < 0 then c := p/f; {- меняется на +}

s := s - c; {считается сумма}

writeln('a=',a,', p/f=',p/f:2:2,', s=',s:2:2, ', c=',c:2:2);

a := a+2;

end;

writeln('s=',s:2:2);

end.

Также решение программы:

x=3

a=1, p/f=3.00, s=3.00, c=-3.00

a=3, p/f=4.50, s=-1.50, c=4.50

a=5, p/f=2.02, s=0.53, c=-2.02

a=7, p/f=0.43, s=0.09, c=0.43

a=9, p/f=-0.65, s=-0.56, c=0.65

a=11, p/f=-3.62, s=-4.18, c=3.62

a=13, p/f=-1.61, s=-5.79, c=1.61

s=-5.79

Очень срочно надо!!

Answer 1

Объяснение:

Нужно построить трассировочную таблицу к этому алгоритму: var x, a, b, f, p :i nteger; s, c : real; begin writeln ('Введите x'); read(x); s := 0; a:= 1; c:=1; while a 0 then