[PASCAL] Problem mit while

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

  • [PASCAL] Problem mit while

    Hallo,
    für den Unterricht sollen wir ein vorgegebenes Programm beenden,
    dies hab ich soweit auch getan und es funktioniert auch soweit.
    Es gibt nur ein Problem: Wenn ich z.B. 2 Ticket angebe und mit 30 Euro bezahle,
    wird anstatt 2x2 Cent, 1x2 Cent und 1x1 Cent angegeben.

    Vielleicht noch eine Info, das Programm soll ausgeben,
    wie viele 10, 5 €-Scheine, 2, 1 €-Stücke, 0,50, 0,20, 0,10, 0,5, 0,2 und 0,1 Centstücke man zurückbekommt.

    Das ist mein Quellcode:

    Quellcode

    1. // Höft & Wessel AG - TicketChange 0.0.3
    2. // Als Funktionstest soll ein Fahrkartenkauf von Soltau nach
    3. // Hannover Hbf gebucht werden.
    5. program TicketChange;
    7. uses crt;
    9. const priceSingle = 14.63;
    10. var number: integer;
    11. priceTotal, payment, change,
    12. num1, num2, num3, num4, num5,
    13. num6, num7, num8, num9, num10: real;
    15. begin
    16. clrScr;
    17. writeLn ('Fahrkarte Soltau - Hannover Hbf');
    18. writeLn ();
    19. write ('Bitte geben sie die Anzahl der Karten ein: ');
    20. readLn (number);
    21. priceTotal := number * priceSingle;
    22. writeLn ('Der Gesamtbetrag betraegt: ', priceTotal:4:2, ' EUR');
    23. writeLn ('Gebe Sie den EUR Betrag ein, den Sie einzahlen: ');
    24. readLn (payment);
    25. change := payment - priceTotal;
    26. writeLn ('Sie bekommen ', change:4:2, ' Euro zurueck');
    27. writeLn();
    28. writeLn ('Ausgabe des Wechselggelds');
    30. while(change >= 10) do
    31. begin
    32. num1 := num1 + 1;
    33. change := change - 10;
    34. end;
    35. while(change >= 5) do
    36. begin
    37. num2 := num2 + 1;
    38. change := change - 5;
    39. end;
    40. while(change >= 2) do
    41. begin
    42. num3 := num3 + 1;
    43. change := change - 2;
    44. end;
    45. while(change >= 1) do
    46. begin
    47. num4 := num4 + 1;
    48. change := change - 1;
    49. end;
    50. while(change >= 0.5) do
    51. begin
    52. num5 := num5 + 1;
    53. change := change - 0.5;
    54. end;
    55. while(change >= 0.2) do
    56. begin
    57. num6 := num6 + 1;
    58. change := change - 0.2;
    59. end;
    60. while(change >= 0.1) do
    61. begin
    62. num7 := num7 + 1;
    63. change := change - 0.1;
    64. end;
    65. while(change >= 0.05) do
    66. begin
    67. num8 := num8 + 1;
    68. change := change - 0.05;
    69. end;
    70. writeln(change:0:2); // debugging
    71. while(change >= 0.02) do
    72. begin
    73. num9 := num9 + 1;
    74. change := change - 0.02;
    75. end;
    76. writeln(change:0:2); // debugging
    77. while(change >= 0.01) do
    78. begin
    79. num10 := num10 + 1;
    80. change := change - 0.01;
    81. end;
    82. writeln(change:0:2); // debugging
    84. writeLn (num1:4:0, ' 10 Euroschein/e');
    85. writeLn (num2:4:0, ' 5 Euroschein/e');
    86. writeLn (num3:4:0, ' 2 Euromuenze/n');
    87. writeLn (num4:4:0, ' 1 Euromuenze/n');
    88. writeLn (num5:4:0, ' 0.50 Centstueck/e');
    89. writeLn (num6:4:0, ' 0.20 Centstueck/e');
    90. writeLn (num7:4:0, ' 0.10 Centstueck/e');
    91. writeLn (num8:4:0, ' 0.05 Centstueck/e');
    92. writeLn (num9:4:0, ' 0.02 Centstueck/e');
    93. writeLn (num10:4:0, ' 0.01 Centstueck/e');
    95. readKey;
    96. end.
    Alles anzeigen

    Danke im Voraus.

  • du kanns mit floats nicht so einfach vergleichen, da die float zahlen ungenau sind.
    0.02-0.01 ist nicht 0.01 ;) sonderen 9.99999999999844E-0003

    ;)

    ach ja so was

    Quellcode

    1. num1, num2, num3, num4, num5,
    2. num6, num7, num8, num9, num10: real;

    und viele deine schleifen die das ganze tun sind nicht schön
    MfG ShureG

    There are 10 kinds of people. Those who understand binary notation, and those who do not.