Решение математических задач с помощью алгоритмического языка Turbo Pascal, Microsoft Excel, пакета MathCAD и разработка программ в среде Delphi (стр. 4 из 4)
Решение трансцендентных уравнений методом касательных
program kasatelnie;
uses crt;
label 20;
var a,b,E,U,D,x: real;
function f (x: real): real;
begin
f: =u*u*u-7*u-7;
end;
function f1 (x: real): real;
begin
f1: =3*x*x-10;
end;
function f2 (x: real): real;
begin
f2: =6*x;
end;
begin
writeln ('a,b,E=');
read (a,b,E);
if f (a) *f2 (a) >0 then
u: =a else u: =b;
20: D: =f (u) /f1 (u);
u: =u-d;
if ABS (d) >E then goto 20;
writeln ('u=',u: 7: 3);
readkey;
end.
Результаты работы программы
a=2 b=4 e=0.01 x=3.000
Блок-схема алгоритма решения задания №4.2
 |
Метод касательных:
Решение трансцендентных уравнений методом деления отрезка пополам
Program polovinoedelenie;
uses crt;
label 20,30,40;
var a,b,E,V,W,X,Z: real;
function f (x: real): real;
begin
f: =x*x*x-7*x-7;
end;
begin
writeln ('a,b,E=');
read (a,b,E);
V: =f (a);
W: =f (b);
20: x: = (a+b) /2;
z: =f (x);
if z=0 then goto 30;
if V*Z>=0 then
begin
a: =x;
v: =z;
end;
begin
b: =x;
W: =z;
end;
40: if (b-a) >E then goto 20;
x: = (a+b) /2;
30: writeln ('x=',x: 6: 3);
readkey;
end.
Результаты работы программы
a=2 b=4 e=0.01 u=3.049
Блок-схема алгоритма решения задания №4.1
Метод деления отрезка пополам:
 |
Задание 5. Организация нахождения минимума и максимума элемента в массиве случайных чисел в среде пакета MathCAD
Организовать нахождение MIN и MAX элемента в массиве случайных чисел К. Генерацию элементов массива осуществить с помощью встроенной функции RND (N); вычисления провести с помощью встроенных функций MIN (К) и MAX (К)
В Mathcad:
Необходимое нахождение значений в среде MathCAD можно провести с помощью встроенных функций.
Для решения этой задачи нужно: задать промежуток, в котором будут генерироваться случайные числа; воспользоваться функцией rnd; после того, как будут выбраны случайные числа, воспользуемся функцией нахождения минимального и максимального значений: min (x) и max (x).
Задание 6
Определить среднее арифметическое, среднее квадратическое отклонение рядов Ni и Ki, дисперсию и коэффициент корреляции. Ввод Ni и Ki -в виде векторов из 10 элементов, каждый из внешних файлов данных, подготовленных вручную или с помощью любой программы, позволяющей создавать файлы в формате ASCIT. Вычисление - с помощью встроенных функций: mean (N), mean (K), var (N), var (K),stdev (K), stdev (K), corr (N,K).
