Объединение сортированных массивов Pascal
Помогите найти ошибку. После выполнения процедуры в конечном массиве выдаёт нули. Не могу понять, почему.
Код Pascal type Tarray = array[1..500]of integer; var a, b, c : Tarray; i,n,m:integer; procedure Arrays(A : Tarray; B : Tarray; var C : Tarray); var n,m,i,j,k:integer; begin i:=1; j:=1; k:=1; while (i<=n) or (j<=m) do begin if (i<=n) and (j<=m) then begin if a[i]>b[j] then begin c[k]:= a[i]; inc (i); inc (k); end else begin c[k]:= b[j]; inc (j); inc (k); end end else if j>m then begin c[k]:= a[i]; inc (i); inc (k); end else if i>n then begin c[k]:= b[j]; inc (j); inc (k); end; end; end; begin write('Введите размер массива a - ');readln(n); write('Введите размер массива b - ');readln(m); writeln('Введите упорядоченный по невозрастанию массив a'); for i:=1 to n do read(a[i]); writeln('Введите упорядоченный по невозрастанию массив b'); for i:=1 to m do read(b[i]); Arrays(A,B,C); writeln('Массив с'); for i:=1 to m+n do write(c[i],' '); end. |
Цитата:
|
Спасибо огромное
|
Часовой пояс GMT +4, время: 06:49. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.