Delphi-Quellcode:
if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (SeiteA+SeiteC<SeiteB) then
write1.caption:=('Berechnung nicht möglich!');
UmfangEdit.Text:=FloatToStr(Umfang);
FlaecheEdit.Text:=('-');
else
begin
Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
FlaecheEdit.Text:=FloatToStr(Flaeche);
UmfangEdit.Text:=FloatToStr(Umfang);
write1.Caption:=(' ')
end
end;
end.
Dieses von dir geschrieben müsste verändert werden, wie von mkinzler schon gesagt.
Du müsstest einfach :
Delphi-Quellcode:
if (SeiteA+SeiteB<SeiteC) or (SeiteB+SeiteC<SeiteA) or (SeiteA+SeiteC<SeiteB) then
begin
write1.caption:=('Berechnung nicht möglich!');
UmfangEdit.Text:=FloatToStr(Umfang);
FlaecheEdit.Text:=('-');
end
else
begin
Flaeche:=Sqrt(s*(s-SeiteA)*(s-SeiteB)*(s-SeiteC));
FlaecheEdit.Text:=FloatToStr(Flaeche);
UmfangEdit.Text:=FloatToStr(Umfang);
write1.Caption:=(' ')
end
end;
end.
schreiben...
(einfach nach der if Bedingung ein begin setzen und vor dem else ein end einfügen
Gruß Max