Const n=20; var a:array[1..n] of integer; i,i1,i2,x:integer; begin Randomize; a[1]:=random(10); write(a[1],' '); for i:=2 to n do begin a[i]:=a[i-1]+random(10); write(a[i],' '); end; writeln; write('x = '); readln(x); i1:=1; i2:=n; repeat i:=(i1+i2) div 2; if a[i]<x then i1:=(i1+i2) div 2+1; if a[i]>x then i2:=(i1+i2) div 2-1; until (a[i]=x)or(i1>i2); if a[i]=x then begin writeln('Искомый(ые) номер(а) элемента(ов):'); while (i>0)and(a[i]=x) do i:=i-1; i:=i+1; while (i<=n)and(a[i]=x) do begin write(i,' '); i:=i+1; end; end else writeln('Элемент не найден'); writeln; end.
В задании не указано - требуется ли использовать форму или нет. Вариант документа с формой: <HTML> <HEAD> <SCRIPT> <!-- function btnClick(n) { if (n>5) r=n*n; else if (n<5) r=n-2; else r=Number(n)+1; document.frm.res.value=r; } //--> </SCRIPT> </HEAD> <BODY> <H1>Документ с JavaScript</H1> <FORM name=frm> Введите число <INPUT type=text name=num size=5 value=0> <INPUT type="button" name="bt" value="Щелкни здесь!" onClick="btnClick(num.value);"> Результат: <INPUT type=text name=res size=5 value=0> <BR><INPUT type=reset VALUE="Сброс"> </FORM> </BODY> </HTML>
var a:array[1..n] of integer;
i,i1,i2,x:integer;
begin
Randomize;
a[1]:=random(10);
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]+random(10);
write(a[i],' ');
end;
writeln;
write('x = '); readln(x);
i1:=1; i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]<x then i1:=(i1+i2) div 2+1;
if a[i]>x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then
begin
writeln('Искомый(ые) номер(а) элемента(ов):');
while (i>0)and(a[i]=x) do i:=i-1;
i:=i+1;
while (i<=n)and(a[i]=x) do begin write(i,' '); i:=i+1; end;
end
else writeln('Элемент не найден');
writeln;
end.
Пример:
5 6 14 15 15 22 30 36 45 45 50 56 60 64 67 76 84 92 99 101
x = 15
Искомый(ые) номер(а) элемента(ов):
4 5
<HTML>
<HEAD>
<SCRIPT>
<!--
function btnClick(n)
{
if (n>5) r=n*n;
else if (n<5) r=n-2; else r=Number(n)+1;
document.frm.res.value=r;
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<H1>Документ с JavaScript</H1>
<FORM name=frm>
Введите число
<INPUT type=text name=num size=5 value=0>
<INPUT type="button" name="bt" value="Щелкни здесь!"
onClick="btnClick(num.value);">
Результат:
<INPUT type=text name=res size=5 value=0>
<BR><INPUT type=reset VALUE="Сброс">
</FORM>
</BODY>
</HTML>