bonfunk Да я понял. *17 Спасибо ОГРОМНЕЙШЕЕ iluvatar и L0K1 за Помощь. Вроде работает так что 15 января пойду защищать. Еще раз Спасибо. Вот что получилось в конечном итоге: program one_thousand; uses crt; const n=1000; type myArray=array[1..n] of integer; var a:myArray; c,g,i:integer; f:text; skey, len:integer; {-----------------------------------------------Запись в файл------------------------------------------------------} procedure writef(y:string); begin if y='1' then assign(f,'c:\1000\unsort.txt') else assign(f,'c:\1000\sort.txt'); rewrite(f); for i:=1 to n do writeln(f,a); close(f); end; {-----------------------------------------------Запись в файл------------------------------------------------------} {-----------------------------------------------Бинарный поиск-----------------------------------------------------} {возвратит -1 ежели лемент не найден..} function binarySearch( arr : myArray; element : integer; length : integer ) : integer; var L, R, i : integer; find : boolean; begin L := 0; R := length - 1; find := false; while ( (L <= R) and (not find) ) do begin i := (L+R) div 2; if arr = element then find := true else if element < arr then R := i - 1 else L := i + 1; end; if arr = element then begin binarySearch := i; Writeln('Takoi element ', element,' prisutstvuet'); end else begin binarySearch := -1; Writeln('Takogo elementa ', element,' zdes nety'); end; end; {-----------------------------------------------Бинарный поиск-----------------------------------------------------} begin clrscr; {-----------------------------------------------Рэндомайз----------------------------------------------------------} Writeln('Unsorted'); randomize; for i:=1 to n do begin a:=random(1001-i); writeln(a,' '); end; writef('1'); {-----------------------------------------------Рэндомайз----------------------------------------------------------} {-----------------------------------------------Сортировка---------------------------------------------------------} for i:=1 to n do begin for g:=1 to n do begin if a[g]>a then begin c:=a; a:=a[g]; a[g]:=c; end; end; end; writef('0'); writeln; writeln('Sorted'); for i:=1 to n do write(' ',a,' '); {-----------------------------------------------Сортировка---------------------------------------------------------} Writeln; Write('Vvedite element dlya poiska := '); readln(skey); binarySearch(a, skey, n); readkey; end.
