Вариант 1

Задача 1.

Дано действительное число ? (?>0). Вычислить ?^?_к=1²/_k со степенью точности ? (считать, что требуемая степень точности достигнута, если вычислена сумма нескольких первых слагаемых и очередное слагаемое оказалось по модулю меньше, чем ? ,  - это и все последующие слагаемые можно уже не учитывать).

Решение.

Uses crt;

Var e, x, s:real;

k: integer;

begin

writeln(‘Введите точность’);

readln(e);

s:=0;

k:=1; x:=1/sqr(k);

while x> e do

begin

s:=s+ 1/sqr(k);

k:=k+1;  x:=1/sqr(k);

end;

writeln(‘Сума равна’,s:3:4);

end.

Задача 2.

Найти значение минимального положительного члена числовой последовательности, заданной следующими соотношениями: X_n = X_n-1+

X_n-2+100 ;  X₁= X₂= -99.

Решение.

Uses crt;

Var X₁, X₂,X_n :real;

Begin

X₁:=-99;

X₂:=-99;

X_n:=X₁+X₂+100;

While X_n<0 do

begin

X₁:=X₂;

X₂:=X_n;

X_n:=X₁+ X₂+100;

end;

Writeln(‘Положительный элемент’, X_n:3:4);

end.

Задача 3.

Вычислить значения функции y=2lnx – 3x² + 1 на отрезке  [a,b] с шагом h (a, h>0).

Решение.

Uses crt;

Var a, b, h:real;

y:real;

begin

Writeln(‘Введите отрезок ’);

Readln(a,b);

Writeln(‘Введите шаг’);

Readln (h);

While a

begin

y:=2*ln(x) – 3sqr(x) +1;

writeln(y:3:3);

a:=a+h;

end;

end.