Geometrijsko zaporedje

Program spremenimo tako, da nam bo namesto aritmeticnega zaporedja izpisoval geometrijsko zaporedje in vsoto teh clenov zaporedja.

• Izpis izvedemo s pomocjo zanke for. Torej:

  void izpisi_geo_zaporedje(int zacetni_clen, int kolicnik,
                            int stevilo_clenov)
  {
    int a;             /* tekoci clen zaporedja */
    int i;             /* indeks zaporedja */
  
    a = zacetni_clen;
                       /* za vse clene do stevilo_clenov: */
    for(i = 1; i <= stevilo_clenov; i++)
    {
                       /* izpisi clen */
      printf("%d", a);
                       /* izracunaj naslednji clen */
      a = a * kolicnik;
    }
                       /* prehod v novo vrstico ob koncu
                          zaporedja */
    printf("\n");
  } /* izpisi_geo_zaporedje */
  

  V glavni del programa pa dodamo:
  
  $$\texttt{izpisi\_geo\_zaporedje(zacetni\_clen, kolicnik, stevilo\_clenov);}$$
  
  

• Vsoto clenov geometrijskega zaporedja sestejemo rekurzivno.
  • Ko je stevilo clenov zaporedja 0 je vsota 0.
  • V primeru, ko je stevilo clenov zaporedja vecje od 0, je vsota enaka vsoti preostalih clenov geometrijskega zaporedja, kateri pristejemo zacetni clen. Preostalo geometrijsko zaporedje pa izracunamo tako, da poiscemo novi clen, ki je enak produktu kolicnika in starega zacetnega clena.
  Celotni podprogram izgleda:

  int sestej_geo_zaporedje1(int zacetni_clen, int kolicnik,
                            int stevilo_clenov)
  {
    int vsota;
  
    if (stevilo_clenov == 0)
      vsota = 0;
    else
    {
                       /* sestej ostale clene zaporedja */
      vsota = sestej_geo_zaporedje1(zacetni_clen * kolicnik,
                                    kolicnik,
                                    stevilo_clenov - 1);
                       /* pristej zacetni clen */
      vsota += zacetni_clen;
    }
                       /* vrni vsoto */
    return vsota;
  } /* sestej_geo_zaporedje1 */