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