alexs5655
Мне нужны письменные вычисления а не ответ в паскале
Alphaeus
А почему ж было не написать нормально в задании: "Мне нужны письменные вычисления"? Вместо воплей "Помогите!!!!!!!!!!!!!Срочно!!!" Неверный вопрос, а не ответ.
alexs5655
Простите но это не вопли, а единственный способ привлечь внимание людей
alexs5655
Я не отрицаю того факта, что не указал дополнительные факты в вопросе и это прежде всего это моя ошибка.
alexs5655
Но как вам уже писали ранее ваш ответ так и остаётся не верным
Alphaeus
В задании надо сразу писать: "нужны письменные вычисления". И тогда это будет задание не по информатике, а по математике. А когда я вижу предмет "Информатика", я предполагаю, что нужно составить программу - разве не логично?
alexs5655
Я вас понял, спасибо что указали мне на мою ошибку. Мне надое задание дали по информатике поэтому я сразу и решил его отправить именно сюда, даже и не подозревал, что это должно быть в разделе математики.
Answers & Comments
Verified answer
{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)