Уважаемые родители выпускников 2016года.

Begin

Begin

Begin

Begin

Begin

Var

Const

eps1 = 0.01; { Точность 10^-2}

eps2 = 0.001; { Точность 10^-3 }

eps3 = 0.0001; { Точность 10^-4 }

a = -0.6; { Начальное значение Х}

b = 0.05; { Шаг для вычисления функци f1}

N = 20; { Количество значений функции }

k1, k2, k3, m: Integer; {Вспомогательные переменные}

f1, f2_1, f2_2, f2_3, chisl, slag, x, R, t: Double;

ClrScr;

{Рисуем шапку таблицы}

writeln(' _________________________________________________________');

writeln('| | | e=0.01 | e=0.001 | e=0.0001 |');

writeln('| x | f1(x) |----------|-----------|------------|');

writeln('| | | f2(x)| N | f2(x) | N | f2(x) | N |');

writeln('|_______|_____________|______|___|_______|___|________|___|');

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

for i: integer:=1 to n do

{Чтение исходных данных}

f1:=sqr(tan(Pi*x/2)); { Вычисляется значение функции f1 (в радианах)}

{ Начинаем вычислять значение функции f2}

chisl:=(2*sqr(2*k1-1))-sqr(x); {Начальное значение числителя, строка не задействована}

f2_1:=0; {Начальное значение функции f2_1}

k1:=0; {Начальное значение к1}

repeat {Итерационный цикл для точности 10^-2}

inc(k1); {Увеличиваем к1 на единицу}

{составляем конструкцию цикла c постусловием для нахождения значения знаменателя}

t:=1;

m:=1;

R:=sqr(2*k1-1);

While m <= R do

t:=t*(sqr(sqr(m)-sqr(x)));

m:=m+2;

end;

chisl:=((2*sqr(2*k1-1))-sqr(x));{Наращивается степень}

slag:=sqr(x)*chisl/t; {Считается очередное слагаемое}

f2_1:=f2_1+slag; {Считается значение f2_1}

until abs(slag)<=eps1; {Выход из цикла, когда слагаемое становится меньше точности 10^-2}

f2_2:=f2_1;

k2:=k1;

repeat {Итерационный цикл для точности 10^-3}

inc(k2);

t:=1;

m:=1;

R:=sqr(2*k2-1);

While m <= R do

t:=t+(sqr(sqr(m)-sqr(x)));

m:=m+2;

end;

chisl:=sqr(x)*(((2*sqr(2*k2-1))-sqr(x))/t);

slag:=chisl/k2;

f2_2:=f2_2+slag;

until abs(slag)<=eps2;

f2_3:=f2_2;

k3:=k2;

repeat {Итерационный цикл для точности 10^-4}

inc(k3);

t:=1;

m:=1;

R:=sqr(2*k3-1);

While m <= R do

t:=t+(sqr(sqr(m)-sqr(x)));

m:=m+2;

end;

chisl:=sqr(x)*(((2*sqr(2*k3-1))-sqr(x))/t);

slag:=chisl/k3;

f2_3:=f2_3+slag;

until abs(slag)<=eps3;

{ Вывод результатов с отведенными позициями}

writeln('| ', x:5:2,' | ',f1:12:9,'| ',f2_1:5:2,'| ',

k1:2,'| ',f2_2:6:3,'| ',k2:2,'| ',f2_3:7:4,'| ', k3:2,'|');

x:=x+b;

end;

{ завершение таблицы}

write('-----------------------------------------------------------');

ReadKey

END.

Результаты работы программы:

_________________________________________________________

| | | e=0.01 | e=0.001 | e=0.0001 |

| x | f1(x) |----------|-----------|------------|

| | | f2(x)| N | f2(x) | N | f2(x) | N |

|_______|_____________|______|___|_______|___|________|___|

| -0.60 | 1.894427191| 1.44| 2| 1.441| 3| 1.4414| 4|

| -0.55 | 1.370888706| 1.06| 2| 1.055| 3| 1.0555| 4|

| -0.50 | 1.000000000| 0.78| 2| 0.778| 3| 0.7778| 4|

| -0.45 | 0.729453817| 0.57| 2| 0.572| 3| 0.5723| 4|

