Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Даны действительные числа 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”
Написать программу вычисления функции . Заполнить таблицу значений при с шагом .
Блок-схема
Программирование на языке 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”
На интервале значений (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)-м шаге формулы имеют вид:
.
Погрешность на каждом шаге вычислить по формулам:
.
На печать дополнительно вывести значения .
Вычислить интеграл методом прямоугольников с точностью 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”