Нумерация счетных множеств

[maksym08]

Привет!
Мне надо написать программу в PascalABC.
В тему я вложил рисунок, на котором есть таблица счетных множеств. Стрелками показано способ нумерации. Так програма должна, когда я, например, ввиду 1/567 или 8/96, показать мне номер етого елемента.
Помогите пожалуста! Спасибо!

[rubius2008]

Что у вас конкретно не получается? Свои наработки продемонстрируйте. Если надо все с нуля чтоб кто-то за вас написал, то вам во фриланс или напишите мне в асю, за финансовое вознаграждение помогут

[maksym08]

Сообщение от rubius2008

Что у вас конкретно не получается? Свои наработки продемонстрируйте. Если надо все с нуля чтоб кто-то за вас написал, то вам во фриланс или напишите мне в асю, за финансовое вознаграждение помогут

Я просто не могу понять принцип нумерации, каким образом? Я думаю что это надо сделать с помощью цикла for to do, но как???

[BDA]

uses
  crt;

var
  a, i, k: integer;
  t: boolean;

begin
  k := 2; 
  i := 1; 
  a := 1;
  t := false; 
  repeat
    if t then
      while a < k do
      begin
        writeln(i, ') ', a, '/', k - a);
        inc(a);
        inc(i);
      end
    else
    begin
      while a > 0 do
      begin
        writeln(i, ') ', a, '/', k - a);
        dec(a);
        inc(i);
      end;
      a := 1;
    end;
    inc(k);
    t := not t;
  until k > 10;
  readln;
end.

Вот само получение последовательности. Скорее всего, можно придумать более быстрый алгоритм (или поискать на просторах интернета).

Вот и само решение (потестировал - работает более-менее):

uses
  crt;

var
  a, b, k: integer;

begin
  write('Input a/b: ');
  readln(a, b);
  k := a + b;
  if k mod 2 = 0 then
    writeln((k - 2) * (k - 1) div 2 + b)
  else
    writeln((k - 2) * (k - 1) div 2 + a);
end.

Сделал только потому, что самому было интересно
На самом деле это математика.
Чтобы решить такую задачу, нужно порисовать, поискать зависимости.

Аватар, сам удивился

Чуть сокращенный вариант (вряд ли лучше, просто чистая формула)

uses
  crt;

var
  a, b, k: integer;

begin
  write('Input a/b: ');
  readln(a, b);
  k := a + b;
  writeln((k - 2) * (k - 1) div 2 + b * ((k mod 2 + 1) mod 2) + a * (k mod 2));
end.

[Аватар]

Не заметил, что PascalABC, в дельфях работает

var x,y,i,j,n,k: Integer;

  x:=4; {заданная строка}
  y:=5; {заданная колонка}

  i:=1; j:=1; n:=1; k:=1;
  while (i<>x) or (j<>y) do begin
    if (i=1) and (k=1) then begin Inc(j); k:=-1; end
    else if (j=1) and (k=-1) then begin Inc(i); k:=1; end
    else begin Dec(i,k); Inc(j,k); end;
    Inc(n);
  end;
  {в n результат для заданных строки и колонки}

BDA +1 последнее решение супер

[Somebody]

Альтернативный сокращённый вариант:

  readln(a[1], a[0]);
  k := a + b;
  writeln((k - 2) * (k - 1) div 2 + a[k mod 2]);

[maksym08]

Сообщение от BDA

uses
  crt;

var
  a, i, k: integer;
  t: boolean;

begin
  k := 2; 
  i := 1; 
  a := 1;
  t := false; 
  repeat
    if t then
      while a < k do
      begin
        writeln(i, ') ', a, '/', k - a);
        inc(a);
        inc(i);
      end
    else
    begin
      while a > 0 do
      begin
        writeln(i, ') ', a, '/', k - a);
        dec(a);
        inc(i);
      end;
      a := 1;
    end;
    inc(k);
    t := not t;
  until k > 10;
  readln;
end.

Вот само получение последовательности. Скорее всего, можно придумать более быстрый алгоритм (или поискать на просторах интернета).

Вот и само решение (потестировал - работает более-менее):

uses
  crt;

var
  a, b, k: integer;

begin
  write('Input a/b: ');
  readln(a, b);
  k := a + b;
  if k mod 2 = 0 then
    writeln((k - 2) * (k - 1) div 2 + b)
  else
    writeln((k - 2) * (k - 1) div 2 + a);
end.

Сделал только потому, что самому было интересно
На самом деле это математика.
Чтобы решить такую задачу, нужно порисовать, поискать зависимости.

Аватар, сам удивился

Чуть сокращенный вариант (вряд ли лучше, просто чистая формула)

uses
  crt;

var
  a, b, k: integer;

begin
  write('Input a/b: ');
  readln(a, b);
  k := a + b;
  writeln((k - 2) * (k - 1) div 2 + b * ((k mod 2 + 1) mod 2) + a * (k mod 2));
end.

Большое спасибо!!!

[maksym08]

Сообщение от BDA

uses
  crt;

var
  a, i, k: integer;
  t: boolean;

begin
  k := 2; 
  i := 1; 
  a := 1;
  t := false; 
  repeat
    if t then
      while a < k do
      begin
        writeln(i, ') ', a, '/', k - a);
        inc(a);
        inc(i);
      end
    else
    begin
      while a > 0 do
      begin
        writeln(i, ') ', a, '/', k - a);
        dec(a);
        inc(i);
      end;
      a := 1;
    end;
    inc(k);
    t := not t;
  until k > 10;
  readln;
end.

Вот само получение последовательности. Скорее всего, можно придумать более быстрый алгоритм (или поискать на просторах интернета).

Вот и само решение (потестировал - работает более-менее):

uses
  crt;

var
  a, b, k: integer;

begin
  write('Input a/b: ');
  readln(a, b);
  k := a + b;
  if k mod 2 = 0 then
    writeln((k - 2) * (k - 1) div 2 + b)
  else
    writeln((k - 2) * (k - 1) div 2 + a);
end.

Сделал только потому, что самому было интересно
На самом деле это математика.
Чтобы решить такую задачу, нужно порисовать, поискать зависимости.

Аватар, сам удивился

Чуть сокращенный вариант (вряд ли лучше, просто чистая формула)

uses
  crt;

var
  a, b, k: integer;

begin
  write('Input a/b: ');
  readln(a, b);
  k := a + b;
  writeln((k - 2) * (k - 1) div 2 + b * ((k mod 2 + 1) mod 2) + a * (k mod 2));
end.

Я нашол формулу:
uses
crt;
var i, j, nomer: real;
begin
write('Vvedit i: ');
readln(i);
write('Vvedit j: ');
readln(j);
nomer:=(i+j-1)*(i+j-2)/2+i;
write('Nomer elementa = ');
writeln(nomer);
end.

[BDA]

maksym08, молодец - ваша формула почти верна.
Теперь некоторые замечания:
1) Не нужно цитировать такие большие сообщения, достаточно написать, к кому вы обращаетесь или на какое отвечаете сообщение
2) 24 часа можно редактировать свое сообщение, так что не нужно оставлять несколько сообщений подряд
3) Тип real плохо подходит для хранения целых значений
4) Деление даст вам не номер, а дробное число (хотя, в данной задаче, вроде, не дает )
5) Формула уже выведена выше и она чуть сложнее вашей

Пример для проверки вашей формулы: 1/3
Ваша формула: 4
Должно быть: 6