Zinsberechnung als Konsolenanwendung?!

[8472]

Hallo, Leute,
versuche mir gerade selbst den Umgang mit Delphi beizubringen, da unserer Lehrer das nicht wirklich hinbekommen :warn:

Nun steht bald an das wir eine Konsolenanwendung zur Zinsrechnung gestalten sollen und ich wollte mir im Vorfeld schon mal ein paar Tipps einholen wie ich das Programm aufbaue (also mit if - Funktion oder case of, sehe da noch nicht wirklich durch).

Wenn ihr also ne Idee habt, wäre ich Euch echt total dankbar. Hab jetzt schon mal probiertn bisschen was zusammen zu schreiben, aber das ist auch noch nicht das wahre.

Danke schon mal vorab für Eure Hilfe :wink:

[Klaus01]

Hallo,

wie man Zinsen berechnet, dazu findest Du hier Hinweise.

Dazu mußt Du dann noch wissen, das Read bzw ReadLn Eingabe von der Console einließt
und write bzw. WriteLn Ausgaben auf die Console bringt.

Viel Spaß beim Programmieren.

Und wenn Du Probleme hast, Deinen Code zeigen - dann wird Dir auch geholfen.

Grüße
Klaus

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Sieht erst einmal nach einem Delphi-Language-Problem aus

[Christian Seehase]

Moin 8472,

(schöner Nick, falls er daher stammt, wo ich vermute :mrgreen:)

da Du schon mal gezielt if und case angesprochen hast:
An welcher Stelle besteht denn da das Verständnisproblem?

[Jowo]

Und was Klaus01 und Christian Seehase vergessen haben:

Herzlich Willkommen in der Delphi-PRAXiS!

[8472]

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 :hi:

[Klaus01]

Delphi-Quellcode:

program P_Sparguthaben; 

{$APPTYPE CONSOLE} 

uses 
  SysUtils; 

var 
  p, k, n, z :integer; 
  start, wert :char; 

function zinsite(var prozent, kapital, jahre : integer):real; 
var
  i:Byte;
begin 
  For i := 1 to jahre do
    kapital := kapital*(1+(p/100)); 

  result:=kapital;
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); 
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,n):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.

Mal etwas eingerückt, verbessert ud Delphi Tags gesetzt.

Grüße
Klaus