% reiskoerner.m
% Berechnet die Schulden des Koenigs zur Loesung der Aufgabe T4B2

% Loesung mit Schleife
% ein Reiskorn fuer das erste Feld:
akt_koerner=1;
gesamt_koerner=1;
anz_felder=64

for f=2:anz_felder                  % Schleife ueber die restlichen Felder
    akt_koerner=2*akt_koerner;      % Verdoppelung
    gesamt_koerner=gesamt_koerner+akt_koerner;  % Summe der bisherigen Felder
end

gewicht=(gesamt_koerner*0.05)/1000000;

sprintf('Der Koenig schuldet dem Erfinder %e Reiskoerner, das sind %e t Reis.',gesamt_koerner,gewicht' )


%Ganz kurze Loesung:

gesamt_koerner_formel=(2^anz_felder)-1

gewicht_formel=(gesamt_koerner_formel*0.05)/1000000;

sprintf('Auch per Formel sind es %e Reiskoerner und %e t Reis.',gesamt_koerner_formel,gewicht_formel' )