Бинарный и интерполяционный поиск

Бинарный и интерполяционный поиск
реализовать надо в одной программе

помогите,плиз

0

Надек8, Бинарный поиск в массиве?

0

много отдельных программ по обоим поискам
мне же надо реализовать оба поиска в одной программе

0

Сообщение от Надек8 много отдельных программ по обоим поискам

С подпрограммами не знаком?

0

Сообщение от taras atavin С подпрограммами не знаком?

не знакомА

0

Program poisk;
var
a: array [1..20] of integer;
i,j,x,n,nx,c,r,l:integer;
flag:boolean;
begin
writeln('Ââåäèòå ðàçìåð è ýëåìåò äëÿ ïîèñêà');
readln(n,x);
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
read(a[i]);
write(a[i]:4);
writeln;
i:=0;
repeat
i:=i+1;
flag:=false;
for j:=n-1 downto i do
if a[j] > a[j+1] then begin
c:=a[j]; a[j]:=a[j+1]; flag:=true;
end;
until not flag;
nx:=0; l:=1; r:=n;
begin
while l <= r do begin
c:=(l+r) div 2;
if x=a[c] then begin
nx:=c; r:=l-1;
end;
if x > a[c] then r:=c-1;
if x < a[c] then l:=c+1;
end;
writeln('Îòñîðòèðîâàííûé ìàññèâ');
for i:=1 to n do
write(a[i]:4);
if nx=0 then writeln('Íå íàéäåí')
else writeln('×èñëó x',x,'ðàâåí ýëåìåíò',a[nx])
end;
begin
while l <= r do begin
c:=l+(r-1)*(x-a[l]) div (a[r]-a[l]);
if x=a[c] then begin
nx:=c; r:=l-1;
end;
if x > a[c] then r:=c-1;
if x < a[c] then l:=c+1;
end;
writeln('Îòñîðòèðîâàííûé ìàññèâ');
for i:=1 to n do
write(a[i]:4);
if nx=0 then writeln('Íå íàéäåí')
else writeln('×èñëó x',x,'ðàâåí ýëåìåíò',a[nx])
end;
end.

0