| -0.40 | 0.527864045| 0.42| 2| 0.417| 3| 0.4172| 4|

| -0.35 | 0.375524806| 0.30| 2| 0.299| 3| 0.2987| 4|

| -0.30 | 0.259616184| 0.21| 2| 0.208| 3| 0.2076| 4|

| -0.25 | 0.171572875| 0.14| 2| 0.138| 3| 0.1378| 4|

| -0.20 | 0.105572809| 0.09| 2| 0.085| 3| 0.0851| 4|

| -0.15 | 0.057637811| 0.05| 2| 0.047| 3| 0.0466| 4|

| -0.10 | 0.025085631| 0.02| 2| 0.020| 3| 0.0203| 4|

| -0.05 | 0.006193959| 0.01| 1| 0.005| 2| 0.0050| 3|

| 0.00 | 0.000000000| 0.00| 1| 0.000| 2| 0.0000| 3|

| 0.05 | 0.006193959| 0.01| 1| 0.005| 2| 0.0050| 3|

| 0.10 | 0.025085631| 0.02| 2| 0.020| 3| 0.0203| 4|

| 0.15 | 0.057637811| 0.05| 2| 0.047| 3| 0.0466| 4|

| 0.20 | 0.105572809| 0.09| 2| 0.085| 3| 0.0851| 4|

| 0.25 | 0.171572875| 0.14| 2| 0.138| 3| 0.1378| 4|

| 0.30 | 0.259616184| 0.21| 2| 0.208| 3| 0.2076| 4|

| 0.35 | 0.375524806| 0.30| 2| 0.299| 3| 0.2987| 4|

-----------------------------------------------------------

Детское праздничное агентство «Миаленд» радо представить вам предложения для проведения выпускных вечеров в детских садах и начальной школе.

Для создания программы на ваш праздник вы можете обратиться к списку услуг, представленных на нашем сайте www.mialand.ru и самостоятельно подобрать развлечения на любой вкус и бюджет, а также предлагаем ознакомиться со специально разработанными нами программами к выпускным 2016г.

1. Анимационная программа

Для выпускных 2017 года мы подготовили тематическую анимационную программу, которая представляет собой тематический интерактивный спектакль, разработанный специально для выпускных и имеет два типа сложности. Для выпускных в детских садах мы предлагаем игровую форму, для начальной школы – форму квеста с головоломками и загадками. Вместе с любимыми героями дети участвуют в увлекательной истории, где им предстоит пройти не мало испытаний. Вам останется только выбрать персонажей на ваш праздник.

Краткий сценарий: Главные герои приходят к детям с очень серьезной проблемой – из азбуки пропали буквы, но не все, а именно те, которые и составляют слово «Школа». Без них мы никогда не сможем попасть в школу, а значит останемся без знаний. Нам предстоят увлекательнейшие испытания для достижения цели. В финале все недостающие буквы будут найдены, а выпускники получат пропуск в школу.

Стоимость программы(1ч) с двумя персонажами 6000 руб

2. Музыкальное сопровождение программ.

К программе вы можете заказать музыкальное сопровождение, рассчитанное на коллектив до 40 человек и площадь до 250м2. В него входит: акустическая портативная система, оборудованная микрофонами и звукорежиссер, который контролирует музыкальное сопровождение программ и дискотек.

Стоимость 2000 руб/час.

В больших помещениях и количестве детей, мы предложим воспользоваться услугами профессионального диджея.

Стоимость от 3000 руб/час.

3. Дискотека.

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

Стоимость 2000 руб/30 минут.

4. Пакетные предложения для выпускных

Пакет «Хорошист»

Включено:

- анимационная программа с двумя аниматорами (персонажи на выбор), продолжительность 1 час;

- дискотека с аниматорами, продолжительность 30 минут;

- музыкальное сопровождение портативной акустической системой с микрофонами + работа звукорежиссера, продолжительность 1,5 часа;

- 30 воздушных шариков на палочке.

Общая продолжительность - 1,5 часа

Дата добавления: 2017-02-01; Просмотров: 43; Нарушение авторских прав?; Мы поможем в написании вашей работы!