unit runden1;

interface

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

type
TForm1 = class(TForm)
 Edit1: TEdit;
 Edit2: TEdit;
 BitBtn1: TBitBtn;
 Edit3: TEdit;
 Label1: TLabel;
 Label2: TLabel;
 Label3: TLabel;
 Label4: TLabel;
 BitBtn2: TBitBtn;
 BitBtn3: TBitBtn;
 procedure BitBtn2Click(Sender: TObject);
  procedure BitBtn3Click(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
end;

var
 Form1: TForm1;
 Zahl: Real;
 Stellen, Ganz, i: Integer;
implementation

{§R *.DFM}



procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Edit1.text := '';
  Edit2.text := '';
  Edit3.text := '';
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  (* Lesen der eingegebenen Werte *)
  Zahl := StrToFloat(Edit1.text);
  Stellen := StrToInt(Edit2.text);

  (* Verschieben des Kommas um Stellen nach rechts *)
  for i := 1 to Stellen do Zahl := Zahl*10;

  (* Rundungsregel mit der 5 *)
  Zahl := Zahl + 0.5;

  (* Abschneiden der Nachkommastellen *)
  Ganz := Trunc(Zahl);
  Zahl := Ganz;

  (* Verschieben des Kommas um Stellen nach links *)
  for i := 1 to Stellen do Zahl := Zahl/10;

  (* Ausgabe des Ergebnisses *)
  Edit3.text := FloatToStr(Zahl);


end;

end.