Постановка задачи

Дано: n, a[1:n]

Результат: b[1:nb] или сообщение «нет отрицательных элементов»

с[1:nс] или сообщение «нет четных элементов»

При: n Є N, n≤ Lmax

Связь: b[j]=a[i], i=1,n; j=1,nb, если a[i]<0.

c[j]=a[i], i=1,n; j=1,nc, если a[i] - четное.

Алг «2 новых массива»

Нач

ввод(n, a[1:n])

{инициализации}

nb:=0

nc:=0

циклот i:=1 до n

если a[i] <0 то

nb:=nb+1

b[nb]:=a[i]

все

если a[i] - четное то

nc:=nc+1

c[nc]:=a[i]

все

кц

если nb=0 то

вывод(«нет отрицательных элементов»)

иначе

вывод(b[1:nb])

все

если nc=0 то

вывод(«нет четных элементов»)

иначе

вывод(c[1:nc])

все

кон

program kr;

var a,b,c:array[1..20] of integer;

i,n,nb,nc:integer;

begin

write('введите n'); read(n);

write('введите массив');

for i:=1 to n do

read(a[i]);

{инициализация}

nb:=0;

nc:=0;

for i:=1 to n do

begin

if a[i] <0 then

begin

nb:=nb+1;

b[nb]:=a[i];

end;

if not odd( a[i]) then

begin

nc:=nc+1;

c[nc]:=a[i];

end;

end;

if nb=0 then

writeln('нет отрицательных элементов')

else

begin

writeln(' массив b') ;

for i:=1 to nb do

writeln(b[i]);

end;

if nc=0 then

writeln('нет четных элементов')

else

begin

writeln(' массив c') ;

for i:=1 to nc do

writeln(c[i]);

end;

end.

Задача 3.Вычислить сумму ряда

с точностью до

Написать постановку задачи, алгоритм и трассировку (при трассировке достаточно рассмотреть два первых шага цикла).

Решение.

Выведем рекуррентное отношение.

Для того, чтобы выразить слагаемое через предыдущее, произведём деление:

Дано: x, Eps

Результат: s

При : Eps>0, x≠0

Связь: , с точностью до

алг «итерация 2»

нач

ввод(x, Eps)

z:=x{слагаемое}

s:=z{умма членов ряда}

i:=1{номер слагаемого}

цикл p:=z {предыдущее слагаемое}

z:=z*x² /(2i(2i+1)){текущее слагаемое}

s:=z+s {вычисление суммы}

i:=i+1 {увеличение номера шага}

до |z-p|≤Eps

кц

вывод(s)

кон