Технический форум - Пожалуйста, помогите с задачами в Паскале

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

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

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

Цитата:

Сообщение от vana174 (Сообщение 838248)

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.

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

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

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

Замечание:

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

Модератор

Цитата:

Сообщение от vana174 (Сообщение 838338)

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.

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

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

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

Цитата:

Сообщение от vana174 (Сообщение 838886)

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

Код:

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.