Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2013, 16:50   #1
Enerdgazer
 
Регистрация: 18.12.2013
Сообщений: 7
По умолчанию нужно найти ошибку(сама ошибка заключаеться в том что сама програма должна находить нужное число а она этого не делает)

Код:
program binarySearch;
uses crt;
var i, n, key, a, b, c: integer;
 x: boolean; mas: array[1..100] of integer;
begin
write('Ðàçìåð ìàññèâà > '); read(n);
write('Èñêîìûé ýëåìåíò > ');
read(key);
for i:=1 to n do
begin
 mas[i]:=i*n;
write(mas[i],' ');
end;
 a:=1; b:=n; x:=false;
while a<=b do
begin
 c:=a+(b-a) div 2;
if (key<mas[c]) then
 b:=c-1
else if (key>mas[c]) then
 a:=c+1
else
begin x:=true; break; end;
end;
if (x=true) then writeln('Ýëåìåíò íàéäåí')
else write('Ýëåìåíò íå íàéäåí');
end.
Enerdgazer вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите разобрать шифрование. Как программа шифрует текст? Т.е. что она для этого делает? Александр Мостовой Общие вопросы C/C++ 0 20.12.2013 21:44
Обьясните пожалуста как и что делает эта программа и почему она это делает. Dimka-novitsek Общие вопросы C/C++ 7 16.10.2013 12:02
как сделать программу чтобы она сама устанавливалась bambarbia Общие вопросы C/C++ 14 16.02.2013 20:33
Ошибка : форма использует сама себя VITEBchANIN Общие вопросы Delphi 26 18.06.2010 02:49
решите пожалуйста.....очень нужно...а сама не шарю... darika Паскаль, Turbo Pascal, PascalABC.NET 13 12.04.2009 15:16