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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.04.2013, 09:15   #1
ччч1
Пользователь
 
Регистрация: 13.03.2013
Сообщений: 35
По умолчанию линейным поиском через while

Код:
for i:=1 to n do
 begin found:=false
  for j:=1 to m do
    if a[i]+b[j]
     then found:=false
      if not found
      then writeln(a[i])
  found:=false;end
   then found:=true
вложеный цикл заменить на while линейным поиском ввиде подпрограммы...помогите пожауйста..не знаю как через while

Последний раз редактировалось ччч1; 03.04.2013 в 05:07.
ччч1 вне форума Ответить с цитированием
Старый 02.04.2013, 10:18   #2
Ezhik Kihze
Форумчанин
 
Регистрация: 24.12.2012
Сообщений: 639
По умолчанию

А что это за внутренний цикл
Код:
for j[i]+b[j]
?
ICQ: 677936656 Gmail: ekEmbed@gmail.com
Ezhik Kihze вне форума Ответить с цитированием
Старый 02.04.2013, 12:24   #3
ччч1
Пользователь
 
Регистрация: 13.03.2013
Сообщений: 35
По умолчанию

Код:
 for a [i]+b[j]
не правильно написала
ччч1 вне форума Ответить с цитированием
Старый 02.04.2013, 14:37   #4
netpolice
Форумчанин
 
Аватар для netpolice
 
Регистрация: 14.02.2013
Сообщений: 222
По умолчанию

Код:
for а[i]+b[j]
   then found:=true

Знаете мой воспаленный мозг, все равно считает что здесь компилятор должен выдавать ошибку
netpolice вне форума Ответить с цитированием
Старый 02.04.2013, 17:47   #5
ччч1
Пользователь
 
Регистрация: 13.03.2013
Сообщений: 35
По умолчанию

Код:
for i:=1 to n do
 begin found:=false
  for j:=1 to m do
    if a[i]+b[j]
     then found:=false
      if not found
      then writeln(a[i])
  found:=false;end
   then found:=true
ччч1 вне форума Ответить с цитированием
Старый 03.04.2013, 07:45   #6
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

цикл
Код:
for i := 0 to N do begin
...
end;
меняется на
Код:
i := 0
while i <= N do begin
...
  inc(i);
end;
s-andriano вне форума Ответить с цитированием
Старый 08.04.2013, 18:56   #7
ччч1
Пользователь
 
Регистрация: 13.03.2013
Сообщений: 35
По умолчанию

Код:
i := 0
while i <= N do begin
  found:=false
  while j<=1 m do
    if a[i]+b[j]
     then found:=false
      if not found
      then writeln(a[i])
  found:=false;end
   then found:=true
не так?
ччч1 вне форума Ответить с цитированием
Старый 08.04.2013, 19:48   #8
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

Не так.
Сравните, что написано в постах №6 и №7.
s-andriano вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужны программы по линейным сравнениям masal86 Паскаль, Turbo Pascal, PascalABC.NET 0 19.02.2013 21:36
Работа с линейным списком glebast Помощь студентам 0 13.12.2012 22:17
Запрос через форму в БД с динамическим поиском. andrushkiv72 Microsoft Office Access 6 09.07.2012 16:27
Найти линейным поиском с барьером фамилию спортсмена показавшего результат 5 часов. Liver Помощь студентам 1 21.12.2008 14:53