/*
 * Arquivo: prog2.12.c
 * -------------------
 * Este programa é uma solução do Problema 2.12
 * do Caderno de Exercícios (apenas os dois primeiros itens).
 */
#include <stdio.h>
#include "genlib.h"
#include "simpio.h"

#define N 10000

main()
{
  double s, f;
  long k;

  if (N%2==0)
    f=-1;
  else
    f=1;
  s=0;
  for (k=N; k>0; k--) {
    s+=f/k;
    f=-f;
  }
  printf("Soma (direita para esquerda) = %10.20g.\n", s);

  s=0;
  f=1;
  for (k=1; k<=N; k++) {
    s+=f/k;
    f=-f;
  }
  printf("Soma (esquerda para direita) = %10.20g.\n", s);
}

/**********************************************************************
 *
 * <33>[rebutosa:/home/mac/yoshi/www/mac110/exx] > prog2.12
 * Soma (direita para esquerda) = 0.69309718305994527654.
 * Soma (esquerda para direita) = 0.69309718305995826615.
 * <34>[rebutosa:/home/mac/yoshi/www/mac110/exx] > 
 *
 **********************************************************************/