Самостоятельная работа по информатике.Оператор цикла While

Вариант 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.

 

Написать комментарий

*

*

*
Защитный код
обновить