Informatik	Material Portal Portfolio Präsentation Grafik Tabellenkalkulation Informatik56 9 10 11 12 13 Messen, Steuern, Regeln Linux Theorie Didaktik Open Source Spiele Wettbewerbe Netzbetreuung intern Literatur Links Energie corewar UNIX/Linux Pfad: Startseite / Fächer / Informatik
Autor: be 21.09.2005 10:51 793

Kreisberechnung - Lösung

Der manuell geschriebene Quelltext ist blau hervorgehoben.

unit mKreis;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    btOK: TButton;
    edRadius: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    edUmfang: TEdit;
    edFlaeche: TEdit;
    procedure btOKClick(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure kreisberechnung(radius: Real; var umfang, flaeche: Real);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.kreisberechnung(radius: Real; var umfang, flaeche: Real);
begin
  umfang := 2 * pi * radius;
  flaeche := pi * sqr(radius);   // sqr berechnet das Quadrat (square)
end;

procedure TForm1.btOKClick(Sender: TObject);
var r, u, f: Real;
begin
  r := StrToFloat(edRadius.Text);
  kreisberechnung(r, u, f);
  edUmfang.Text := FloatToStr(u);
  edFlaeche.Text := FloatToStr(f);
end;

end.