ТОР 5 статей: Методические подходы к анализу финансового состояния предприятия Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века Характеристика шлифовальных кругов и ее маркировка Служебные части речи. Предлог. Союз. Частицы КАТЕГОРИИ:
|
Циклические вычислительные процессы (последовательности)Определить n первых членов рекуррентной последовательности.
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. Не нашли, что искали? Воспользуйтесь поиском:
|