Hallo
wir haben in der Schule angefangen mit Delphi zu programmieren und haben nun als Hausaufgabe aufbekommen erst mal ein Programm zum Berechnen der Fläche und des Umfangs in einem Rechteck zu programmieren.
Nun habe ich dies soweit gemacht aber ich bekomme immer die Fehlermeldung "Operatot oder Semikolon fehlt" und ich weiß nich was ich falsch mache. Die Meldung kommt bei dem Wort Flaeche (habe ich rot markiert).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
LaengeEdit: TEdit;
BreiteEdit: TEdit;
FlaecheEdit: TEdit;
UmfangEdit: TEdit;
DiagonaleEdit: TEdit;
RechnenButton: TButton;
AbbruchButton: TButton;
procedure AbbruchButtonClick(Sender: TObject);
procedure RechnenButtonClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AbbruchButtonClick(Sender: TObject);
begin
close;
end;
procedure TForm1.RechnenButtonClick(Sender: TObject);
var a,b,Laenge,Breite,Flaeche,Umfang:Integer;
begin
//Eingabe
a:=StrToInt(LaengeEdit.text);
b:=StrToInt(BreiteEdit.text);
//Ausgabe der berechneten Daten
UmfangEdit.text:=IntToStr(Umfang);
FlaecheEdit.text:=IntToStr(Flaeche);
//Verarbeitung
Umfang:=2*a+2*b
Flaeche:=a*b
end;
end.
Es wäre nett wenn mit jemand mit meinem Problem weiterhelfen könnte.
wir haben in der Schule angefangen mit Delphi zu programmieren und haben nun als Hausaufgabe aufbekommen erst mal ein Programm zum Berechnen der Fläche und des Umfangs in einem Rechteck zu programmieren.
Nun habe ich dies soweit gemacht aber ich bekomme immer die Fehlermeldung "Operatot oder Semikolon fehlt" und ich weiß nich was ich falsch mache. Die Meldung kommt bei dem Wort Flaeche (habe ich rot markiert).
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
LaengeEdit: TEdit;
BreiteEdit: TEdit;
FlaecheEdit: TEdit;
UmfangEdit: TEdit;
DiagonaleEdit: TEdit;
RechnenButton: TButton;
AbbruchButton: TButton;
procedure AbbruchButtonClick(Sender: TObject);
procedure RechnenButtonClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AbbruchButtonClick(Sender: TObject);
begin
close;
end;
procedure TForm1.RechnenButtonClick(Sender: TObject);
var a,b,Laenge,Breite,Flaeche,Umfang:Integer;
begin
//Eingabe
a:=StrToInt(LaengeEdit.text);
b:=StrToInt(BreiteEdit.text);
//Ausgabe der berechneten Daten
UmfangEdit.text:=IntToStr(Umfang);
FlaecheEdit.text:=IntToStr(Flaeche);
//Verarbeitung
Umfang:=2*a+2*b
Flaeche:=a*b
end;
end.
Es wäre nett wenn mit jemand mit meinem Problem weiterhelfen könnte.