Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Циклические вычислительные процессы (последовательности)




Определить n первых членов рекуррентной последовательности.

Начало

Ввод n
Ak-1:=1; ak-2:=0; ak-3:=1;
N>3
Вывод ak-1; ak-2; ak-3;  
S:=0; i:=1;
K:=4, n
a:=(a1*sqrt(abs(a3)))+(k*Sin(a2))
Вывод Ak  
trunc(a) mod 2=0
S:=s+a; i:=i+1;
Ak-1:=ak; ak-2:=ak-1; ak-3:=ak-2;
Вывод S  
S:=s+a; i:=i+1;
Конец


program Z9;

var k,n,i:integer;

a1,a2,a3,a,s:real;

begin

repeat

write('Введите число членов последовательности >3 n=');

read(n);

until n>3;

a1:=1;

a2:=0;

a3:=1;

write(a1:0:2,' ',a2:0:2,' ',a3:0:2,' ');

s:=0; //сумма четных

i:=1; //количество четных

for k:=4 to n do

begin

a:=(a1*sqrt(abs(a3)))+(k*Sin(a2));

write(a:0:2,' ');

if trunc(a) mod 2=0 then

begin

s:=s+a;

i:=i+1;

end;

a3:=a2;

a2:=a1;

a1:=a;

end;

writeln;

s:=s/i;

writeln('Ср.ариф. членов с четной целой частью=',s:0:2);

end.






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных