Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Даны два массива вещественных чисел. Один массив упорядочен, другой – не упорядочен. Составить из двух массивов один упорядоченный массив. Использовать метод простых вставок.

Просмотров: 84
Объяснение: -
Отзывов: 0

РЕШЕНИЕ:

program PascalGuru; uses crt; label 1; procedure exchange(var a,b:real); var c:real; begin c:=a; a:=b; b:=c; end; var A,B,C:array[1..50] of real; i,j,k,n,n1,n2:integer; begin write('Vvedite razmer VOZRASTAYUSCHEGO massiva: '); readln(n1); writeln('Vvedite el-ty massiva:'); for i:=1 to n1 do begin write(i,': '); readln(A[i]); end; write('Vvedite razmer NEvozrastayuschego massiva: '); readln(n2); writeln('Vvedite el-ty massiva:'); for i:=1 to n2 do begin write(i,': '); readln(B[i]); end; writeln;writeln('VOZRASTAYUSCHIY massiv:'); for i:=1 to n1 do write(A[i]:8:2); writeln;writeln; writeln('NEvozrastayuschiy massiv:'); for i:=1 to n2 do write(B[i]:8:2); k:=n1; for i:=1 to n1 do C[i]:=A[i]; for i:=1 to n2 do begin inc(k); C[k]:=B[i]; end; 1: for i:=2 to k do if C[i-1]>C[i] then begin exchange(C[i-1],C[i]); goto 1; end; writeln;writeln; writeln('Rezulitiruyuschii massiv:'); for i:=1 to k do write(C[i]:8:2); readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.