Question

Срочно!!!!!!!!!!!!!!!!50 БАЛЛОВ

Answer 1

{PascalABC}

Program Alexs5655;

var

 x1,x2,x,sum: real;

 i,n:integer;

begin

 var s:='**** -=Alphaeus=- ****'; var k:=0;

 for k:=1 to 22 do begin write(s[k]); sleep(47) end;

  writeln; write('Введите N = '); readln(n);

 x1:=2; x2:=1; sum:=x1+x2; i:=3;

 case n of

   1: sum:=x1;

   2: sum:=x1+x2;

   else

     while i<=n do

       begin

         x:=0.8*x2+0.15*x1;

         sum:=sum+x;

         x1:=x2; x2:=x;

         inc(i);

       end;

 end;

{Вывод}    

 writeln('Сумма последовательности равна ',sum);

end.

(В блок-схеме, видимо, ошибка: при N=1 сумма должна вычисляться по формуле S:=x1, а не  S:=x2)

Answer 2

Не проще обновиться с оф. сайта?

Answer 3

Да, так и сделаю...

Answer 4

Тем более, что там в Справке появится опция "Проверить версию" с возможностью обновления прямо оттуда.

Answer 5

Спасибо! :)

Answer 6

Пожалуйста

Answer 7

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 SeqGen(ReadInteger('n='), 2.0, 1.0, (p, q)-> 0.8 * p + 0.15 * q).Sum.Println

end.

Answer 8

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

Answer 9

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

Answer 10

Можно даже "Произвести подробные вычисления с приведенным данными в соответствии с представленной блок-схемой"

Answer 11

и оставить вопрос в разделе Информатика?

Answer 12

Если блок-схема - только Информатика.