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
Alles anzeigen
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
- program felder (input, output);
- const
- GRENZE1 = 5;
- GRENZE2 = 8;
- GRENZE = 13;
- { GRENZE1 + GRENZE2 }
- GRENZE1PLUS1 = 6;
- GRENZE2PLUS1 = 9;
- GRENZEPLUS1 = 14;
- type
- tIndex1 = 1..GRENZE1;
- tIndex2 = 1..GRENZE2;
- tIndex = 1..GRENZE;
- tIndex1Plus1 = 1..GRENZE1PLUS1;
- tIndex2Plus1 = 1..GRENZE2PLUS1;
- tIndexPlus1 = 1..GRENZEPLUS1;
- tFeld1 = array [tIndex1] of integer;
- tFeld2 = array [tIndex2] of integer;
- tFeld = array [tIndex] of integer;
- var Feld1 : tFeld1;
- Feld2 : tFeld2;
- Feld : tFeld;
- i : tIndex1Plus1;
- j : tIndex2Plus1;
- k : tIndexPlus1;
- begin
- { sortierte Felder einlesen }
- writeln ('Bitte', GRENZE1:2, ' Werte des ersten Feldes ',
- 'sortiert eingeben!');
- for i := 1 to GRENZE1 do
- readln (Feld1[i]);
- writeln ('Bitte', GRENZE2:2, ' Werte des zweiten Feldes ',
- 'sortiert eingeben!');
- for j := 1 to GRENZE2 do
- readln (Feld2[j]);
- repeat
- if (i <= Grenze1) and (j <= Grenze2) then
- begin
- if Feld1[i] <= Feld2[j] then
- begin
- Feld[i+j-1]:=Feld1[i];
- i:=i+1;
- end
- else
- begin
- Feld[i+j-1]:=Feld2[j];
- j:=j+1;
- end;
- end
- else
- if (i<=Grenze1) and (j>Grenze2) then
- begin
- Feld[i+j-1]:=Feld1[i];
- i:=i+1;
- end
- else
- if (i>Grenze1) and (j<=Grenze2) then
- begin
- Feld[i+j-1]:=Feld2[j];
- j:=j+1;
- end;
- until (i>Grenze1) and (j>Grenze2);
- writeln ('Das Ergebnisfeld ist:');
- for k := 1 to GRENZE do
- write (Feld[k]:8);
- writeln
- end. { merge }