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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2014, 12:10   #1
Veryn4ik1993
Пользователь
 
Регистрация: 12.09.2012
Сообщений: 81
По умолчанию Сравнение пар

Здравствуйте, у меня есть код, который выводит пары, а мне надо сравнить эти пары с (q,r) q и r пробегают значения от 0 до 9(00, 01, ...11, 25,...) и вывести эти q и r на экран, которые встретились и там и там
Код:
program m;

const
  N = 1001;
  NMax = N div 2; { + ord((N mod 5) <> 0)}

var
  f: array[1..N] of integer;
  i, j, k, t, max: integer;maxk: real;Kpp, Kpo: double;
begin
  i := 2;
  f[1] := 1; f[2] := 1;
  while (i < N) do
  begin
    inc(i);
    f[i] := (f[i - 1] + f[i - 2]) mod 10;
  
  end;
  Write('массив ');
  for i := 1 to  N do Write(f[i], ' ');
  writeln;
  
  //выведем пары на экран
  Write('пары чисел: ');
  for j := 1 to NMax do Write(f[2*j], f[2*j+1], ' ');
  writeln;
  
end.
Veryn4ik1993 вне форума Ответить с цитированием
Старый 31.01.2014, 13:54   #2
Veryn4ik1993
Пользователь
 
Регистрация: 12.09.2012
Сообщений: 81
По умолчанию

мне осталось только сравнить (q,r) с (f[2 * j], f[2 * j + 1]) и вывести эти пары на экран которые есть и там и там
Код:
program m;

const
  N = 1001;
  NMax = N div 2; { + ord((N mod 5) <> 0)}

var
  f: array[1..N] of integer;
  i, j, q, r, k: integer;

begin
  k := 0;
  i := 2;
  f[1] := 1; f[2] := 1;
  while (i < N) do
  begin
    inc(i);
    f[i] := (f[i - 1] + f[i - 2]) mod 10;
  end;
  
  //выведем пары на экран
  Write('пары чисел: ');
  for j := 1 to NMax do Write(f[2 * j], f[2 * j + 1], ' ');
  
  Write('пары чисел q и r ');
  for q := 0 to 9 do 
    for r := 0 to 9 do 
      write(q, r, ' ');
end.
Veryn4ik1993 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C++ Поиск совпадающих пар чисел iLeshii Помощь студентам 3 06.12.2013 15:57
Обжим двух витых пар Utkin Компьютерное железо 1 03.08.2013 09:20
найти количество пар цифр [ Senya Black ] Помощь студентам 10 13.05.2012 11:16
Случайная генерация пар из слов Зод Общие вопросы Delphi 3 17.02.2012 00:39
Подсчитать количество пар чисел KER123 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 0 08.04.2011 08:21