Помогите пожалуйста с решением задачи на Паскаль:
Разработать программу, реализующую поиск места элемента в отсортированном массиве алгоритмом деления пополам.
Даны действительные числа a1, …, an, b1, …, bm (a1<=a2<= … <=an). Получить натуральные числа k1, …, km такие, что ki — это решение задачи поиска места bi среди a1, …, an (i=1, …, m). Применить алгоритм деления пополам.
Например даны последовательность А: 1 3 5 6 7 9 и последовательность В: 2 1 3 4. Элемент К получается: 2 1 3 4, т.к. В1=2, значит оно должно занимать место под номером 2 после единицы в массиве А. Далее берем В2=1, К здесь будет равно 1, т.к. занимает первое место и т.д.
Что не так, я не могу разобраться. Пока дошел до конца, чуть репа не треснула :KillMe:
Program pr2;
uses crt;
var
a:array [1..1000] of real;
b:array [1..1000] of real;
k:array [1..1000] of real;
i,n,m,s:integer;
flag:boolean;
Begin
clrscr;
n:=6;
m:=5;
for i:=1 to n do
begin
writeln('Ââåäèòå',i ,'-é ýëåìåíò ïîñëåäîâàòåëüíîñòè a' );
readln(a);
end;
for i:=1 to m do
begin
writeln('Ââåäèòå',i ,'-é ýëåìåíò ïîñëåäîâàòåëüíîñòè b' );
readln(b);
end;
for i:=1 to m do
begin
s:=round(n/2);
flag:=true;
while (flag) do
begin
if (b>a) then
begin
inc(s);
if (b<a) then
begin
k:=s;
flag:=false;
end;
end else
begin
dec(s);
if (b>a) then
begin
k:=s+1;
flag:=false;
end;
end;
end;
writeln(a:5:1 , b:5:1 , k:5:1);
writeln(' ');
end;
repeat until keypressed;
End.
Разработать программу, реализующую поиск места элемента в отсортированном массиве алгоритмом деления пополам.
Даны действительные числа a1, …, an, b1, …, bm (a1<=a2<= … <=an). Получить натуральные числа k1, …, km такие, что ki — это решение задачи поиска места bi среди a1, …, an (i=1, …, m). Применить алгоритм деления пополам.
Например даны последовательность А: 1 3 5 6 7 9 и последовательность В: 2 1 3 4. Элемент К получается: 2 1 3 4, т.к. В1=2, значит оно должно занимать место под номером 2 после единицы в массиве А. Далее берем В2=1, К здесь будет равно 1, т.к. занимает первое место и т.д.
Что не так, я не могу разобраться. Пока дошел до конца, чуть репа не треснула :KillMe:
Program pr2;
uses crt;
var
a:array [1..1000] of real;
b:array [1..1000] of real;
k:array [1..1000] of real;
i,n,m,s:integer;
flag:boolean;
Begin
clrscr;
n:=6;
m:=5;
for i:=1 to n do
begin
writeln('Ââåäèòå',i ,'-é ýëåìåíò ïîñëåäîâàòåëüíîñòè a' );
readln(a);
end;
for i:=1 to m do
begin
writeln('Ââåäèòå',i ,'-é ýëåìåíò ïîñëåäîâàòåëüíîñòè b' );
readln(b);
end;
for i:=1 to m do
begin
s:=round(n/2);
flag:=true;
while (flag) do
begin
if (b>a
begin
inc(s);
if (b<a
begin
k:=s;
flag:=false;
end;
end else
begin
dec(s);
if (b>a
begin
k:=s+1;
flag:=false;
end;
end;
end;
writeln(a:5:1 , b:5:1 , k:5:1);
writeln(' ');
end;
repeat until keypressed;
End.