Составление программы для табулирования заданных функций, страница 2

s,a:real;

i,n:integer;

Begin

writeln ('vvedite n');

readln (n);

S:=1.0;

a:=1.0;

for i:=0 to n do begin

a:=-a/(i+1);

s:=s+a;

end;

writeln;

writeln ('summa S=',S:10:4);

End.

Результаты:

vvedite n

8

summa S=    0.3679

Задание 4.

Разработать программу, которая определяет первый отрицательный элемент последовательности  при изменении  x в интервале [-1;-0,5] с шагом 0,1.

Блок схема:

Решение:

program snip;

var

x,y,a,b,h:real;

Begin

writeln ('vvedite a,b,h');

readln (a,b,h);

x:=a-h;

repeat

x:=x+h;

y:=cos(x)/2;

until (x+h>b) or (y<0);

if y<0 then writeln ('y',y:9:6,'pri x=',x:4:2)

else writeln ('element ne naiden');end.

Результаты:

vvedite a,b,h

1 3 0.25

y-0.089123pri x=1.75