Berechnung des Guthabens für 10 Jahre

Erstelle ein Programm zur Berechnung des Kapitals.

Speicher ab im unter D:\

Gelb ... dieser Quelltext muss nach dem Doppelklick auf die Buttons eingefügt werden.

Magenta : Ausnahme bei der letzten Prozedur; hier Doppelklick auf das Formular (am Besten auf die Titelleiste)

Kommentierungen

Quelltext:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Grids, Spin;

type							{Festlegen der Komponenten}

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Edit1: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    StringGrid1: TStringGrid;

    SpinEdit1: TSpinEdit;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1 : TForm1;

  i     : integer;				{Zählvariable, globale Variable}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);     {+++BERECHNEN+++}

var z   :integer;				{z...Zinsen; besser als real deklarieren}

    g,n     :real;

begin

      z:=strTOint(spinedit1.Text);		{Umwandeln Wort in eine ganze Zahl}

      g:=strTOfloat(edit1.Text);

      {Tabelle mit Leben ausfüllen}

      n:=g*z/100 ;				{Berechnung der Zinsen}

     for i := 1 to 10 do			{Für i = 1 bis 10 dann}

         begin					{beginne}

              StringGrid1.Cells[i,1] := floatTOstrF((g+n),FFFixed,10,2) ;

						{Ausgabe der Berchung in Tabelle; }

						{Gleitkommazahl wird in ein Wort umgeandelt}}

              n:=(g+n)*z/100;			{Für jede Zelle muss das neue Guthaben berechnet werden}

              g:=g+n;

         end;					{Ende der Tabelle}

end;

procedure TForm1.Button3Click(Sender: TObject);    {+++Beenden+++}

begin

  close;

end;

procedure TForm1.Button2Click(Sender: TObject);     {+++Neu+++}

begin

  edit1.text:=' ';

  spinedit1.Text:=' ';

  for i := 1 to 10 do

         begin

              StringGrid1.Cells[i,1] := '';

         end;

end;

{Doppelklick auf das Formular !!!}

procedure TForm1.FormCreate(Sender: TObject);   {+++Tabelle ausfüllen mit statischen Daten+++}

  var i: integer;

begin

     StringGrid1.Cells[0,0] := 'Jahre';		{1. Zelle: 1. Spalte; 1. Zeile}

     StringGrid1.Cells[0,1] := 'Guthaben';	{Zelle: 1. Spalte; 2. Zeile}

      for i := 1 to 10 do

         begin

              StringGrid1.Cells[i,0] := intTostr(i);

						{Zelle ausfüllen: von 2. Spalte bis 11. Spalte in der 2. Zeile}	

         end;

end;

end.

Merke : Tabelleneigenschaften werden mit dem Objektinspektor geändert

Die Breite und die Höhe der Zellen werden mit DefaultColWidth und mit DefaultRowHeight geändert.

Quadratische Gleichung   function (Unterprogramme)