igor3m comentou em 23-09-2010

O algoritmo pede para calcular o valor de S, exprimindo os valores intermediarios. Não consigo chegar a soma real. Alguem pode me ajudar? Program CalculoDeS; Uses crt; var soma,num:real; cont:integer; begin Writeln ('S= 1/1-3/2+5/3-7/4+...-99/50'); num:=1; soma:=0; For cont:=1 to 50 do begin If cont mod 2=0 Then begin soma:= (soma-num)/cont; writeln; writeln ('Valores intermediarios: -',num:0:0,'/',cont); end else begin soma:=(soma+num)/cont; writeln; writeln ('Valores intermediarios: ',num:0:0,'/',cont); end; num:=num+2; end; writeln; writeln; textcolor (yellow); writeln ('O valor de S e: ',soma:6:3); readln (soma); end.