31.05.2014, 11:31 | #1 (permalink) |
Member
Регистрация: 31.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Не работает программа, как исправить? Паскаль
Код:
program pro1; uses op,obrabotki; var a:mas; n,key:integer; begin vvod(a,n); writeln('Исходный массив'); vivod(a,n); sort(a,n); writeln('После сортировки'); vivod(a,n); write(' Введите число:'); poisc(a,n); end. Код:
unit obrabotki; interface uses op; procedure vvod(var a:mas; var n:integer); procedure vivod (a:mas;n:integer); procedure sort(var a:mas;n:integer) ; procedure poisc(a:mas;n:integer); implementation procedure vvod(var a:mas;var n:integer); var i:integer; begin writeln ('Введите количество элементов'); readln(n); writeln('Введите элементы:'); for i:=1 to n do Readln(a[i]); end; procedure vivod (a:mas;n:integer); var i:integer; begin for i:=1 to n do write(a[i]:4); writeln; end; procedure sort(var a:mas;n:integer) ; var i, temp, n_min : integer; begin temp:=0; for i :=1 to n do begin for n_min :=1 to n do begin if a[i] > a[n_min] then begin temp:= a[i]; a[i]:= a[n_min]; a[n_min]:=temp; end; end; end; end; procedure poisc(a:mas;n:integer); var i,l,u,r,m,key:integer; begin l := 1; r := n + 1; u:=0; inc(u,2); readln(key); While l < r - 1 do begin m := (l + r) div 2; inc(u); if a[m] > key then begin r := m; inc(u,2); end else begin l := m; inc(u,2); end; begin if a[l] = key then WriteLn(l) else writeln('Данных элементов нет в массиве'); end; writeln('Временная сложность: ',u); end; end; end. Код:
unit op; interface type mas=array [1..10000] of integer; implementation end. |
31.05.2014, 11:31 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дабы не тратить время на поиск, я скину вам аналогичные темы Паскаль, программа, помощь в корректировке Программа с несколькими процедурами, Паскаль Помогите исправить ошибку в программе. Паскаль Программа в Турбо-Паскаль 7,0 Программа на Паскаль Программа на Паскаль. Множества |
31.05.2014, 11:32 | #2 (permalink) |
Member
Регистрация: 31.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Он не находит число в массиве, всегда пишет, что такого элемента нет. Так же данную запись и временную сложность он показывает по несколько раз. Паскаль ABC
|
31.05.2014, 18:42 | #3 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
|
||
31.05.2014, 20:00 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
31.05.2014, 20:18 | #10 (permalink) |
Member
Регистрация: 31.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Преподаватели требуют
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|