Вариант 1
Задача 1.
Дано действительное число ? (?>0). Вычислить ??к=12/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.
Найти значение минимального положительного члена числовой последовательности, заданной следующими соотношениями: Xn = Xn-1+
Xn-2+100 ; X1= X2= -99.
Решение.
Uses crt;
Var X1, X2,Xn :real;
Begin
X1:=-99;
X2:=-99;
Xn:=X1+X2+100;
While Xn<0 do
begin
X1:=X2;
X2:=Xn;
Xn:=X1+ X2+100;
end;
Writeln(‘Положительный элемент’, Xn:3:4);
end.
Задача 3.
Вычислить значения функции y=2lnx – 3x2 + 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.