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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.11.2015, 22:54   #1
dimon_snake
Форумчанин
 
Регистрация: 05.11.2015
Сообщений: 167
По умолчанию Есть два массива. Записать в выходной файл числа от 1 до N, которых в этих двух массивах нет

Помогите пожалуйста. Есть два массива. В одном 3 и 7, во втором - 1.
Есть некое число n, которое мы читаем во входном файле. Допустим, n=7.
Как тогда записать в выходной файл числа, которых в этих двух массивах нет, то бишь 2, 4, 5, 6?
dimon_snake вне форума Ответить с цитированием
Старый 05.11.2015, 23:58   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
for i:=1 to n do
  found:=false;
  for j:=1 to size1 do
   if Arr1[j]=i then begin
     found:=true;
     Break
   end;
  if not found then
    for j:=1 to size2 do
     if Arr2[j]=i then begin
       found:=true;
       Break
     end;
  if not found then Write(ВыходнойФайл, i);
end;
Serge_Bliznykov вне форума Ответить с цитированием
Старый 06.11.2015, 00:06   #3
dimon_snake
Форумчанин
 
Регистрация: 05.11.2015
Сообщений: 167
По умолчанию

А что за переменная size1 и size2?
dimon_snake вне форума Ответить с цитированием
Старый 06.11.2015, 00:12   #4
dimon_snake
Форумчанин
 
Регистрация: 05.11.2015
Сообщений: 167
По умолчанию

Понял. Спасибо огромное, работает.
dimon_snake вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выбрать и записать в выходной файл слова по данному образцу: *#*#*, где * - согласная, а # - гласная буква Torti Visual C++ 0 17.12.2013 17:30
Найти все четырёхзначные десятичные числа, у которых сумма первых двух цифр в два раза больше суммы правых двух цифр студенточкаБИ Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 26.05.2013 13:26
Дано множество точек. Записать через пробел в выходной файл координаты центра и радиус минимального круга napster1991 Помощь студентам 3 05.02.2011 19:26
Ассемблер.Заданы два массива слов.сли в каждом из них есть 2 отрицательных числа, то каждый 2-й элемент Лилея Помощь студентам 0 21.01.2011 20:20
вводим два числа, получить все меньшие n натуральные числа, квадрат суммы цифр которых равен m Sparky Помощь студентам 2 22.11.2009 21:59