DreiecksErkennung Frage

[youcefdar]

hi hab ne kleine frage^^ das wird hier zur gewohnheit!^^

also in Delphi Wenn (a+b>c) and (a+c>b) auch (b+c>a)

Dann im Quelltext muss ich es da so angeben?:

Delphi-Quellcode:

if (a+b>c) and (a+c>b) also (b+c>a)

[speedax]

was genau willst du formuliers mal in worten

mfg
speedax

[youcefdar]

Also ich will ein Programm schreiben , dass mir anhand der WErte sagt ob es ein Dreieck ist, und dann falls es eins ist ob ein gleichseitiges ist usw.

doch im fall meiner frage geht es jetzt darum ob es ein Dreieck ist.
Also so ungefähr:
Wenn (a+b>c) and (a+c>b) auch (b+c>a)
dann (es ist ein Dreieck)
usw...

[Luckie]

Bitte gib deinem Beitrag einen aussagekräftigen Titel. Der jetzige Titel lässt nicht erkennen, um was für ein Problem oder Frage es sich handelt. Um den Titel zu ändern, editiere einfach deinen ersten Beitrag. Damit erleichterst du das Auffinden deines Beitrages mit der Suche und ersparst anderen Mitglieder ein unnötiges Öffnen deines Beitrages.

[Wolfgang Mix]

Zitat:

if (a+b>c) and (a+c>b) then(b+c>a)

Gruß

Wolfgang

[youcefdar]

Danke Wolfgang



ich wusst leider nicht welchen Titel ich nehmen sollte^^ tschuldige.

[speedax]

ich glaube da issn fehler unterlaufen

wenn du sagen willst

es ist ein dreieck wenn 1. bedingung und 2. bedingung , sowol als auch 3. bedingung ggegenben sind, dann ist es ein dreieck...

da musses dann aber einfach nochmal and heißen

[Wolfgang Mix]

besser:

Delphi-Quellcode:

Dreieck:=false;
If(a>b) and (a>c) then Dreieck:=true;

Mal Dir 'mal ein Dreieck auf

[Edit](längste Seite =a )[/Edit]

Gruß

Wolfgang

[Sir Rufo]

Ich weiß irgendwie nicht was der TE überhaupt will?

1. Wo kommen die Informationen für a, b und c her?
2. Wenn ich 3 Seiten habe (die an den Endpunkten miteinander verbunden sind) dann habe ich ein Dreieck

z.B. diese drei Linien erfüllen alle Bedingungen und bilden trotzdem KEIN Dreieck!

| | |
| | |
| | |
a b c

Oder geht es hier darum, die Seiten eines wirklichen Dreiecks zu erfassen um dann herauszufinden ob es:

- gleichschenklig
- mit rechtem Winkel
etc.

ist?

Ich bitte um etwas mehr Licht im Tunnel :mrgreen:

[youcefdar]

Die Aufgabe ist es anhand der wErte von a,b,c herauszufinden o es ein Dreieck ist, und falls es eins ist ob es gleichschenklig ist oder gleichseitig ist.



Ihr seid echt toll danke :-D :-D :-D , werd mich damit morgen noch mal ausseinandert setzen, jetzt muss ich erstmal meine Mathe Hausaufgabe mache.

10.Klasse ist echt scheiße, da wir der erste jahrgang sind der mit 12 .jahren Abitur macht.

Ich hab zu morgen Physik,Mathe,Chemie,Französisch,Erdkunde Hausaufgaben auf.

Und das beste ist unsere französischlehrerin(Klassenlehrerin:
Zitat von ihr:

Zitat:

Ich arbeite ganze 26 Stunden in der Woche, da hab ich nicht so viel Zeit die Klassenarbeiten zu kontrollieren, da ich noch besseres zu tun habe.
Ich bin ein Mensch und habe meine persöhnlichen Interessen.
Ihr versteht das nich, ihr seid Schüler und habt es sehr leicht.

Ne is klar und uns gibt die Hausaufgaben von Dauer einer Stunde.

Ich hab 46 Stunden in der Woche(9.Stunden pro Tag, montag 10. Stunden), + Hausaufgaben(min. 2 Stunden pro Tag) + Lernen (1.Stunde am Tag)

Wann soll ich denn noch Zeit haben zum Schlafen, geschweige denn mal eine Pause einlegen außer am Wochenende, aber übers Wochenende kriegen wir eh Hausaufgaben und somit sind wir das ganze Wochende beschäftigt.

[Wolfgang Mix]

Na, dann nimm 'mal erst 'ne Mütze Schlaf
Vielleicht sehen wir Dich ja morgen wieder, gerne ;-)

