Вычислить выражение

14.01.2013, 19:46. **Показов** 1033. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Ребят помогите решить 2 задачки в паскале очень надо ( от души

)

1 задачка . Введите некоторое малое число ерs>0, имеющих смысл погрешности вычисления (например. 0,001; 0,0005 и т.п.), и число х в пределах -0.9<х<0,95 и вычислите следующее выражение:
у=1-х^2/2 + х^3/3 - ... + (-1)х^n+1 /n + ... ;
Вычисления прекратите, когда очередное слагаемое станет по модулю меньше, чем ерs. Выведите х, у, ерs и количество использованных слагаемых.

2 задачка. Введите некоторое количество вещественных чисел и определите, образуют ли они возрастающую последовательность. Выведите соответствующее сообщение.

@CodeR · 15.01.2013, 08:13

Сообщение от pdnk

1 задачка

Pascal

Var e,x,y,a,p,zn,i:real;
Begin
    Repeat
     write('Введите -0.9<х<0,95 : ');
     readln(x);
    Until (-0.9<x)and(x<0.95);
    write('Введите eps: ');readln(e);
    y:=1;p:=x;zn:=-1;i:=1;
    While abs(a)<=e do
    Begin
      p:=p*x;
      a:=zn*p/i;
      i:=i+1;
      y:=y+a;
      zn:=zn*(-1);
    End;
    writeln('Y = ',y:0:2);
    readln;
End.

Добавлено через 3 минуты

Сообщение от pdnk

2 задачка

Pascal

Var a1,a2:real;
    f:boolean;
    n,i:byte;
Begin
    write('Кол-во чисел: ');readln(n);
    write('1 число = ');readln(a1);
    f:=true;
    For i:=2 to n do
    Begin
      a2:=a1;
      write(i,' число = ');readln(a1);
      if a2>a1 then f:=false;
    End;
    writeln(f);
    readln;
End.

15.01.2013, 21:17

огромное человеческое спасибо

pdnk
		1
	Вычислить выражение 14.01.2013, 19:46. Показов 1033. Ответов 2 Метки нет (Все метки) Ребят помогите решить 2 задачки в паскале очень надо ( от души) 1 задачка . Введите некоторое малое число ерs>0, имеющих смысл погрешности вычисления (например. 0,001; 0,0005 и т.п.), и число х в пределах -0.9<х<0,95 и вычислите следующее выражение: у=1-х^2/2 + х^3/3 - ... + (-1)х^n+1 /n + ... ; Вычисления прекратите, когда очередное слагаемое станет по модулю меньше, чем ерs. Выведите х, у, ерs и количество использованных слагаемых. 2 задачка. Введите некоторое количество вещественных чисел и определите, образуют ли они возрастающую последовательность. Выведите соответствующее сообщение.

pdnk
	15.01.2013, 21:17	3
	огромное человеческое спасибо

Вычислить выражение

Решение