program P_Sparguthaben;
{$APPTYPE CONSOLE}
uses
SysUtils;
var p, k, n, z :integer;
start, wert :char;
function zinsite (var p, k, n : integer):real;
begin
k:= 0 ;
For n := 0 to n do k :=
writeln;
zinsen:= p * k * n / 100;
writeln;
end;
function zinsrek (a,n:integer):real;
begin
if n = 0 then zinsrek := 1
else
if n = 1 then zinsrek := a
else
zinsrek := a * zinsrek(a,n-1);
writeln;
end;
begin
write ('Moechten Sie das Programm starten (j/n): ');readln(start);
while start <> 'n' do begin
write('Geben Sie einen Kapitalwert ein (k):') ;readln(k);
write('Geben Sie die Laufzeit ein (n):') ;readln(n);
write('Geben Sie den Prozentwert ein (p):') ;readln(p);
Write(' Waehle iterative (I) oder rekursive (R) Zinsberechnung!: ');readln(rop);
If rop = 'I' Then Begin
write(' Das Ergebnis der Iterativen Berechnung: 'zinsite(p,k):6:2);
writeln;
end
else
Begin
write(' Das Ergebnis der Rekursiven Berechnung: 'zinsrek(p,k):6:2);
writeln;
end;
write ('Das Programm erneut starten?: ');readln(start);
end;
end.
================================================== ===========================================
Ich weiß, es sind noch viele Fehler drin, aber ich habs schon mal probiert. Bin auch noch nicht am Ende, aber ich werd heute noch weiter Programmieren. Danke für Eure nette Begrüßung
