Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


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

Здравствуйте, у меня есть код, который выводит пары, а мне надо сравнить эти пары с (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
Репутация: 10
По умолчанию

мне осталось только сравнить (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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 0 08.04.2011 08:21


13:25.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru