Задание 3. Составление, ввод, трансляция и выполнение программ циклической структуры

Составление, ввод, трансляция и выполнение программ циклической структуры.

Вычислить сумму ряда с погрешностью е=0,0001 в окрестности точки ноль, т.е. при |x|<1:

Блок-схема:

Программа:

program cikli;

const e=0.0001; {погрешность}

var i:integer; s,x,a:real;

begin

repeat {цикл}

write('Vvedite |x|<1 x='); {вывод текста}

readln(x); {ввод х}

until abs(x)<1; {условие цикла}

s:=x; {начальная сумма}

a:=x; {начальное значение а}

i:=1; {начальное значение i}

repeat {начало цикла}

i:=i+1; {i+1}

a:=-a*x*x/(2*i-2)/(2*i-1); {шаг суммы}

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

until abs(a)<e; {условие окончания цикла}

writeln('Summa= ',s:0:4); {вывод суммы}

writeln('sin(x)=',sin(x):0:4); {вывод sin x}

readln;

end.

Список литературы:

1. Культин Н.Б. Программирование в Turbo Pascal и Delphi.— СПб.: BHV — Санкт-Петербург, 1998.

2. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0 / Под ред. В. П.Тарасенко. — Киев: ВЕК+; М.: Бином Универсал, 1998.

3. Касаткин В. Н. Информация. Алгоритмы. ЭВМ. — М.: Просвещение, 1991.