Большие значения/спиральное заполнение массива

[Diabolik]

Имеется 2 задачи, для подготовки делаю но не могу разобраться
№1
Найти количество делителей у числа если чётное вывести 0 если чётное кол-во 1 если нечётное.

Пример:
2(кол-во чисел)
4 5

Ответ:
1 0

var input,output:text; a,b,n,k,i,j:longint; mass:array[1..100000] of longint;
begin

assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(input,n);
For i:= 1 to n do
begin
k:=0;
read(input,mass[i]);
For j:= 1 to mass[i] do
begin
If mass[i] mod j = 0 Then
begin
inc(k);

end;
end;
If k mod 2 = 0 Then write(output,'0 ') Else write(output,'1 ');
end;
close(input);
close(output);
end.

Проблема в том что число может быть до 10 в 8 степени чего лонгинт никак не обрабатывает как можно это избежать.

№2
0<n<100
Имеется массив размеров n*n записать спиралью начиная с центра против часовой стрелки.
Пример:


5 4 3
6 1 2
7 8 9

Тут я полный профан никогда не умел с матрицами работать.

[puporev]

Учитесь работать с матрицами и для начала разберите этот код. Нарисуйте матриу на бумаге и следите как Вы будете заполнять и как это написано в программе, отдельно для матриц с четной и нечетной длиной стороны. По сути здесь 4 повторяющихся маршрута:
1. влево по строке
2.вниз по столбцу
3.вправо по строке
4.вверх по столбцу.
Точки поворота фиксирует конечный автомат k, точнее его остаток от деления на 4.
переменная х -движение по строке, у - по столбцу. Числа заданы в цикле от 1 до n^2 переменной z.
Короче разбирайтесь.

uses crt;
var a:array[1..20,1..20]of byte;
    n,x,y,k,z:integer;
begin
clrscr;
write('n=');readln(n);
if odd(n) then {dlya nechetnyh}
  begin
    x:=n div 2+1;y:=n div 2+1;
    k:=0;
    for z:=1 to n*n do
      begin
       a[x,y]:=z;
       case k mod 4 of
       0:begin
         dec(y);
         if (x-1)=y then inc(k);
         end;
       1:begin
         inc(x);
         if(n-x+1)=y then inc(k);
         end;
       2:begin
         inc(y);
         if(n-x)=(n-y) then inc (k);
         end;
       3:begin
         dec(x);
         if y=(n-x+1) then inc(k);
         end;
       end;
     end;
   end
else   {dlya chetnyh}
   begin
     x:=n div 2;y:=n div 2+1;
     for z:=1 to n*n do
       begin
        a[x,y]:=z;
        case k mod 4 of
        0:begin
          dec(y);
          if x=y then inc(k);
          end;
        1:begin
          inc(x);
          if(n-x+1)=y then inc(k);
          end;
        2:begin
          inc(y);
          if(n-x-1)=(n-y) then inc (k);
          end;
        3:begin
          dec(x);
          if y=(n-x+1) then inc(k);
          end;
        end;
      end;
   end;
for x:=1 to n do
  begin
    for y:=1 to n do
    write(a[x,y]:4);
    writeln;
  end;
readln
end.

По первой задаче:
10^8=100 000 000;
MaxLongint=2 147 483 648;
Почему у Вас не входит в этот тип?

[Diabolik]

Извините 10^18 имелось ввиду, в матрице спираль не в ту сторону идёт, предпологалось чтобы было:

5 4 3
6 1 2
7 8 9

у вас

9 8 7
2 1 6
3 4 5

[puporev]

Повернуть спираль в другую сторону самостоятельно конечно не судьба. 10 минут подумать и несколько символов в коде изменить.

uses crt;
var a:array[1..20,1..20]of byte;
    n,x,y,k,z:integer;
begin
clrscr;
write('n=');readln(n);
if odd(n) then {dlya nechetnyh}
  begin
    x:=n div 2+1;y:=n div 2+1;
    k:=0;
    for z:=1 to n*n do
      begin
       a[x,y]:=z;
       case k mod 4 of
       0:begin
         inc(y);
         if y=x+1 then inc(k);
         end;
       1:begin
         dec(x);
         if(n-x+1)=y then inc(k);
         end;
       2:begin
         dec(y);
         if x=y then inc (k);
         end;
       3:begin
         inc(x);
         if y=(n-x+1) then inc(k);
         end;
       end;
     end;
   end
else   {dlya chetnyh}
   begin
     x:=n div 2+1;y:=n div 2;
     for z:=1 to n*n do
       begin
        a[x,y]:=z;
        case k mod 4 of
        0:begin
          inc(y);
          if x=y then inc(k);
          end;
        1:begin
          dec(x);
          if(n-x+1)=y then inc(k);
          end;
        2:begin
          dec(y);
          if x-1=y then inc (k);
          end;
        3:begin
          inc(x);
          if y=(n-x+1) then inc(k);
          end;
        end;
      end;
   end;
for x:=1 to n do
  begin
    for y:=1 to n do
    write(a[x,y]:4);
    writeln;
  end;
readln
end.

[puporev]

По первой задаче.
1.Можно использовать тип Extended.
2. Непонятно зачем массив.
3. Зачем гнать цикл от 1 до данного числа, если на 1 на себя число всегда делится, т.е. 2 делителя всегда есть. Достаточно проверить от 2 до корня квадратного из числа. Вот кусок кода. считает нормально, но число из 18 знаков обрабатывает минуты 2, точно не засекал.

var a,j:extended;
     n,i,k:integer;
........................
readln(f,n);
for i:=1 to n do
  begin
   read(f,a);
   j:=2;k:=0;
   while j<=sqrt(a) do
     begin
      if frac(a/j)=0 then k:=k+1;
      j:=j+1;
    end;

[Hom9IchOK]

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

В моём случае не только задается размерность матрицы, но и вводятся элементы (рандомом).

Я очень долго пыталась перевести выше описанную логику под мой вариант. Но не получилось.

Прошу помочь!

[BeSHyLLlka]

нужно в javascript заполнить массив по спирали начиная с центра. в паскале работает а вот в java ни как не могу додумать как сделать чтоб заработало

[TinMan]

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

нужно в javascript <...> а вот в java ни как не могу додумать как сделать чтоб заработало

Ты уж, будь ласков, определись, что тебе надо - JavaScript или Java.. И показывай, что сделал.

Кстати, была же еще ТВОЯ тема про заполнение по спирали. Тебе там помогли. Почему ты теперь лезешь в чужую?