Gruß

Wolfgang

[youcefdar]

Bin morgen wieder On, die Community gefällt mir eh sehr gut, sehr Nett zudem auch sehr Hilfsbereit.

[mkinzler]

Und Wolfgang sieht seinen (Lehrer-)Job auch etwas anders als deine (Französich-)Lehrerin

[Wolfgang Mix]

@Sir Rufo

Du hast vollkommen Recht.
3 (verschieden lange) Seiten, verbunden an den Endpunkten, ergeben immer ein Dreieck. :-D
Fragen wir ihn morgen, was er untersuchen wiil.

Gruß

Wolfgang

[Sir Rufo]

Na denn mal hier die Funktion zu reinen Dreiecks-Erkennung:

Delphi-Quellcode:

function IstDreieck( a, b, c : integer ) : boolean;
begin
  Result := 
    ( ( a + b ) > c ) and 
    ( ( a + c ) > b ) and
    ( ( b + c ) > a );
end;

geht natürlich auch mit extended Werten

Delphi-Quellcode:

function IstDreieck( a, b, c : extended ) : boolean;
begin
  Result := 
    ( ( a + b ) > c ) and 
    ( ( a + c ) > b ) and
    ( ( b + c ) > a );
end;

Auf die gleiche Weise kannst Du Funktionen für die anderen Eigenschaften bilden.

Gleichschenklig:
( a = b ) oder ( b = c ) oder ( c = a )
Gleichseitig:
( a = b ) und ( b = c ) // und ( a = c ) kann man sich hier schenken
Mit einem rechten Winkel:
( ( a² + b² ) = c² ) oder ( ( b² + c² ) = a² ) oder ( ( a² + c² ) = b² )

ansonsten ist das Dreieck halt unregelmäßig.

Zitat:

Zitat von Wolfgang Mix

@Sir Rufo

Du hast vollkommen Recht.
3 (verschieden lange) Seiten, verbunden an den Endpunkten, ergeben immer ein Dreieck. :-D
Fragen wir ihn morgen, was er untersuchen wiil.

Gruß

Wolfgang

Jo, aber mittlerweile hat sich mein Tunnel erhellt :cyclops:

Es geht um die Länge von 3 Stäben (a,b,c) und die Frage, ob man aus diesen Stäben ein Dreieck legen könnte.

Wenn wir also 2 Stäbe mit 1m Länge und einen Stab mit 3m Länge haben, können wir daraus kein Dreieck bilden.
Darum auch die Abfragen ob die Summe von 2 Seiten länger als die 3. Seite ist, dann kann ich ein Dreieck bilden.

Der TE hat hier eigentlich falsch beschrieben

Zitat:

Zitat von youcefdar

Die Aufgabe ist es anhand der wErte von a,b,c herauszufinden o es ein Dreieck ist, und falls es eins ist ob es gleichschenklig ist oder gleichseitig ist.

Weil rein aus den Längenangaben kann nur ermittelt werden, ob damit ein Dreieck möglich wäre.
Ob es eins ist kann ich nur machen, wenn mir die Lage im Raum bekannt ist :mrgreen:

[Wolfgang Mix]

:-D

[youcefdar]

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c 
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit2.Text);
if (a+b>c) and (a+c>b) then Dreieck:=true;
end;

end.

er sagt mir immer Fehler bei Begin an.

[Namenloser]

Schau mal in die Zeile darüber. Fällt dir etwas auf? :wink: Du hast keinen Typ für diese Variablen angegeben.
Eine korrekte Variablen-Deklaration sieht z.B. so aus:
[delphi]
var x,y: integer;
[/delph]

[youcefdar]

danke NamenLozer hab es bemerkt und nun klappt es