инфа_3лаб

МИНОБРНАУКИ РОССИИ

Санкт-Петербургский государственный

электротехнический университет

«ЛЭТИ» им. В.И. Ульянова (Ленина)

Кафедра биотехнических систем

отчет

по лабораторной работе 3

по дисциплине «Информатика»

Тема: Создание программы «Степенные ряды»

Студентка гр. 9502		Позняк В. Ю.
Преподаватель		Бельтюков М. В.

Санкт-Петербург

2019

Цель работы.

Необходимо рассчитать значения функций arctg(x) и ch(x), заданных с помощью рядов, с определённой точностью. Точность и аргумент функции вводятся с клавиатуры. Результат работы сравнить со значениями стандартных функций.

Блок-схема программы.

Начало

x:=SEValueX.Value;

e:=1;

Действие

n:=1

Цикл n

e:=e*0.1;

n:=SEValueE.Value

Цикл n

К

стр.

3

A

А

Из

стр.

2

Условие

case RG.ItemIndex of

0

Func:=1;

A:=1;

n:=1;

k:=0;

Func:=x;

A:=x;

n:=1;

k:=0;

1

Действие 1

Действие 0

Цикл «Расчёт функции ch»

Цикл «Расчёт функции arctg»

repeat

repeat

A1:=A*x*x*n/(n+2);

Func:=Func-A1;

A:=(-1)*A1;

n:=n+2;

k:=k+1;

Действие

fact:=1;

Цикл i

i:=1

Цикл «Расчёт функции arctg»

until abs(A1)<e;

ESFun.Text:=

FloatToStr(arctan(x));

ERFun.Text:=

FloatToStr(Func);

Edit1.Text:=

IntToStr(k);

Действие

fact:=fact*i;

Цикл i

i:=n+1

A1:=

A*x*x/fact;

Func:=

Func+A1;

A:=A*x*x;

n:=n+2;

k:=k+1;

Действие

К

стр.

4

К

стр.

4

C

B

Из

стр.

3

Из

стр.

3

B

C

Цикл «Расчёт функции ch»

until abs(A1)<e

Конец

Действие

Вывод.

При создании демонстрационной программы были получены навыки работы со следующими командами и визуальными компонентами: элемент строка ввода Edit; элемент список зависимых кнопок RadioGroup.

ESFun.Text:=

FloatToStr((exp(x)+exp(-x))/2);

ERFun.Text:=

FloatToStr(Func);

Edit1.Text:=

IntToStr(k);