bazadima
-
Постов
3 -
Зарегистрирован
-
Посещение
Тип контента
Профили
Форумы
Блоги
Галерея
События
Сообщения, опубликованные bazadima
-
-
ой спасибо большое точно
-
uses crt;
const n=1000;
n1=10000;
var A:array[1..10001] of integer;
p1,p2,p3,p4,p5,p6,p7,p8,i,b1,b2,b3,left,right,m,t:integer;
begin
clrscr;
writeln ('введите ключ 0-1000'); read (b1);
writeln ('введите ключ 0-10000'); read (b2);
writeln ('возьмем ключ равный 10001, для неудачного поиска'); read (b3)
{бинарный поиск на 1000 элементов}
for i:=1 to n do a:=i;
Left:=0; Right:=N;
p1:=2;
while Left
begin
m:=(Left+Right) div 2; p1:=p1+1;
if A[m]
else Right:=m;
end;
{бинарный поиск на 1000 элементов}
for i:=1 to n do a:=i;
Left:=0; Right:=N;
p2:=2;
while Left
begin
m:=(Left+Right) div 2; p2:=p2+1;
if A[m]
else Right:=m;
end;
{бинарный поиск на 10000 элементов}
for i:=1 to n do a:=i;
Left:=0; Right:=N;
p3:=2;
while Left
begin
m:=(Left+Right) div 2; p3:=p3+1;
if A[m]
else Right:=m;
end;
{бинарный поиск на 10000 элементов}
for i:=1 to n do a:=i;
Left:=0; Right:=N;
p3:=2;
while Left
begin
m:=(Left+Right) div 2; p4:=p4+1;
if A[m]
else Right:=m;
end;
{последовательный поиск на 1000}
for i:=1 to n do a:=i;
p5:=1;
A[N+1]:=b1; {стоппер}
i:=1;
while A<>b1 do
begin
i:=i+1;
p5:=p5+1;
end;
{последовательный поиск на 1000}
for i:=1 to n do a:=i;
t1:=1;
A[N+1]:=b3; {стоппер}
i:=1;
while A<>b3 do
begin
i:=i+1;
p6:=p6+1;
end;
{последовательный поиск на 10000}
for i:=1 to n do a:=i;
t1:=1;
A[N+1]:=b2; {стоппер}
i:=1;
while A<>b2 do
begin
i:=i+1;
p7:=p7+1;
end;
{последовательный поиск на 10000}
for i:=1 to n do a:=i;
t1:=1;
A[N+1]:=b3; {стоппер}
i:=1;
while A<>b3 do
begin
i:=i+1;
p8:=p8+1;
end;
writeln ('удачная');
writeln ('|bin1000|bin10000|posl1000|posl10000|')
writeln ('|',p1,' |',p3,' |',p5,' |',p7,' |');
writeln ('неудачная');
writeln ('|bin1000|bin10000|posl1000|posl10000|')
writeln ('|',p2,' |',p4,' |',p6,' |',p8,' |');
readkey;
end.
в самом начале выходит ошибка "ожидался оператор" при вводе for i:=1 to n do a:=i;
не подскажете почему
помгите найти ошибочку (паскаль)
в Программирование
Опубликовано
помогите снова найти ошибку, пишет где жирным выделено выход за границы диапозона 1..1000