Найти m-й член последовательности {an} - Free Pascal

[avatar54]

Найти m-й член последовательности {an}, если известно, что a1=k (натуральное число), ai+1=2ai - 1, где i=1, 2, 3, ... , и определить, встречается ли в записи результата, хотя бы один раз, цифра 7.

Как сделать что бы m-й член последовательности был задан в массиве, например не меньше 1 и не больше 10000

uses crt;
var n,k,a1,ai,i:longint;
begin
repeat
write('Введите n=');
readln(n);
until n>0;
repeat
write('Введите натуральное число к (первое число последовательности)  =');
readln(k);
until k>0;
a1:=k;
clrscr;
writeln(a1);
for i:=2 to n do
 begin
  ai:=2*a1-1;
    a1:=ai
 end;
writeln('an=',ai);
k:=0;
while(ai>0)and(k=0) do
if ai mod 10=7 then k:=1
else ai:=ai div 10;
if k=1 then write('В числе есть цифра  7')
else write('В числе нет цифры 7');readln
end.

[Аватар]

Как сделать что бы m-й член последовательности был задан в массиве, например не меньше 1 и не больше 10000

Зачем? Массив здесь и даром не нужен. А что касается 10000, то загнул сильно. Тут экспоненциальный рост членов последовательности. Это рекуррентное соотношение легко переводится в такой вид: am = 2^(m-1)*(k-1)+1, прикинь 2 в степени 9999
Для относительно не больших m и цикла не нужно, просто:

var a: Int64;
...
  k:=4; m:=40;
  a:=(Int64(1) shl (m-1))*(k-1)+1;

Когда же m близко к 64 и больше начнется морока с длинной арифметикой

PS семерку можно и без цикла искать, преобразуй в строку и функция pos

[avatar54]

мне нужно сделать так, что бы можно было установить границы ai , а если число выходит за эти границы - вывести это в программе

[Serge_Bliznykov]

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

мне нужно сделать так, что бы можно было установить границы ai , а если число выходит за эти границы - вывести это в программе

ну, для LongInt можно попробовать так:

const half_max_longint = 2147483647 div 2;
.....

for i:=2 to n do
 begin
    if a1>half_max_longint  then begin
        WriteLn('Всё, достигли предела значности!'); Break; end;
    ai:=2*a1-1;
    a1:=ai
 end;

p.s.а ещё, судя по документации, в FP есть тип QWord,
он вмещает числа намного больше!

[avatar54]

нужно именно через массив

[Serge_Bliznykov]

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

нужно именно через массив

ну делайте через массив, я не против.

[avatar54]

я тоже не против, вот только что то не получается ))

[Serge_Bliznykov]

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

я тоже не против, вот только что то не получается ))

а для чего в этой задаче нужен массив сможете объяснить?

[avatar54]

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

а для чего в этой задаче нужен массив сможете объяснить?

для того что бы можно было задавать максимальное значение ai, и если оно выходит за пределы - вывести это в программе

[Serge_Bliznykov]

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

для того что бы можно было задавать максимальное значение ai, и если оно выходит за пределы

чтобы получать текущее значение Ai массив не нужен.