найти н-ую пцифру в последовательности фиббоначи в паскале

[Serge_Bliznykov]

halk
ничем не могу помочь, так как то решение, что я предложил, как раз и делает то, что требует преподаватель!!!
цитирую из своего решения:

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

это делает функция
function LenOfInteger(M : Longint) : integer;
определяет длину очередного члена последовательности.

потом их складывать

это сложение производится в переменной CurLen:

CurLen := CurLen+LenOfInteger(iTemp);

пока сумма количества цифр не станет равна вводимому нами n

        while (CurLen+LenOfInteger(iTemp)) < n do

а потом уже с помощью mod и div найти нную цифру

вот функция и находит (только не N-ю, а K-ю цифру числа )!
function OneDigitFromInt(M : Longint; K : integer) : integer;

мой вам совет - разберите моё решение (ну можно функции прямо в теле программы расписать, чтобы функций не было в программе) и смело сдавайте это решение вашему преподу!

[halk]

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

halk
ничем не могу помочь, так как то решение, что я предложил, как раз и делает то, что требует преподаватель!!!


мой вам совет - разберите моё решение (ну можно функции прямо в теле программы расписать, чтобы функций не было в программе) и смело сдавайте это решение вашему преподу!

а как их расписать эти функциию именно они и смутили в вашем решениию так как мы пока функциями еще не пользовались..... но спасибо за расшифровку так стало более понятней вот если бы вы показали еще как каждая функция расписывается тогда бы я уже разобрался...... спасибо большущеею вот тока покажите как расписываются через простые операторы такие штукенции:

[halk]

function OneDigitFromInt(M : Longint; K : integer)
CurLen := CurLen+LenOfInteger(iTemp);

[halk]

[QUOTE=Serge_Bliznykov;359893]ребят, ну что ж Вы издеваетесь, нужна n-я цифра последовательности, а не значение n-го члена последовательности!!!

CurLen := 2;
iPrev := 1;
iCur := 1;
iTemp := iPrev+iCur; и можно ли заменить iPrev ;
iCur ;iTemp буквами a,b,c. а вы можете прислать вариант где функции расписаны?
И еще один вопрос: в этой проге тчно нет структур. массивов и строковых переменных?

потому что в условии сказано:Во всех задачах используется целочисленная переменная N, значение которой не превосходит по модулю 2 млрд (если не указано иное). Нельзя использовать строковые переменные, массивы или другие структуры.

[XeN0N]

ты издеваешься или правда такой?

[halk]

правда . это моя третья работа на паскале.... я виноват что мне вариант такой попался. другим попались задания с обменом цифр на макс и миним. а мне такое...( доведите пожалуйста прогу Serge_Bliznykov до того чтоб там были буковки и чтоб не было
function LenOfInteger ; function OneDigitFromInt(M : Longint; K : integer) и других не понятных штук..... и я отвалю от вас. тока доведите прогу ..... ну вот как эти функции расписть????????как они расписываются?????????????????????? ??

[ОДИНОЧЕСТВО В СЕТИ]

и я отвалю от вас

дык сидите тут в одинокого и приставайте сами к себе!

[halk]

ну хоть поясните как заменить и что обозначают function LenOfInteger ; function OneDigitFromInt(M : Longint; K : integer)

[Serge_Bliznykov]

вот, перенёс процедуры в тело программы. так пойдёт? всё понятно?

{
  Дано натуральное n. 
    Напечатать n-ю цифру последовательности 
    1123581321:, в которой выписаны подряд все числа Фибоначчи.
}

var i, k, n, CurLen : integer;
  Dlina : integer;
  OdnaCifra : integer;
  A, B, C : Longint;

begin
  WriteLn('Введите n');
  ReadLn(n);
  if n<=0 then
    WriteLn('Не может быть такой цифры в последовательности!')
  else
    begin
      if (n<3) then WriteLn(n:1,'-я цифра в последовательности = 1')
      else 
      begin
        CurLen := 2;
        A := 1;
        B  := 1;
        C := A + B;

        {посчитаем длину очередного члена последовательности}
        Dlina := 1;
        while C >= 10  do begin
          Dlina := Dlina + 1;
          C := C div 10;
        end;
        {т.к. в процессе вычисления мы делили число на 10,
          оно утратило своё значение, поэтому его надо ещё раз 
          вычислить}
        C := A + B; 
        
        while (CurLen + Dlina) < n do
        begin
        
          CurLen := CurLen + Dlina;
          A := B;
          B := C;
          C := A + B;
          {посчитаем длину очередного члена последовательности}
          Dlina := 1;
          while C >= 10  do begin
            Dlina := Dlina + 1;
            C := C div 10;
          end;
          {т.к. в процессе вычисления мы делили число на 10,
            оно утратило своё значение, поэтому его надо ещё раз 
            вычислить}
          C := A + B; 

        end;

        k := Dlina - (n-CurLen) + 1;
        while k>1 do begin
          C := C div 10;
          k := k - 1;
        end;
        OdnaCifra := C mod 10;
        
        WriteLn(n:1,'-я цифра в последовательности = ', OdnaCifra);
        Readln;
        
      end;
    end;
end.

только мне кажется, что Вам это не поможет.
Ибо Вы не понимаете (и, имхо, даже не пытаетесь понять), что делает предложенный Вам вариант (алгоритм).
Если бы Вы пытались это сделать, тогда бы у Вас возникли конкретные вопросы по программе...
Как Вы сдавать собираетесь, не понимаю...

в любом случае - желаю удачи.

[halk]

спасибо огромнейшее !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!