VPF::[Pascal] Нахождение позиции - Форум программистов

slavka3

Дата 23.11.2006, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

У меня вот такая задачка:
                        j
_____________________________
        | 1   | 2   | 5   | 10  | …
        -----------------------------
      i | 4   | 3   | 6   | 11  | …
        -----------------------------
        | 9   | 8   | 7   | 12  | …
        -----------------------------
        | 16  | 15  | 14  | 13  | …
        -----------------------------
        | …   | …   | …   | …   | …

Нужно найти, где находится число. Например, 12.Должно выбить числа 3,4.
Вот мое решение:
var a,k,n:longint;
begin
readln(n);
k:=1;
while k*k<n do k:=k+1;
a:=n-(k-1)*(k-1);
if a>k then writeln(a,' ',2*k>1)
else writeln (a,' ',k);
end.
Но если ввести число 8 то она не работает.
Помогите!!!!

Ozzя

Дата 23.11.2006, 18:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 19.7.2004

Репутация: нет
Всего: 1

Пошагово пройтись по программе не пробовал?

Код


2*k>1

Это логическое выражение, будет выводить либо true, либо false.
Оно каким боком здесь?

slavka3

Дата 23.11.2006, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

Да, а должно выбить 3 2.А выбивает 4 true.

Zero

Дата 23.11.2006, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Ну правильно, а ты исходные данные ввёл? smile

Код


const
  n = 4;
  m = 4;
var
  i,j,nn:integer;
  a:array[1..n,1..m] of integer;
Begin
  writeln('Ввод исходной матрицы:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('a[',i,',',j,']= ');
        readln(a[i,j]);
      end;

  write('Введите искомое число N=');
  readln(nn);

  for i:=1 to n do
    for j:=1 to m do
      if a[i,j] = nn then
        write('Координаты: ',i,',',j);
End.

slavka3

Дата 23.11.2006, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

Ты меня неправильно понял мне нужно по этой таблице вывести, где находится число. Например, число 10 по і=1,а по j=4.Но моя задача работает чуть-чуть неправильно!

Zero

Дата 23.11.2006, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Цитата(slavka3 @ 23.11.2006, 21:54

)

Ты меня неправильно понял мне нужно по этой таблице вывести, где находится число.

Ну ты проверь прогу то для начала... Она и выводит координаты числа.
В начале вводишь свою таблицу, а потом искомое число, прога выдаёт где это число находится. Что не так?

slavka3

Дата 23.11.2006, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 16
Регистрация: 7.11.2006

Репутация: нет
Всего: нет

Проблема в том, что мне не нужно вводить все числа с таблицы, а только одно число.

Добавлено @ 22:15
В начале вводишь свою таблицу- это не надо делать

Kuvaldis

Дата 24.11.2006, 04:11 (ссылка)

(нет голосов)

Загрузка ...

механик-вредитель

Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61

slavka3,

Код


var
  num: integer;
  n : integer;
  delta : integer;
  i, k : integer;
begin
  write('num = ');
  readln(num);
  n := trunc( sqrt(num) );
  if (n * n < num) then
     Inc(n);
  delta := n * n - num + 1;
  if (delta <= n) then
  begin
      i := n;
      k := delta;
  end
  else
  begin
      k := n;
      i := 2 * n - delta;
  end;

  writeln(i : 3, k : 3);

end.

Zero,
просто в данной таблице закономерность - тут числа как главные миноры матрицы идут.

Это сообщение отредактировал(а) Kuvaldis - 24.11.2006, 14:20

--------------------

Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей

Zero

Дата 24.11.2006, 04:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 3
Всего: 24

Цитата(slavka3 @ 23.11.2006, 23:14

)

В начале вводишь свою таблицу- это не надо делать

А ну так бы сразу и сказал... Тогда так:

Код


var
  N:integer;
  i,j,p,e,q:real;
begin
  write('N= ');
  readln(N);

  q:=N; e:=0;
  while sqrt(q)-int(sqrt(q)) <> 0 do
    begin
      q:=q-1;
      e:=e+1;
    end;
  p:=sqrt(q);

  if p >= e then
    begin
      i:=e;
      j:=p+1;
    end
  else
    begin
      i:=p+1;
      j:=sqr(p+1)-n+1;
    end;

  writeln('i=',i:2:0,' j=',j:2:0);
end.

sergejzr

Дата 24.11.2006, 14:31 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Для домашних заданий, курсовых, существует "Центр Помощи"

Тема перенесена!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »