ЦИКЛИЧЕСКИЕ ВЫЧИСЛИТЕЛЬНЫЕ ПРОЦЕССЫ. Составить схему алгоритма и программу для вычисления значений функции y=f(x), где аргумент x изменяется от x0 до x1 с шагом

Задание 4

Составить схему алгоритма и программу для вычисления значений функции y=f(x), где аргумент x изменяется от x₀ до x₁ с шагом . Результаты вывести в виде таблицы значений x, y.

№

a= 1.5 ; b= 2.3 ;

x₀= 3.1 ; x₁= 5.3 ; x= 0.55 .

var

x,y:real;

begin

x:=2.55;

while x<5.3 do

begin

x:=x+0.55;

y:=(2.3+sqr(sin(2*1.5*x)))/(1.5+sqr(ln(x)));

writeln(y:11:10);

end;

readln;

end.

Задание 5

Составить схему алгоритма и программу решения задачи вычисления суммы ряда с точностью .

Определить значение аргумента x, величину суммы ряда , число членов ряда, необходимых при суммировании для достижения требуемой точности , достигнутую точность счета .

№

0,9

var k:Longint;

x,s:real;

begin

k:=0;

x:=0.9;

s:=0;

repeat

k:=k+1;

s:=s+arctan((abs(x)/k)/sqrt(1-sqr(abs(x)/k)))/sqrt(2*k*k*k+1);

until arctan((abs(x)/k)/sqrt(1-sqr(abs(x)/k)))/sqrt(2*k*k*k+1)<0.00001;

writeln(k,':',' S=',s:12:11);

readln;

end.

Задание 6

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

Результаты вывести в виде таблицы, в которую должны входить значения параметра t, соответствующее значение суммы ряда s(t), число членов ряда, необходимое для достижения требуемой точности , достигнутая точность счета.

Значения величин a, b, t₀, t₁, и вид h_k(t) следует взять из таблицы.

var k:longint;

s,t,h:real;

begin

t:=0.00;

while t<0.5 do

begin

k:=1;

repeat

h:=cos(2*k)*(0.1+0.3*t)/(k*k*k+1);

s:=s+h;

k:=k+1;

until abs(h)<0.00001;

writeln('T=',t:3:2,' S=',s:12:11,' K=',k-1);

t:=t+0.04;

end;

readln;

end.

Задание 7

Составить схему алгоритма и программу для вычисления по рекурентным формулам всех членов последовательности , удовлетворяющим условию

.

Вывести члены последовательности с их номерами .

Uses Crt;

Const e=0.001;

Var a,b0,b1,b2,bk:real;

k:integer;

BEGIN

clrscr;

b0:=-2; b1:=b0; k:=0;

Writeln('b(',k,')= ',b0:3:2);

b2:=ln(1+sqr(k)*k)/(exp(k*ln(2))+3);

a:=b2-b1;

While a>e do

begin

k:=k+1;

b2:=ln(1+sqr(k)*k)/(exp(k*ln(2))+3);

bk:=b2+b1;

a:=bk-b1;

b1:=bk;

Writeln('b(',k,')= ',bk:4:3);

end;

Readln;

END.