Составление программ для решения поставленных задач, страница 4

2.3.Текст программы:

Program Zad2;

Var a0,a:real;

i,n,k :integer;

Begin

Write('Vvedite n=');

Readln(n);

Write('Vvedite a0=');

Readln(a0);

Writeln('Введено число выполняемых элементов последовательности:',n:2);

Writeln(Начальное значение:',a0:2:1);

k:=0;

i:=1;

a:=a0;

while i<=n do

begin

a:=-2*a;

if a<40 then k:=k+1;

i:=i+1;

end;

Writeln('k=',k);

End.

2.4.Результаты выполнения программы. Вид печати:

Введено число выполняемых элементов последовательности: 20

Начальное значение:1.0

k=12

3. Задача 3.

3.1.Условие задачи.

Используя формулу для элементов последовательности , составить программу для вычисления суммы  элементов этой последовательности. .

Решение.

1.  В этой задаче элементы последовательности вычисляются рекуррентно:

Пусть  - сумма  элементов последовательности, тогда  Основные формулы:

2. Тест для отладки программы:

3. Исходные данные:  (тест),  (рабочий вариант).

3.2. Блок-схема:

 

3.3.Текст программы:

Program Zad3;

Var S,a:real;

i,n:integer;

Begin

write('Vvedite n=');

Readln(n);

writeln('Vvedeno n=',n);

S:=0;

a:=0;

for i:=1 to n do

begin

a:=1/sqrt(i);

S:=S+a;

end;

writeln('Summa S=',S:4:3);

End.

3.4.Результаты выполнения программы. Вид печати:

Vvedeno n=10

Summa S=5.02