[Delphi] Zinseszins Rechner

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von hjk, 20. Mai 2007 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 20. Mai 2007
    Zinseszins Rechner

    Hey leute hab nen mittelgroßes Problem..
    Da ich morgen ne Arbeit schreib und mir zum verrecken nicht einfällt wie ich das maachen soll..
    frag ich nun hier.. in der schule hab ich alles soweit fertig und richtig gehabt.. nur mir fällt es nich mehr ein wie ichs gemacht hab..

    Also hier das beispiel

    Kapital= 5000€
    Zinsen = 2 %
    Laufzeit = 10 Jahre

    Soweit so gut
    Kapital Zinsen Endkapital(Jahr)
    1. > 5000 ; 100 ; 5100€
    2. > 5100 ; 102 ; 5202€
    3. > 5202 ; 104 ; 5306€
    ...

    Da das ja zinseszins is muss ja von Jahr 1 das Endkapital , das Start Kapital von Jahr 2 sein..
    nur ich bekomm das nicht gebacken sowas dar zustellen ... in einer Listbox

    hier ein beispiel
    {bild-down: http://imgnow.de/uploads/delphibfbJPG.jpg}



    Ich hoffe ihr könnt mir helfen
     
  3. 20. Mai 2007
    AW: Zinseszins Rechner

    hi ic hhoffe du meinst diese formel hier


    Kn= Ko*q^N


    jetzt bei deiner aufgabe würde es so aussehen


    K10= 5000* 1,02^10

    K10 = 6094,72


    10 bei K klein schreiben



    1,02 ist ein Aufzinsfaktor dh.: 100% +2 % = 102 % / 100 = 1,02 %

    abzinsfaktor zb : 100 % - 5 % = 95 % / 100 = 0.95 %
     
  4. 20. Mai 2007
    AW: Zinseszins Rechner

    ja die mein ich^^
     
  5. 20. Mai 2007
    AW: Zinseszins Rechner

    Aber die Berechnung ist dir klar oder?

    Du musst einfach bei jedem Durchlauf der Schleife für die Zinsberechnung der Listbox eine Zeile hinzufügen.

    Also innerhalb der "for Schleife" noch die Befehle für die Listbox unterbringen.

    das du Schleife und Rechnung hast, setze ich bis jetzt vorraus.
     
  6. 20. Mai 2007
    AW: Zinseszins Rechner

    Code:
    unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Math, StdCtrls;

type
 TForm1 = class(TForm)
 Label1: TLabel;
 Edit1: TEdit;
 Edit2: TEdit;
 Label2: TLabel;
 Edit3: TEdit;
 Label3: TLabel;
 Button1: TButton;
 ListBox1: TListBox;
 ListBox2: TListBox;
 ListBox3: TListBox;
 Label4: TLabel;
 Label5: TLabel;
 Label6: TLabel;
 Button2: TButton;
 procedure Button2Click(Sender: TObject);
 procedure Button1Click(Sender: TObject);
 private
 { Private-Deklarationen }
 public
 { Public-Deklarationen }
 end;

var
 Form1: TForm1;
 kapital, endkapital, zinsen, zinssatz, p ,q : real;
 i, laufzeit : integer;


implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Listbox1.clear;
Listbox2.clear;
Listbox3.clear;
edit1.text:='';
edit2.text:='';
edit3.text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
kapital := strtofloat(edit1.text);
zinssatz := strtofloat(edit2.text);
laufzeit := strtoint(edit3.text);
q := ((zinssatz/100)+1);
 for i := 1 to laufzeit do begin
 p := power(q,i);
 endkapital := kapital * p;
listbox1.items.append (floattostrf(kapital,ffnumber,25,2)+' €');
listbox2.items.append (floattostrf((endkapital-kapital),ffnumber,25,2)+' €');
listbox3.items.append( floattostrf(endkapital,ffnumber,25,2) +' €');
end;
end;

end.
    Und so sieht das dann aus

    {bild-down: http://imgnow.de/uploads/delphid89JPG.jpg}



    Das jetzt mal als beispiel..
    nur ich will das so wie das da oben steht im Beispiel
     
  7. 20. Mai 2007
    AW: Zinseszins Rechner

    Hä? Wie jetzt? Willste das die einzelnen Punkte jeweils versetzt sind?

    mach dir ne Variable ,bei dem du jeweils (pro Schleifendurchlauf, also innerhalb der Schleife)ne Leerstelle dazu-"addierst" und setz sie dann vor das was du ausgibst, allerdings innerhalb des Listbox- Befehls.
     
  8. 20. Mai 2007
    AW: Zinseszins Rechner

    Ich habs nu rausgefunden..

    ~close~
     
  9. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.