ПОЛЕЗНОЕ

Как развить коммуникабельность Почему могут возникнуть ссоры между супругами, в то время как их отношения кажутся прочными Почему появляется страх? Как стать богатым и отойти от дел молодым Советы от доктора Айболита «Как быть здоровым» Как сделать приглашение правильно Точка зрения. Как сделать сотрудника вовлеченным? Лень и как с ней бороться. Психологические аспекты Способов заработать с помощью internet Лекции по Основам предпринимательства Последнее добавление

КАТЕГОРИИ

Пример 4.6.2-5. Написать процедуру-Sub, вычисляющую сумму всех чисел Фибоначчи, которые не превосходят заданного натурального числа m, и определить количество таких чисел.

⇐ ПредыдущаяСтр 3 из 3

Числа Фибоначчи (F_i) определяются по формулам

F₀= F₁= 1; F_i = F_{i –1} + F_{i –2,} при i = 2, 3,...,…

т.е. каждое очередное число равно сумме двух предыдущих.

Подобная задача была решена при рассмотрении регулярных циклических структур (пример 5.2-4). Однако здесь число слагаемых (членов последовательности) заранее неизвестно, поэтому организуем итеративный цикл с предусловием. Обозначим это число слагаемых k. В данном примере до начала цикла задаются значения трех чисел Фибоначчи F₀, F₁, и F₂= F₀+ F₁= 2 и их сумма S = F₀+ F₁+ F₂= 4. В цикле переопределяем значение переменных F ₀ и F₁, выводим очередное (предыдущее) число Фибоначчи, вычисляем следующее число и добавляем его в сумму. Когда текущее число Фибоначчи превосходит заданное число m (F₂≤ m – False), то происходит выход из цикла. Так как это число Фибоначчи уже добавлено в сумму, то после выхода из цикла его необходимо вычесть из нее (S = S - F₂). Таким образом, в окончательном значении суммы будут учтены только те числа Фибоначчи, которые еще не превосходят m.

Sub P6212(ByVal m As Integer, _ ByRef S As Long, ByRef k As Integer) Dim F, F1, F2 As Integer F0 = 1: F1 = 1: F2 = 2 S = F0 + F1 + F2: k = 3 Do While F2 <= m F0 = F1: F1 = F2 vivodIntLs12(F1, ListBox1) F2 = F0 + F1 S = S + F2 K = k + 1 Loop S = S – F2 k = k - 1 End Sub

Рис. 4.6.2-12. Схема алгоритма и программный код процедуры Pr6212(),

которая вычисляет сумму чисел Фибоначчи,
не превосходящих заданного натурального числа m

Примера 4.6.2-5

Схема алгоритма и код процедуры- Sub приведены на рис. 4.6.2-12.

Процедура- Sub Pr6212() может быть вызвана из любой другой процедуры или из модуля формы, например, как показано на рис. 4.6.2-13.

Dim SS As Long Dim mm, kk As Integer mm=vvodInt9("Введите значение mm= ", TextBox1) Pr6212(mm, SS, kk) vivodFxn14(SS, kk, TextBox2)

Рис. 4.6.2-13. Пример обращения к процедуре Pr6212()

Примера 4.6.2-5

Пример 4.6.2-6. Написать процедуру-Function, которая вычисляет с точностью e=0.001 сумму членов ряда

Задана знакопеременная убывающая последовательность, поэтому для вычисления суммы ряда с точностью e будем вычислять и суммировать члены последовательности до тех пор, пока очередной член ряда не станет меньше заданной точности по модулю.

Заданный ряд вычислять через рекуррентную формулу нецелесообразно, так как это, во-первых, трудно, а во-вторых, скорее всего, невозможно вывести общую формулу n -гол члена ряда. Поэтому можно воспользоваться следующим универсальным приемом вычисления подобных рядов. Каждый член последовательности можно представить, как где z – множитель, равный 1 или -1 (знак члена ряда); n – первый сомножитель в числителе каждого слагаемого (в данном случае совпадает с номером члена ряда); b – второй сомножитель в числителе; с – знаменатель каждого слагаемого.

В свою очередь, знаменатель члена ряда представляет собой произведение нескольких сомножителей, причем с увеличением номера члена ряда увеличивается и количество сомножителей в знаменателе. Таким образом, знаменатель можно представить, как с = с * d, где d – сомножитель, добавленный к значению знаменателя предыдущего члена ряда.

Схема алгоритма и код процедуры-функции приведены на
рис. 4.6.2-14.

Function Pr6214(ByVal E As Double) _ As Double Dim a, s As Double Dim n, z, b, c, d As Integer n = 1 z = 1 b = 5 c = 2 * 4 d = 4 a = z * n^ 2 * b / c s = 0 Do While Abs(a) > E vivodIntLs12(n, ListBox1) vivodDblLs13(a, ListBox2) s = s + a n = n + 1 z = -z b = b + 1 d = d + 2 c = c * d a = z * n^ 2 * b / c Loop Return s End Function

Рис. 4.6.2-14. Схема алгоритма и программный код процедуры Pr6214(),

которая вычисляет с точностью e=0.001 сумму членов заданного ряда

Примера 4.6.2-6

Процедура-Function Pr6214() может быть вызвана из любой другой процедуры или из модуля формы, например, как показано на рис. 4.6.2-15.

Dim EE, SS As Double EE =vvodDbl1(TextBox1) SS = Pr6214(EE) vivodDbl1(SS, TextBox2)

Рис. 4.6.2-15. Пример обращения к процедуре Pr6214()

Примера 4.6.2-6

4.6.3. Тестовые задания

1. Оператор Dо…Lооp – это: 1) оператор итеративного цикла;2) оператор выбора3) оператор регулярного цикла4) составной оператор. 2. В итеративной циклической структуре число повторений операторов тела цикла 1) может быть известно заранее2) заранее неизвестно3) заранее известно или может быть предварительно вычислено4) нет верного ответа 3. Телом цикла в операторе Do…Loop могут быть 1) только оператор условного перехода или оператор присваивания2) только арифметические или логические выражения3) любые операторы4) нет верного ответа 4. Для досрочного прекращения итеративного цикла используется оператор 1) Exit Do 2) Exit 3) Break 4) нет верного ответа 5. Алгоритмическая структура цикла итеративного типа может быть 1) с предусловием или с постусловием2) только с предусловием3) только с постусловием4) безусловная 6. Если при программировании циклической структуры используется операторDo while…Loop, то тело цикла 1) обязательно выполнится хотя бы 1 раз2) выполняется заданное число раз3) оператор не относится к средствам программирования итеративного цикла4) может ни разу не выполниться 7. Если при программировании циклической структуры используется оператор
Do…Loop While, то тело цикла 1) обязательно выполнится хотя бы 1 раз2) может ни разу не выполниться3) выполняется заданное число раз4) оператор не относится к средствам программирования итеративного цикла 8. Если при программировании циклической структуры используется оператор Do…Loop Until, то тело цикла 1) обязательно выполнится хотя бы 1 раз2) может ни разу не выполниться3) выполняется заданное число раз4) оператор не относится к средствам программирования итеративного цикла
9. После ключевых слов While или Until в операторе итеративного цикла Do…Loop записывается 1) арифметическое или логическое выражение2) оператор выбора3) любой оператор4) нет верного ответа 10. Результатом работы фрагмента программы

Dim n As Integer n = 0 Do While n < 5 n = n + 1 Loop TextBox1.Text = CStr(n)

будет1) вывод на экран 62) вывод на экран 03) вывод на экран 54) сообщения об ошибке5) «зацикливание» 11. Что будет на экране в результате работы фрагмента программы

Dim n As Integer n = 0 Do Until n < 5 n = n + 1 Loop TextBox1.Text = CStr(n)

1) 62) 53) сообщение об ошибке4) «зацикливание»5) 0 12. Что будет выведено на форму после выполнения заданного фрагмента программы

i = 1 DO i = i + 2 TextBox1.Text = CStr(i) & vbCrLf LOOP WHILE i < 7

1) столбик чисел от 1 до 72) строка чисел от 1 до 73) столбик чисел от 3 до 74) строка чисел от 3 до 7 13. При каких начальных значениях переменных алгоритм закончит работу без зацикливания

1) А=-2 С=-32) А=-3 С=-23) А=-3 С=-34) А=-2 С=-15) А=-4 С=-3 14. Цикл с предусловием выполняется следующим образом 1) выполняется тело цикла, изменяется параметр цикла, проверяется условие продолжения цикла2) изменяется параметр цикла, проверяется условие продолжения выполнения цикла, 3) выполняется тело цикла4) проверяется условие продолжения выполнения цикла, выполняется тело цикла 5) тело цикла выполняется n раз (n – натуральное)6) определяется, сколько раз должен выполнен цикл, и далее цикл с предусловием7) сводится к циклу с параметром 15. При каких начальных значениях переменных алгоритм закончит работу без зацикливания

1) А=-2 С=-12) А=-2 С=-33) А=-3 С=34) А=-3 С=-2
16. Определить выходные значения переменных А и С после выполнения алгоритма

1) 1 72) 0 -43) 1 34) 0 -55) зацикливание

4.6.4. Лабораторная работа по теме
«Программирование алгоритмов итеративных
циклических структур»

Цель данной лабораторной работы состоит в получении практических навыков формализации, разработки, написания и отладки проектов, использующих итеративные циклические структуры.

Вопросы, подлежащие изучению

1) Алгоритмы организации итеративных циклических структур: цикл с предусловием; цикл с постусловием.

2) Базовые алгоритмы, использующие итеративные циклические структуры: алгоритм вычисления суммы (или произведения) членов бесконечной последовательности; алгоритмы вычислений по итеративным формулам.

3) Операторы, реализующие выполнение итеративных циклов: Do While…Loop; Do Until…Loop; Do...Loop While…; Do…Loop…Until.

4.6.4.2. Общее задание на разработку проекта

1) Изучите вопросы программирование алгоритмов итеративных
циклических структур (Тема 6).

2) Создайте приложение с именем Проект-4.6.

3) Выберите вариант задания из таблицы табл. 4.6.4-1.

4) Проведите формализацию поставленной задачи.

5) Разработайте графический интерфейс пользователя. Предусмотрите отображение на форме номера итерации и значения вычисляемого члена бесконечной последовательности или корня уравнения.

6) Разработайте схемы алгоритмов решения поставленной задачи.

7) Напишите программный код процедур пользователя в соответствии со схемами алгоритмов. Обмен данными между процедурами должен осуществляться через параметры, без использования глобальных переменных. Событийная процедура должна содержать только операторы вызова пользовательских (общих) процедур.

8) Выполните созданный проект.

9) полученных результатов на заранее разработанных тестах.

Варианты индивидуальных заданий

Таблица 4.6.4-1

