close

Вход

Забыли?

вход по аккаунту

?

Защита

код для вставкиСкачать
Лабораторная работа № 4 Вариант 23.
Выполнил: Андреев Евгений
Проверил: Шилин А.С.
Составить блок-схемы алгоритма и программы на языках Бейсик и Паскаль для определения положительного корня R уравнения f(x)=0 с точностью Е и вычисления числа и суммы S (произведения Р) всех членов ряда больших заданного числа . Выполнить задание двумя способами, используя циклы различной структуры.
23.
{Программа вычисления выражения.
Е - точность определения корня, d - заданное число, X1, x2, x3 - координаты, a, b - интервал, S - сумма, z - вспомогательная функция,
R, n - переменные}
program labrab4_1;
const
E=0.5*1e-3;
d=5*1e-5;
var
x1,x2,x3,R,a,b,cn,z,S:real;
n:integer;
begin
x1:=2;
x2:=6;
repeat
x3:=(x1+x2)/2;
a:=10/(x1+1)-2*ln(x1);
b:=10/(x3+1)-2*ln(x3);
if a*b<=0 then x2:=x3 else x1:=x3
until x2-x1<=E;
R:=x1;
write(' R = ',R, ' a =',a);
S:=0;
n:=0;
z:=R;
if z>d then
begin
repeat
S:=S+z;
n:=n+1;
cn:=exp((R-3)*ln((n+1)/n))*(R/(2*n*(2*n+1)));
z:=z*cn
until z<=d;
write(' S = ',S, ' n = ', n-1)
end
else writeln(' Нет членов ряда > d');
readln
end.
Окно вывода:
R = 3.246094
A = 2.01095E-04
S = 5.734904
N = 4
REM Программа вычисления выражения.
REM Е - точность определения корня. REM d - заданное число.
REM X1, x2, x3 - координаты. REM a, b - интервал.
REM S - сумма. REM z - вспомогательная функция.
REM R, n - переменные.
E = .0005
d = .00005
DEFSNG A-Z
DEFINT N
CLS
x1 = 2
x2 = 6
DO
x3 = (x1 + x2) / 2
a = 10 / (x1 + 1) - 2 * LOG(x1)
b = 10 / (x3 + 1) - 2 * LOG(x3)
IF a * b <= 0 THEN x2 = x3 ELSE x1 = x3
LOOP UNTIL x2 - x1 <= E
R = x1
PRINT "R ="; R
PRINT "a ="; a
S = 0
n = 0
z = R
IF z > d THEN
DO
S = S + z
n = n + 1
cn = ((n + 1) / n) ^ (R - 3) * (R / (2 * n * (2 * n + 1)))
z = z * cn
LOOP UNTIL z <= d
PRINT "S ="; S
PRINT "n ="; n - 1
ELSE
PRINT ("Нет членов ряда > d")
END IF
END
Окно вывода:
R = 3.246094
A = 2.01095E-04
S = 5.734904
N = 4
{Программа вычисления выражения.
Е - точность определения корня, d - заданное число, X1, x2, x3 - координаты, a, b - интервал, S - сумма, z - вспомогательная функция,
R, n - переменные}
program labrab4_2;
const
E=0.5*1e-3;
d=5*1e-5;
var
R,S,z,cn,x2,x1,x3,a,b:real;
n:integer;
begin
x1:=2;
x2:=6;
while x2-x1>E do
begin
x3:=(x1+x2)/2;
a:=10/(x1+1)-2*ln(x1);
b:=10/(x3+1)-2*ln(x3);
if a*b<=0 then x2:=x3 else x1:=x3;
end;
R:=x1;
write(' R=',R,' a=',a);
S:=0;
n:=0;
z:=R;
while z>d do
begin
S:=S+z;
n:=n+1;
cn:=exp((R-3)*ln((n+1)/n))*(R/(2*n*(2*n+1)));
z:=z*cn;
end;
if n>0 then writeln(' S = ',S, ' n = ', n-1) else writeln(' Нет членов ряда > d');
readln
end.
Окно вывода: R = 3.246094
A = 2.01095E-04
S = 5.734904 n = 4
REM Программа вычисления выражения.
REM Е - точность определения корня. REM d - заданное число.
REM X1, x2, x3 - координаты. REM a, b - интервал.
REM S - сумма. REM z - вспомогательная функция.
REM R, n - переменные.
E = .0005
d = .00005
DEFSNG A-Z
DEFINT N
CLS
x1 = 2
x2 = 6
DO WHILE x2 - x1 > E
x3 = (x1 + x2) / 2
a = 10 / (x1 + 1) - 2 * LOG(x1)
b = 10 / (x3 + 1) - 2 * LOG(x3)
IF a * b <= 0 THEN x2 = x3 ELSE x1 = x3
LOOP
R = x1
PRINT "R ="; R
PRINT "a ="; a
S = 0
n = 0
z = R
DO WHILE z > d
S = S + z
n = n + 1
cn = ((n + 1) / n) ^ (R - 3) * R / (2 * n * (2 * n + 1))
z = z * cn
LOOP
IF n > 0 THEN PRINT "S = "; S; "n="; n - 1 ELSE PRINT " Нет членов ряда > d"
END
Окно вывода:
R = 3.246094
A = 2.01095E-04
S = 5.734904 n = 4
Документ
Категория
Рефераты
Просмотров
49
Размер файла
20 Кб
Теги
защита
1/--страниц
Пожаловаться на содержимое документа