Прості цикли в Паскалі. Сума нескінченного ряду

Виконав:

студент 1 курсу групи КС-11

факультету ОТІУС

Онойко Назар

Перевірив:

Ст. в.: Порубльов І. М.

_________________

“__”___________2011р

Черкаси – 2011 р.

Мета роботи: Створення циклів з невизначеною кількістю повторень.

Постановка завдання: Обчислити суму нескінченного ряду з заданою точністю . Визначити кількість членів, необхідних для досягнення заданої точності. Створити два типи програм за допомогою різних операторів циклу.

Зміст звіту:

1) Задача для конкретного варіанта.

2) Блок-схеми програм.

3) Текст програм на Паскалі.

4) Результати роботи однієї програми.

5) Висновок до роботи.

1) Задача для конкретного варіанта

2) Блок-схеми програм

Початок

x

e=

s=0;n=1;f2=6; sn=1

sn

sn>=e

sn:=power(x,2*n+1)/f2

3 bnJldi54bWxMj0FPwzAMhe9I/IfISNxYWigVK00nQKqQEJcNdtgta01TLXGqJuvKv8eIw7g920/P 3ytXs7NiwjH0nhSkiwQEUuPbnjoFnx/1zQOIEDW12npCBd8YYFVdXpS6aP2J1jhtYic4hEKhFZgY h0LK0Bh0Oiz8gMS3Lz86HXkcO9mO+sThzsrbJMml0z3xB6MHfDHYHDZHp6DG10OfW9yt511n3HRf v789b5W6vpqfHkFEnOPZDL/4jA4VM+39kdogrIIsX96xlUWacSl2/G32LLI0B1mV8n+H6gcAAP// AwBQSwECLQAUAAYACAAAACEAtoM4kv4AAADhAQAAEwAAAAAAAAAAAAAAAAAAAAAAW0NvbnRlbnRf VHlwZXNdLnhtbFBLAQItABQABgAIAAAAIQA4/SH/1gAAAJQBAAALAAAAAAAAAAAAAAAAAC8BAABf cmVscy8ucmVsc1BLAQItABQABgAIAAAAIQBBeQfe9QEAAPwDAAAOAAAAAAAAAAAAAAAAAC4CAABk cnMvZTJvRG9jLnhtbFBLAQItABQABgAIAAAAIQDqQ8qu3gAAAAsBAAAPAAAAAAAAAAAAAAAAAE8E AABkcnMvZG93bnJldi54bWxQSwUGAAAAAAQABADzAAAAWgUAAAAA " strokecolor="black [3040]">

Кінець

s;(n-1)

n:=n+1

sn

s:=s+sn

f2:=f2*(2*n+2)*(2*n+3)

Початок

x

e=

s=0;n=1;f2=6; sn=1

sn

x1:=x1*x

f2:=f*(2*n+2*(2*n+3)

sn:=power(x,2*n+1)/f2

Кінець

s;(n-1)

n:=n+1

sn<e

s:=s+sn

sn

3) Текст програм на Паскалі

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils,

Math;

var s,sn,x,f2: real;

n: integer;

begin

write('Enter x=');

readln(x);

writeln('Tochnist=1e-3');

s:=0;

n:=1;

f2:=6;

sn:=1;

while abs(sn)>=1e-3 do

begin

sn:=power(x,2*n+1)/f2;

s:=s+sn;

if abs(sn)>=1e-3 then writeln('s', n, '=', sn:0:4);

f2:=f2*(2*n+2)*(2*n+3);

n:=n+1;

end;

writeln('s=',s:0:3);

writeln('n=', n-1);

readln;

end.

Repeat until

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils,

Math;

var s,sn,x,f2: real;

n: integer;

begin

write('Enter x=');

readln(x);

writeln('Tochnist=1e-3');

S:=0;

n:=1;

f2:=6;

sn:=1;

repeat

sn:=power(x, 2*n+1)/f2;

writeln('s', n, '=', sn:0:3);

s:=s+sn;

f2:=f2*(2*n+2)*(2*n+3);

n:=n+1;

until abs(sn)<1e-3;

writeln('s=', s:0:3);

writeln('n=', n);

readln;

end.

4) Результати роботи однієї програми

5) Висновок до роботи

На цій лабораторній роботі я навчився обчислювати суму нескінченного ряду за допомогою циклів while-do та repeat-until, а також порівнювати отриману суму із заданою точністю.

Дата добавления: 2015-08-21