№	Задача
1)	Вычислите с точностью ε = 0.00001 константу Эйлера (основание натурального логарифма), воспользовавшись разложением в ряд: Сравните результат со значением, полученным с помощью соответствующей встроенной функции.
2)	Вычислите и выведите те члены последовательности , значения, которых больше ε = 0.001при x = 0.2
3)	Вычислите с точностью ε = 0.00001 значение функции при x = 2, воспользовавшись рекуррентной формулой: Сравните результат со значением, полученным с помощью соответствующей встроенной функции.
4)	Вычислите и выведите те члены последовательности, значения которых больше ε = 0.01, при x = 0.6
5)	Вычислите константу с точностью до ε = 0.00001, воспользовавшись разложением в ряд: и соотношением Сравните результат со значением, полученным с помощью соответствующей встроенной функции.
6)	Вычислите с точностью ε = 0.00001 значение функции при x = 2, воспользовавшись формулой: Сравните результат со значением, полученным с помощью соответствующей встроенной функции
7)	Вычислите sin 0.5с точностью ε = 0.0001, воспользовавшись разложением в ряд: Сравните результат со значением, полученным с помощью соответствующей встроенной функции.
8)	Вычислитьс точностью ε = 0.00001, воспользовавшись разложением в ряд: Сравнить результат со значением, полученным с помощью соответствующей встроенной функции.
9)	Вычислите cos(0.6) с точностью ε = 0.00001, воспользовавшись разложением в ряд: Сравните результат со значением, полученным с помощью соответствующей встроенной функции.
10)	Вычислите с точностью ε = 0.0001 корень уравнения воспользовавшись формулой: Проверьте правильность решения подстановкой найденного корня в уравнение.
11)	Вычислите и выведите те члены последовательности, значения, которых по модулю больше ε = 0.001 при x = 0.5.
12)	Вычислить при \|x\|<1 с точностью до ε = 0.0001, воспользовавшись разложением в ряд: Сравнить результат со значением, полученным с помощью соответствующей встроенной функции.
13)	Вычислите корень уравнения с точностью ε=0.0001, воспользовавшись итерационной формулой Проверьте правильность решения подстановкой найденного корня в уравнение.
14)	Вычислите значение с точностью ε = 0.00001, воспользовавшись представлением в виде цепной дроби: Значение дроби равно пределу числовой последовательности, члены которой вычисляются по рекуррентной формуле до достижения заданной точности . Сравните результат со значением, полученным с помощью соответствующей встроенной функции.
15)	Вычислите и выведите те члены последовательности, значения, которых по модулю больше ε = 0.001 при x = 0.3.
16)	Вычислитьln(x) с точностью ε = 0.0001, воспользовавшись разложением в ряд: Сравнить результат со значением, полученным с помощью соответствующей встроенной функции при x=1.5.
17)	Вычислите sh(0.3) с точностью до ε= 0.00005, воспользовавшись разложением в ряд: Сравните результат со значением, полученным с помощью встроенной функции для вычисления e^x, используя соотношение:
18)	Вычислите корень уравнения x-0.5(sinx²-1)=0 с точностью ε = 0.001, воспользовавшись итерационной формулой: Проверьте правильность решения подстановкой найденного корня в уравнение.
19)	Вычислите ln(2) с точностью ε = 0.001, воспользовавшись представлением в виде ряда: Сравните результат со значением, полученным с помощью встроенной функции.
20)	Вычислите с точностью ε = 0.00001 корень уравнения воспользовавшись итерационной формулой Проверьте правильность решения подстановкой найденного корня в уравнение.
21)	Вычислите ch 0.7 с точностью до ε = 0.00005, воспользовавшись разложением в ряд: Сравните результат со значением, полученным с помощью встроенной функции , используя соотношение:
22)	Пусть Дано действительное число e>0. Найдите первый член , для которого выполнено условие .
23)	Вычислить при \|x\|>1 с точностью до ε = 0.0001, воспользовавшись разложением в ряд: Сравнить результат со значением, полученным с помощью соответствующей встроенной функции.
24)	Вычислитьln(x+1) с точностью ε = 0.0001, воспользовавшись разложением в ряд: Сравнить результат со значением, полученным с помощью соответствующей встроенной функции при x=0.5.
25)	Дано действительное число b<0. Последовательность а₁, а₂, …образована по следующему закону: a₁=b; a_k=(a_k-1+1)/(1-sin²k), k=2, 3, …. Найдите первый неотрицательный член последовательности.
26)	Дано действительное число x. Вычислите приближенное значение бесконечной суммы с точностью ε=0,00001: (x-1)/x+(x-1)²/(2x²)+(x-1)³/(3x³)+… (x>1/2)
27)	Дано действительное x. Вычислить приближенное значение 1/x+1/(3x³)+1/(5x⁵)+… (x>1) бесконечной суммы с точностью ε=0.0001.
28)	Вычислите приближенное значение бесконечной суммы с точностью ε=0,0001 (справа от суммы дается ее точное значение, с которым можно сравнить полученный результат): 1+1/2²+1/3²+… p²/6
29)	Вычислите приближенное значение бесконечной суммы с точностью ε=0,0001 (справа от суммы дается ее точное значение, с которым можно сравнить полученный результат): 1-1/3+1/5-1/7+… p/4
30)	Вычислите приближенное значение бесконечной суммы с точностью ε=0,0001 (справа от суммы дается ее точное значение, с которым можно сравнить полученный результат): 1/(13)+1/(24)+1/(3*5)+… 3/4

Содержание отчёта

1) Тема и название лабораторной работы.

2) Фамилия, имя студента, номер группы, номер варианта.

3) Задание на разработку проекта.

4) Формализация и уточнение задания.

5) Элементы, разрабатываемого проекта:

5.1) графический интерфейс пользователя;

5.2) таблица свойств объектов;

5.3) схемы алгоритмов процедур проекта;

5.4) программный код проекта.

6) Результаты выполнения проектов.

7) Доказательство правильности работы проекта.

4.6.4.5. Первый пример выполнения задания

1) Тема и название лабораторной работы:

Программирование алгоритмов итеративных циклических структур.

Вычисление с заданной точностью корня заданного уравнения.

2) Фамилия, имя студента, номер группы, номер варианта:

Иванов И., БИН1405, вариант 13.

3) Задание на разработку проекта:

Создайте проект с именем Проект-6-1 для вычисления с точностью
ε=10^-5 корня уравнения f(x)=x³- 2x²+x - 3=0, воспользовавшись

формулой

4) Формализация и уточнение задания:

Проверьте правильность решения подстановкой найденного корня в уравнение. Разработайте схему алгоритма и напишите программный код проекта в соответствии с заданием.

Вычислите производную f’(x)=3x²-4x+1 и обозначьте:

· x – текущее приближение к корню;

· a – предыдущее приближение;

· f – значение функции f(x) для предыдущего значения;

· p – значение производной f'(x) для предыдущего значения;

· i – номер итерации, совпадающий с номером текущего приближения к корню;

· y – значение функции f(x) для найденного с заданной точностью корня.

Будем считать, что заданная точность ε обеспечена, если модуль разности между текущим и предыдущим значениями корня меньше точности ε, то есть для нашего случая |x-a| < ε.

Для решения поставленной задачи необходимо реализовать процедуру
Kop(), которая в качестве входных параметров получает начальное значение x0=2.2 и точность ε=10^-5, и возвращает найденный корень xl. Процедура для вычисления корня по заданной формуле должна использовать две процедуры Function: одна – Funy(), вычисляет значение f(x), а другая – Fproiz() – значение производной этой функции ’(x). Заметим, что процедуру Kop() можно было оформить как Function, так как она возвращает только одно значение – вычисленный корень уравнения.

5) Элементы, разрабатываемого проекта:

5.1) Графический интерфейс пользователя:

Разработанная форма проекта имеет вид, как на рис. 4.6.4-1.

Рис. 4.6.4-1. Форма проекта 1-го задания Проект 6-1:
Вычисление с заданной точностью корня уравнения x³-2x²+x-3=0

5.2) Таблица свойств объектов:

установите и сведите в табл. 4.6.4-2 свойства объектов.

Таблица 4.6.4-2

Имя объектов	Свойство	Значение свойства
Form1	Text	Проект 4.6.1. Программирование алгоритмов итеративных циклических структур
Label1	Name	Label1
Text	Вычисление корня уравнения f(x)=x^3-2x^2+x-3=0
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 10 пунктов
Label2	Name	Label2
Text	E=
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
Label3	Name	Label3
Text	X0=
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
Label4	Name	Label4
Text	Итерация
ForeColor	Черный
Font	Microsoft Sans Serif, Обычный, 8 пунктов
Label5	Name	Label5
Text	Приближенный корень
ForeColor	Черный
Font	Microsoft Sans Serif, Обычный, 8 пунктов
Label6	Name	Label6
Text	Решение x= y=
ForeColor	Черный
Font	Arial, Жирный, 12 пунктов
TextBox1	Name	TextBox1
ForeColor	Черный
Font	Microsoft Sans Serif, Обычный, 8 пунктов
TextBox2	Name	TextBox2
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
TextBox3	Name	TextBox3
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
TextBox4	Name	TextBox4
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
ListBox1	Name	ListBox1
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
ListBox2	Name	ListBox2
ForeColor	Черный
Font	Microsoft Sans Serif, Жирный, 8 пунктов
Button1	Name	Button1
Text	Выполнить
Button2	Name	Button2
Text	Конец

5.3) Схемы алгоритмов процедур проекта:

схема алгоритма процедуры Kop() представлена на рис. 4.6.4-2.

Рис. 4.6.4-2. Схема алгоритма процедуры Kop(x) проекта Проект 6-1: Вычисление с заданной точностью корня уравнения x³-2x²+x-3=0

5.4) Программный код проекта:

разработанный программный код проекта приведен на
рис. 4.6.4-3.

Imports System.Math Public Class Form1 'Функция ввода исходных данных из TextBox Function vvod(ByVal T As TextBox) As Double Return Val(T.Text) End Function 'Процедура вывода вещественного результата в TextBox Sub vivod(ByVal Z As Double, ByVal T As TextBox) T.Text = CStr(Z) End Sub 'Процедура вывода вещественного результата в ListBox Sub vivodList(ByVal Z As Double, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub ' Процедура вывода целого результата в ListBox Sub vivodListint(ByVal Z As Integer, ByVal LB As ListBox) LB.Items.Add(CStr(Z)) End Sub 'процедура-Function, вычисляющая производную Public Function FProiz(ByVal x As Double) As Double Dim p As Double p = 3 * x ^ 3 - 4 * x + 1 Return p End Function 'процедура-Function, вычисляющая заданную функцию Public Function Funy(ByVal x As Double) As Double Dim f As Double f = x ^ 3 - 2 * x ^ 2 + x - 3 Return f End Function ' Процедура решения задачи поиска корня Public Sub Kop(ByVal E As Double, ByVal x0 As Double, _ ByRef xe As Double) Dim x, a As Double Dim i As Integer i = 0 x = x0 Do a = x x = a - Funy(a) / FProiz(a) i = i + 1 vivodListint(i, ListBox1) vivodList(x, ListBox2) Loop Until Abs(x - a) < E xe = x End Sub Private Sub Button1_Click(sender As Object,e As EventArgs)_ Handles Button1.Click Dim EE, x0x0, xn, y As Double EE = vvod(TextBox1): x0x0 = vvod(TextBox2) Kop(EE, x0x0, xn) vivod(xn, TextBox3) y = Funy(xn) vivod(y, TextBox4) End Sub Private Sub Button2_Click(sender As Object,e As EventArgs)_ Handles Button2.Click End End Sub End Class

Рис. 4.6.4-3. Программный код проекта Проект 6-1:

Вычисление с заданной точностью корня уравнения x³-2x²+x-3=0

6) Результаты выполнения проектов:

Результаты выполнения проекта приведены на рис. 4.6.4-4.

Рис. 4.6.4-4. Результаты выполнения проекта Проект 6-1:

Вычисление с заданной точностью корня уравнения x³-2x²+x-3=0

7) Доказательство правильности работы программы:

Значение функции при подстановке корня в уравнение
f(x) = 0.00012315320113. Это говорит о том, что значение функции f(2.17457839205816) = 0.00012315320113 близко к нулю.

4.6.4.6. Второй пример выполнения задания

1) Тема и название лабораторной работы:

Программирование алгоритмов итеративных циклических структур.

Вычисление членов заданной последовательности, значения которых по

модулю больше заданного числа.

2) Фамилия, имя студента, номер группы, номер варианта:

Иванов И., БИН1405, вариант 13.

3) Задание на разработку проекта:

Вычислить и вывести на экран те члены последовательности

,

значения, которых по модулю больше e=0.0001, при x=1.5.

4) Формализация и уточнение задания:

Для решения поставленной задачи необходимо вывести рекуррентную формулу вычисления члена последовательности. Очевидно, что выражение для n-го члена заданной последовательности имеет вид:

.

Тогда формула для (n+1) члена последовательности имеет вид:

Имея в виду, что (n+1)!=n! ∙ (n+1), получим

Откуда получаем следующую рекуррентную формулу

- начальный член последовательности при n=1.

5) Элементы, разрабатываемого проекта:

5.1) Графический интерфейс пользователя:

Разработанная форма проекта имеет вид, как на рис. 4.6.4-5.

Рис. 4.6.4-5. Форма проекта 2-го задания Проект 6-2:

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

5.2) Таблица свойств объектов:

Определите, установите и сведите в табл. П.1.6-3 свойства всех

объектов.

Таблица4.6.4-3

Имя объекта Свойство Значение свойства

Form1 Text Проект 4.6.2. Пример 2.

Label1 Name Label1

Text E=

ForeColor Синий

Font Microsoft Sans Serif, Жирный, 8 пунктов

Label2 Name Label2

Text X=

ForeColor Черный

Font Microsoft Sans Serif, Жирный, 8 пунктов

Label3 Name Label3

Text Задание:

ForeColor Красный

Font Microsoft Sans Serif, Жирный, 10 пунктов

Label4 Name Label4

Text Вычислить все члены, заданной последовательности, значения которых по модулю больше 0.0001

ForeColor Черный

Font Microsoft Sans Serif, Жирный, 8 пунктов

TextBox1 Name TextBox1

ForeColor Черный

Font Microsoft Sans Serif, Жирный, 10 пунктов

TextBox2 Name TextBox2

ForeColor Черный

Font Microsoft Sans Serif, Жирный, 8 пунктов

ListBox1 Name ListBox1

ForeColor Черный

Font Microsoft Sans Serif, Жирный, 8 пунктов

ListBox2 Name ListBox2

ForeColor Черный

Font Microsoft Sans Serif, Жирный, 8 пунктов

Button2 Name Button2

Text Вычислить значения

Button1 Name Button1

Text Стоп

⇐ Предыдущая 1 23

Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все...

ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала...

Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...

ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...

Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте: