# Geometrische Folgen

## Problembeschreibung

*******************************************
Dokumentnummer: D1113
Quelle: Johann Weilharter,
             Folgen und Reihen
*******************************************

Für eine geometrische Folge gilt:
b2=b1*q
b3=b2*q
b4=b3*q

d.h. der Quotient von zwei benachbarten Folgengliedern
ist konstant.

Wenn die Anzahl der Folgenglieder (k), der Quotient (q) und das
erste Folgenglied (b1) bekannt sind, kann man die Folge bestimmen.

## Problemlösung

EINGABE

k:read("Gib die Zahl der Folgenglieder ein");

b1:read("Gib das erste Folgenglied ein");

q:read("Gib den Quotient der Folgenglieder ein");

VERARBEITUNG

x[1]:b1;

f(n):=x[n+1]:x[n]*q;

liste:makelist(f(n),n,1,k-1);

liste:append([b1],liste);

AUSGABE

print("Die Folge ist",liste)$