. Программирование алгоритмов разветвляющейся структуры Даны действительные числа x y
Работа добавлена на сайт samzan.net:
- В MS Office зайти в сервис-макрос-безопасность и установить средний или уровень безопасности
- В MS Office зайти в сервис-макрос-редактор Visual Basic
- В MS VBA Insert-UserForm
Задача 1.
Программирование алгоритмов
разветвляющейся структуры
Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной области.
Блок-схема
Программирование на языке Visual Basic
Создаем форму следующего вида, с данными элементами управления
Свойство “Caption” объекта “Label1” изменяем на “x=”.
Свойство “Caption” объекта “Label2” изменяем на “y=”.
Свойство “Caption” объекта “Label3” изменяем на “ ”.
Свойство “Caption” объекта “CommandButton1” изменяем на “Вычислить”.
Тогда форма примет вид:
На нажатие объекта “CommandButton1” определим следующую процедуру:
Private Sub CommandButton1_Click()
x = Val(TextBox1.Text)
y = Val(TextBox2.Text)
If (x ^ 2 + y ^ 2 <= 1) And (x >= 0) Then
Label3.Caption = "Точка принадлежит заштрихованной области"
Else
Label3.Caption = "Точка не принадлежит заштрихованной области"
End If
End Sub
Запуск программы: “Run” – “Run”
Программирование на языке Borland C++
#include <iostream.h>
#include <math.h>
int main() {
float x;
float y;
cout << "Введите координаты x и y: ";
cin >>x>>y;
if ((x*x+y*y<=1) && (x>=0))
cout << "Точка лежит в заштрихованной области";
else
cout << "Точка не лежит в заштрихованной области";
cout << endl;
return 0;
}
Запуск программы: “Run” – “Run”
Программирование на языке Borland Delphi (консольный режим)
Program z1;
Var x,y:real;
Begin
Write(‘Введите координаты x и y : ’);
Readln(x,y);
If (x*x+y*y<=1) and (x>=0) then
Writeln(‘Точка лежит в заштрихованной области')
else
Writeln(‘Точка не лежит в заштрихованной области');
End.
Запуск программы: “Run” – “Run”
Задача 2.
Программирование алгоритмов
разветвляющейся структуры
Написать программу вычисления функции . Заполнить таблицу значений при с шагом .
Блок-схема
Программирование на языке Visual Basic
Создаем форму следующего вида, с данными элементами управления
Свойство “Caption” объекта “Label1” изменяем на “a=”.
Свойство “Caption” объекта “Label2” изменяем на “b=”.
Свойство “Caption” объекта “Label3” изменяем на “h=”.
Свойство “Caption” объекта “Label4” изменяем на “”.
Свойство “Caption” объекта “Label5” изменяем на “ ”.
Свойство “Caption” объекта “CommandButton1” изменяем на “Вычислить”.
Тогда форма примет вид:
На нажатие объекта “CommandButton1” определим следующую процедуру:
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
h = Val(TextBox3.Text)
Label4.Caption = ""
Label5.Caption = ""
For x = a To b Step h
If x < 3 Then
f = 2 * x ^ 3 - 7 * x ^ 2 + 5 * x + 3
Else
f = x + Log(Abs(Cos(2 * x) - 1))
End If
Label4.Caption = Label4.Caption & Round(x, 2) & Chr(13)
Label5.Caption = Label5.Caption & Round(f, 4) & Chr(13)
Next x
End Sub
Запуск программы: “Run” – “Run”
Программирование на языке Borland C++
#include <iostream.h>
#include <math.h>
int main() {
float a,b,h;
float x,f;
int i;
cout << "Введите числа a, b и h: ";
cin >>a>>b>>h;
cout << "x y";
cout << endl;
for (i=0; i<(b-a)/h; i++) {
x=a+i*h;
if (x<3)
f= 2*x*x*x-7*x*x+5*x+3;
else
f= x+Ln(fAbs(Cos(2*x)-1));
cout << x;
cout << " ";
cout << f;
cout << endl;
}
return 0;
}
Запуск программы: “Run” – “Run”
Программирование на языке Borland Delphi (консольный режим)
Program z2;
Var a,b,h,x,f:real;
Begin
Write(‘Введите числа a, b и h : ’);
Readln(a,b,h);
For i:=0 to trunc((b-a)/h) do
Begin
x=a+i*h;
if (x<3) then
f= 2*x*x*x-7*x*x+5*x+3
else
f= x+Ln(Abs(Cos(2*x)-1));
Writeln(‘x= ‘, x, ‘ f= ‘, f);
End;
End.
Запуск программы: “Run” – “Run”
Задача 3.
Программирование алгоритмов
с итерационными циклами
На интервале значений (0,1) найти с точностью ξ=10-5 корни уравнения
x2-0,5=0 методом деления отрезка пополам.
Описание метода
Уравнение представить в виде f(х)=0. За нулевое приближение корня уравнения принять x0=(a+b)/2. Если f(x0)=0, то x0 является корнем уравнения. Если f(x0)≠0, то проверить условия f(x0)×f(b)<0 и f(x0)×f(a)<0 и выбрать тот из отрезков [a, х0], [х0, b], на границах которого выполнено одно из этих условий (т.е. функция f(х) имеет противоположные знаки).
Выбранный отрезок вновь разделить пополам и вычислить значение x1.
Для х1 проверить условие f(х1)=0 и, если необходимо, f(х1)≠0 и т. д. Процесс деления отрезков пополам продолжить до тех пор, пока длина отрезка, на концах которого функция имеет противоположные знаки, не будет меньше . На печать дополнительно вывести значения f(xk) и |ak-bk|.
Блок-схема
Программирование на языке Visual Basic
Создаем форму следующего вида, с данными элементами управления
Свойство “Caption” объекта “Label1” изменяем на “a=”.
Свойство “Caption” объекта “Label2” изменяем на “b=”.
Свойство “Caption” объекта “Label3” изменяем на “eps=”.
Свойство “Caption” объекта “Label4” изменяем на “Корень =”.
Свойство “Caption” объекта “Label5” изменяем на “”.
Свойство “Caption” объекта “Label6” изменяем на “”.
Свойство “Caption” объекта “Label7” изменяем на “”.
Свойство “Caption” объекта “CommandButton1” изменяем на “Вычислить”.
Тогда форма примет вид:
На нажатие объекта “CommandButton1” определим следующую процедуру:
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
eps = Val(TextBox3.Text)
Do
c = (a + b) / 2
If (a ^ 2 - 0.5) * (c ^ 2 - 0.5) > 0 Then
a = c
Else
b = c
End If
Label6.Caption = Label6.Caption & c & Chr(13)
Label7.Caption = Label7.Caption & (a - b) & Chr(13)
Loop While Abs(a - b) > eps
Label5.Caption = c
End Sub
Запуск программы: “Run” – “Run”
Программирование на языке Borland C++
#include <iostream.h>
#include <math.h>
int main() {
float a, b, c;
float eps;
cout << "Введите числа a, b и eps: ";
cin >>a>>b>>eps;
do {
c=(a+b)/2;
if ((a*a-0.5)*(c*c-0.5)>0)
a=c;
else
b=c;
cout << (a+b)/2;
cout << endl;
} while (fabs(a-b) < eps);
cout << c;
cout << endl;
return 0;
}
Запуск программы: “Run” – “Run”
Программирование на языке Borland Delphi (консольный режим)
Program z3;
Var a,b,eps,x,f:real;
Begin
Write(‘Введите числа a, b и eps : ’);
Readln(a,b,eps);
repeat
c=(a+b)/2;
if (a*a-0.5)*(c*c-0.5)>0 then
a = c
else
b = c;
writeln(“ c = “,c,“ (a-b)= “,(a-b));
until abs(a-b)<=eps
writeln(“ Корень уравнения = “,c);
End.
Запуск программы: “Run” – “Run”
Другие методы решения уравнений
1. Метод простой итерации
Уравнение представить в виде x= φ(x). Принять, что корень уравнения в нулевом приближении x0 равен, например, x0=m. Первое приближение вычислить по формуле: x1= φ(x0), второе – x2= φ(x1), третье – x3= φ(x2)
и т.д.
2. Метод Ньютона (метод касательных)
Уравнение представить в виде f(х)=0. За корень уравнения в нулевом приближении x0 принять значение границы интервала задания x, для которой выполнено условие: f(x)×f’’(x)>0. Корень уравнения вычислить по формуле:
xk= xk-1 - f(xk-1) / f’(xk-1) .
3. Модифицированный метод Ньютона
Уравнение представить в виде f(х)=0. За корень уравнения в нулевом приближении x0 принять значение границы интервала задания x, для которой выполнено условие: f(x)×f’’(x)>0. Корень уравнения вычислить по формуле: xk= xk-1 - f(xk-1) / f’(x0). Здесь f’(x0) достаточно вычислить один раз. Метод применяется при трудностях в вычислении производных от функции.
4. Метод хорд
Уравнение представить в виде f(х)=0. Итерационная формула вычисления корня уравнения имеет вид:
5. Комбинированный метод
Уравнение представить в виде f(х)=0. За нулевое приближение корня уравнения по методу хорд принять x0=m, по методу Ньютона .
Итерационная формула метода хорд на первом шаге имеет вид:
.
Итерационная формула метода Ньютона на первом шаге имеет вид:
на втором шаге
На (k+1)-м шаге формулы имеют вид:
.
Погрешность на каждом шаге вычислить по формулам:
.
На печать дополнительно вывести значения .
Задача 4.
Программирование алгоритмов
с итерационными циклами,
содержащими вложенные арифметические циклы
Вычислить интеграл методом прямоугольников с точностью eps=0.00001.
Описание метода
Интеграл можно представить в следующем виде , где , , , . Процесс вычисления интеграла продолжить до тех пор, пока значение суммы на текущем шаге отличается по абсолютной величине от значения суммы на предыдущем шаге не будет меньше .. При этом, число разбиений на каждом шаге увеличивается в два раза.
Блок-схема
Программирование на языке Visual Basic
Создаем форму следующего вида, с данными элементами управления
Свойство “Caption” объекта “Label1” изменяем на “a=”.
Свойство “Caption” объекта “Label2” изменяем на “b=”.
Свойство “Caption” объекта “Label3” изменяем на “eps=”.
Свойство “Caption” объекта “Label4” изменяем на “Интеграл =”.
Свойство “Caption” объекта “Label5” изменяем на “”.
Свойство “Caption” объекта “Label6” изменяем на “”.
Свойство “Caption” объекта “Label7” изменяем на “”.
Свойство “Caption” объекта “CommandButton1” изменяем на “Вычислить”.
Тогда форма примет вид:
На нажатие объекта “CommandButton1” определим следующую процедуру:
Private Sub CommandButton1_Click()
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
eps = Val(TextBox3.Text)
n = 10
S2 = 0
Do
S1 = S2
S2 = 0
For x = a To b Step (b - a) / n
S2 = S2 + (b - a) / n * (x * x)
Next x
Label6.Caption = Label6.Caption & n & Chr(13)
Label7.Caption = Label7.Caption & S2 & Chr(13)
n = 2 * n
Loop While Abs(S2 - S1) > eps
Label5.Caption = S2
End Sub
Запуск программы: “Run” – “Run”
Программирование на языке Borland C++
#include <iostream.h>
#include <math.h>
int main() {
float a, b, c;
float eps;
cout << "Введите числа a, b и eps: ";
cin >>a>>b>>eps;
int n=10;
float S2=0;
float S1;
do {
S1=S2;
S2=0;
For (i = 1; i <= n; i++)
S2=S2+(b-a)/n*(a+i*(b-a)/n) *(a+i*(b-a)/n);
cout <<n<<S2;
cout << endl;
n:=2*n;
} while (fabs(S2-S1) < eps);
cout << S2;
cout << endl;
return 0;
}
Запуск программы: “Run” – “Run”
Программирование на языке Borland Delphi (консольный режим)
Program z4;
Var a,b,eps,x,f:real;
Begin
Write(‘Введите числа a, b и eps : ’);
Readln(a,b,eps);
n:=10;
S2:=0;
repeat
S1:=S2;
S2:=0;
For i:=1 to n do
S2:=S2+(b-a)/n*(a+i*(b-a)/n) *(a+i*(b-a)/n);
Writeln(’n= ’,n, ’ S2= ’,S2);
n:=2*n;
until abs(S1-S2)<=eps
writeln(‘ Интеграл = ‘,S2);
End.
Запуск программы: “Run” – “Run”
2. Статья- Рациональное и образное в учебном познании
3. Электроэнергетическое хозяйство РФ
4. Credoru-site-ctlibid455 Версия для печати
5. Введение [2] Общая характеристика металлургического комплекса России [3] Территориальная органи
6. Выборы Президента Российской Федерации- история и современность.html
7. Кто хозяин Большой черный бродячий пес отзывался на кличку Жук
8. Уголовный процесс
9. На тему- Духовный мир брака Выполнил- Группа- Проверил-
10. І ЗАГАЛЬНА ТЕРМІНОЛОГІЯ bsis основа medilis ближчий до середини lterlis ~ боковий externus ~ зовнішній internus в
11. 3Материальный и тепловой баланс установки
12. задание Д 6Особенности чертежа проецирующих прямых
13. КРИСТАЛЛ [4
14. Острая ревматическая лихорадка (ОРЛ)
15. Юліуш Словацький в оцінці Івана Франка
16. Лекція 16 Методи вилучення знань з навчених нейронних мереж
17. Песенно-поэтическое творчество иеромонаха Романа Матюшина духовное содержание и образный строй
18. Рождаемость и брачность
19. практикуму по разделу ХИМИЧЕСКОЕ РАВНОВЕСИЕ дисциплин Физическая химия и Физическая и коллоидная х
20. ТЕМА- Ремонт та технічне обслуговування материнських плат та центральних процесорів