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

Question

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

---

---

Answer 1

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.

---

Comments

Автор - Вы когда добавляли задачу, Вы знали, что нужны письменные вычисления, правда же? Вот и надо было это написать в условии? Участники Сервиса не телепаты...

---

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

---

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

---

Всё что здесь есть это единственное условие что у меня есть

---

С данными которые здесь представлены это возможно?

---

Можете подсказать как правильно мне указать то, что мне нужно разобрать вычисления, которые даются в блок-схеме?

---

Поддерживаю - такой задаче место в "Математике". А конкретно эту вообще нужно удалить, так как условие дано с нарушениями.

---

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

---

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

---

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

Answer 2

{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

       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)

Comments

{PascalABC} - такого языка не существует. Или старый Pascal ABC (через пробел), или современный PascalABC.NET

---

Да, Вы правы. Вообще-то, я проверял на PascalABC.NET 2.2. Просто расписал подробнее, чтоб видеть логику алгоритма.

---

я проверял на PascalABC.NET 2.2. - где Вы нашли такой? [17.02.14] Вышла версия 2.2 (2.2.0.683) - это же 2014 год !!!

---

Завалялся в закромах...

---

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

---

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

---

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

---

Спасибо! :)

---

Языки, как Вы можете видеть, совсем разные. На последнем задача решается фактически в одну строку.

---

Пожалуйста