Программирование линейных вычислительных процессов с использованием операторов, реализующих базовые структуры ветвения. Вариант № 4, страница 2

Var S,a:real; i,n:integer;

Begin Writeln('Введите n');

Readln(n); Writeln('Введено n:=',n:4);

S:=0.0; a:=-1; for i:=1 to n do begin a:=-a/i; s:=s+a; end;

Writeln('сумма S=',S:10:5);

end.

Ответ.

Введите n

6

Введено n:=   6

сумма S=   0.63194

Задание 4.

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

 Решение:

Program Otr;

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

Begin Writeln('Введите a,b,h');

Readln(a,b,h);

x:=a-h;

repeat x:=x+h; y:=2*exp(-x)-1/20;

until (x+h>b) or (y<0); if y<0 then Writeln('y=',y:9:6,' при x=',x:3:1)

else Writeln('Элемент не найден');

End.

Ответ:

Введите a,b,h

0 6 1

y=-0.013369 при x=4

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