Вложеный цикл заменить на while линейным поиском в виде подпрограммы

@ччч · Регистрация: 23.12.2012

Студворк — интернет-сервис помощи студентам

Pascal
1
2
3
4
5
6
7
8
9
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

@Puporev · 03.04.2013, 08:19

Pascal
1
if a[i]+b[j] then found:=false

И что это такое?

@ччч · 08.04.2013, 20:41 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
 
 
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

Не знаю как.. не получается

@Федя Форточкин · 09.04.2013, 00:58

ччч, в условном операторе используются логические выражения, а ты используешь арифметическое...........

@Puporev · 09.04.2013, 08:21

Должна быть запись вида

Pascal
1
2
if a[i]+b[j]>0 then//здесь какая-то логика
found:=false

Добавлено через 5 минут
А поиск делается так(ищем элемент a[i] в массиве b)

Pascal
1
2
3
4
5
6
7
found:=false;
j:=1;
while(j<=n) and not found do
if a[i]=b[j] then found:=true
else j:=j+1;
if found then write('Элемент найден')
else write('Элемент не найден');

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 03.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 01.04.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Федя Форточкин 69 / 83 / 33 Регистрация: 09.12.2012 Сообщений: 222 Записей в блоге: 3
	09.04.2013, 00:58
	ччч, в условном операторе используются логические выражения, а ты используешь арифметическое........... 0