Rechtecksberechnung

Gokz · Hält's aus hier Beiträge: 2

Hallo,

ich beschäftige mich erst seit kurzem mit Delphi und hätte gern gewusst, wie man eine Rechtecksberechnung erstellt.

Danke im vorraus!

jasocul · Verfasst: Mi 06.10.04 10:18

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure ZeigeRechteckWerte(a:Real;b:Real);
var
  Flaeche, Umfang : Real;
begin
  Flaeche := a * b;
  Showmessage('Fläche: ' + FloatToStr(Flaeche));
  Umfang := 2 * (a + b);
  Showmessage('Umfang: ' + FloatToStr(Flaeche));
end;

Hilft das schon weiter?

Gokz · Hält's aus hier Beiträge: 2

jasocul hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure ZeigeRechteckWerte(a:Real;b:Real);
var
  Flaeche, Umfang : Real;
begin
  Flaeche := a * b;
  Showmessage('Fläche: ' + FloatToStr(Flaeche));
  Umfang := 2 * (a + b);
  Showmessage('Umfang: ' + FloatToStr(Flaeche));
end;

Hilft das schon weiter?

genau das wollte ich, vielen dank!

jasocul · Verfasst: Mi 06.10.04 10:41

Glaube ich nicht. Ist nämlich ein Tippfehler drin. Den überlasse ich aber dir :wink:

Die mathematischen Grundkenntnisse waren aber hoffentlich nicht das Problem, oder?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme