Пожалуйста, помогите с задачами в Паскале

[vana174]

Пожалуйста, помогите с задачами в Паскале

1. Размер первоначального банковского вклада генерируется случайным образом (100-5000). Раз-мер процентной ставки от 1 до 4 процентов в месяц. Каждый месяц со счета снимают сумму в размере 2% от суммы предыдущего месяца. Верно ли, что через m месяцев сумма вклада превы-сит первоначальную в 2 раза?
2 . В промежутке [m, n] найти все числа, в записи которых нет цифры b.
3. Дано натуральное число n. Вычислить сумму n элементов ряда: 1+1/4 + 1/12 + 1/32 + 1/80 +…

 

[Vladimir_S]

1. Размер первоначального банковского вклада генерируется случайным образом (100-5000). Размер процентной ставки от 1 до 4 процентов в месяц. Каждый месяц со счета снимают сумму в размере 2% от суммы предыдущего месяца. Верно ли, что через m месяцев сумма вклада превысит первоначальную в 2 раза?

1. Если у Вас Паскаль АВС, то формат данных поставьте Integer вместо Longint.
2. Если (тут неясная формулировка) ставка постоянная, а не меняется от месяца к месяцу, как это заложено в программе, то генерацию размера ставки вытащите из цикла и поставьте перед ним.

Var
 Vkl,Vkl_new,stav,m,i:LongInt;
Begin
 Randomize;
 Vkl:=Random(4901)+100;
 Writeln('Initial: ',Vkl);
 Write('m= ');
 Readln(m);
 For i:=1 to m do
  begin
   Stav:=Random(4)+1;
   Vkl_new:=Round(1.0*Vkl-0.02*Vkl+0.01*Vkl*Stav);
   Vkl:=Vkl_new;
  end;
 Writeln('Final: ',Vkl);
 Readln;
End.

 

[vana174]

1. В промежутке [m, n] найти все числа, в записи которых нет цифры b.

2. Дано натуральное число n. Вычислить сумму n элементов ряда: 1+1/4 + 1/12 + 1/32 + 1/80 +…

в паскале надо)))

[mod2]Так, еще один дубликат темы - и пойдете в бан.

Модератор[/mod2]

 

[Vladimir_S]

1. В промежутке [m, n] найти все числа, в записи которых нет цифры b.

Например, так:

Var
 m,n,i:LongInt;
 j:Byte;
 S:String;
 C:Char;
 b:boolean;
Begin
 Write('m= ');
 Readln(m);
 Write('n(>m)= ');
 Readln(n);
 Write('b= ');
 Readln(C);
 For i:=m to n do
  begin
   STR(i,S);
   b:=true;
   for j:=1 to length(S) do
    if S[j]=C then b:=false;
   if b then write(i:8);
  end;
 Readln;
End.

 

[vana174]

спасибо огромное Vladimir_S премного благодарен вам

 

[Vladimir_S]

Насчет последней задачи. Ломал я, ломал голову, пытаясь найти аналитическое выражение для члена ряда, да так и не придумал. Вы абсолютно уверены, что оно не было дано?

 

[vana174]

да абсолютно уверен как думаю я надо найти определённую последавательность преподаватеь говорил что должно быть примерно так:
2+2 в степени i

 

[Vladimir_S]

да абсолютно уверен как думаю я надо найти определённую последавательность преподаватеь говорил что должно быть примерно так:
2+2 в степени i

Ладно, кое-что получилось. Попробуйте так. Пояснение: для убедительности выводится последовательность знаменателей слагаемых.

Var
 S:real;
 n,i,a,b:LongInt;
Begin
 Write('n= ');
 Readln(n);
 a:=1;
 S:=1;
 b:=1;
 writeln('i= 0   a=1');
 For i:=1 to n-1 do
  begin
   b:=b*2;
   a:=2*a+b;
   writeln('i=',i:2,'   a=',a);
   S:=S+1/a;
  end;
 Writeln('Sum= ',S:0:5);
 Readln;
End.