Pascal programm

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

  • Pascal programm

    Hallo,

    ich habe beim folgenden Pascalprogramm ein Problem
    siehe Pascal: Sortierte Zahlenfolgen zusammenfügen

    Leider funktioneirt das bei mir nicht, woran liegt das. bitte um unterstützung.
    danke

    Quellcode

    1. program felder (input, output);
    3. const
    4. GRENZE1 = 5;
    5. GRENZE2 = 8;
    6. GRENZE = 13;
    7. { GRENZE1 + GRENZE2 }
    8. GRENZE1PLUS1 = 6;
    9. GRENZE2PLUS1 = 9;
    10. GRENZEPLUS1 = 14;
    12. type
    13. tIndex1 = 1..GRENZE1;
    14. tIndex2 = 1..GRENZE2;
    15. tIndex = 1..GRENZE;
    16. tIndex1Plus1 = 1..GRENZE1PLUS1;
    17. tIndex2Plus1 = 1..GRENZE2PLUS1;
    18. tIndexPlus1 = 1..GRENZEPLUS1;
    19. tFeld1 = array [tIndex1] of integer;
    20. tFeld2 = array [tIndex2] of integer;
    21. tFeld = array [tIndex] of integer;
    23. var Feld1 : tFeld1;
    24. Feld2 : tFeld2;
    25. Feld : tFeld;
    26. i : tIndex1Plus1;
    27. j : tIndex2Plus1;
    28. k : tIndexPlus1;
    30. begin
    31. { sortierte Felder einlesen }
    32. writeln ('Bitte', GRENZE1:2, ' Werte des ersten Feldes ',
    33. 'sortiert eingeben!');
    34. for i := 1 to GRENZE1 do
    35. readln (Feld1[i]);
    36. writeln ('Bitte', GRENZE2:2, ' Werte des zweiten Feldes ',
    37. 'sortiert eingeben!');
    38. for j := 1 to GRENZE2 do
    39. readln (Feld2[j]);
    43. repeat
    44. if (i <= Grenze1) and (j <= Grenze2) then
    45. begin
    46. if Feld1[i] <= Feld2[j] then
    47. begin
    48. Feld[i+j-1]:=Feld1[i];
    49. i:=i+1;
    50. end
    51. else
    52. begin
    53. Feld[i+j-1]:=Feld2[j];
    54. j:=j+1;
    55. end;
    56. end
    57. else
    58. if (i<=Grenze1) and (j>Grenze2) then
    59. begin
    60. Feld[i+j-1]:=Feld1[i];
    61. i:=i+1;
    62. end
    63. else
    64. if (i>Grenze1) and (j<=Grenze2) then
    65. begin
    66. Feld[i+j-1]:=Feld2[j];
    67. j:=j+1;
    68. end;
    69. until (i>Grenze1) and (j>Grenze2);
    74. writeln ('Das Ergebnisfeld ist:');
    75. for k := 1 to GRENZE do
    76. write (Feld[k]:8);
    77. writeln
    78. end. { merge }
    Alles anzeigen

  • Hallo
    Kann hier keiner weiterhelfen

    Die Ausgabe musste zum Beispiel folgendemasseb aussehen

    Feld1 enthalte die Elemente 11, 14, 18, 80, 100,
    Feld2 die Elemente 8, 11, 11, 17, 22, 30, 55, 70.
    Feld enthält dann nach der Ausführung des Programms
    die Elemente 8, 11, 11, 11, 14, 17, 18, 22, 30, 55, 70, 80, 100

    Wir gehen davon aus dass die Zahlen in sortierter Reihenfolge eingegeben worden sind, dies muss nicht überprüft werden.