Учеба и наука
задача Паскаль - вопрос №529235
Из 2-х упорядоченных векторо а(10) и с(6) получить вектор f(16) упорядоченный точно так же.
а=(1 2 4 7 9 12 16 20 23 31)
с=(6 15 19 28 35 44)
январь 22, 2013 г.
-
Всего ответов: 1
-
Немного не красиво получилось, но работает.
Program vektor;
const
a:array[1..10] of integer = (1,2,4,7,9,12,16,20,23,31);
c:array[1..6] of integer = (6,15,19,28,35,44);
var
f:array[1..16] of integer;
i,j,z:integer;
e:boolean;
begin
i:=1;j:=1;z:=1;
while (i<=10) and (j<=6) and (z<=16) do
begin
if (a[i]<c[j]) and (e=false) then
begin
f[z]:=a[i];
if i<10 then i:=i+1 else e:=true
end
else
begin
f[z]:=c[j];
if j<10 then j:=j+1
end;
write(f[z]:3);
z:=z+1;
end;
end.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.