TP Problem - Billard Bandenkollision

  • geschlossen
  • Delphi

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • TP Problem - Billard Bandenkollision

    Aufgabe:
    Eine Billard Kugel läuft im Punkt P(x/y) am Rand eines Billardtisches mit der Länge L und der Breite B mit der Steigung m los. Dabei sollen jeweils immer die Kollisionspunkte mit der Bande ausgegeben werden und wenn die Kugel in das Loch (genau in der Tischmitte also L (L:2/B:2)) fällt soll abgebrochen werden.

    Mein Ansatz: (leider nicht funktionierend)

    Quellcode

    1. program billard;
    3. var x,y,m,n,l,b,mx,c,my,bandey,bandex : real;
    5. procedure eingabe(var ex,ey,em,el,eb : real);
    6. begin
    7. write('Bitte geben sie die x Koordinate des Startpunkts ein: '); readln(ex);
    8. write('Bitte geben sie die y Koordinate des Startpunkts ein: '); readln(ey);
    9. write('Bitte geben sie den Anstieg m ein: '); readln(em);
    10. write('Bitte geben sie den L„nge des Billardstisch ein: '); readln(el);
    11. write('Bitte geben sie den Breite des Billardstisch ein: '); readln(eb);
    12. end;
    14. function coly(bx,bm,cbx:real):real;
    15. var bn : real;
    16. begin
    17. bn:=-(cbx*bm);
    18. coly:=bm*bx+bn;
    19. end;
    22. function colx(cy,cm,cx:real):real;
    23. var cn : real;
    24. begin
    25. cn:=-(cx*cm);
    26. colx:=(cy-cn)/cm;
    27. end;
    31. begin
    32. Eingabe(x,y,m,l,b);
    33. mx:=b/2;
    34. my:=l/2;
    35. c:=x;
    36. IF ((m<>0) and (x<>my)) then begin
    37. repeat
    38. bandey:=coly(x,m,c);
    39. x:=x+0.1;
    40. IF ((bandey=b) or (x=l)) then
    41. begin
    42. bandex:=colx(bandey,m,c);
    43. m:=-1/m;
    44. writeln('Bandenkollision im Punkt (',bandex:8:2,'/',bandey:8:2,')');
    45. end;
    46. until ((bandey=b) or (bandex=l));
    47. end;
    48. readln;
    49. end.
    Alles anzeigen


    Bitte um Hilfe...

    Mfg kc
    [size=1]It's not a bug, it's a feature.[/size]
    [size=3]Bin vom 05.06.2006 - 10.06.2006 im Urlaub[/Size]

  • Was genau funktioniert den an deinem Quellcode nicht?
    Ist das ein logischer Fehler oder syntaktisch (Fehlermeldung vom Compiler)?

    Bin nicht so bewandert in Delphi, aber bei nem logischen Fehler lässt sich bestimmt was rauskriegen. Aber bevor ich das jetzt Durcharbeite will ich erstmal wissen wo der Fehler liegt

    devil2k

  • tja .... ich stimme da meinem vor-antworter zu.....erläter bitte besser wo genau der fehler liegt, da keine zeit hat hier den code zeile für zeile durchzuarbeiten .... und ein bischen inline-doku wär auch nicht zu verachten.

    aber ansonste schaut mir das problem nicht so schwer aus.


    ps: kleiner tipp am rande .... steig auf c++ um....bereitet weniger kopfschmerzen