Flächenrechner für die oberfläche eines würfels
            
unit Oberflaeche_Wuerfel;
interface
uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls;
type  TForm1 = class(TForm)    Label1: TLabel;    laenge_Edit1: TEdit;    breite_Edit2: TEdit;    Oberflaeche_Edit1: TEdit;    Button1: TButton;    Button2: TButton;    Label2: TLabel;    Label3: TLabel;    Label4: TLabel;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private-Deklarationen }  public    { Public-Deklarationen }  end;
var  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);var a,laenge,breite : integer;begin laenge := StrToInt (laenge_edit1.Text); breite := StrToInt (breite_edit2.Text); a:= laenge*breite*6; Oberflaeche_Edit1.text:= IntToStr(a);end;
procedure TForm1.
Button2Click(Sender: TObject);begin  close;end;
end.
				  
				  
					
| Anmerkungen: |               
 | impressum | datenschutz
© Copyright Artikelpedia.com