Pascal(вычисление последовательности)

[Poopy]

Составить программу для вычисления элементов
a(n последовательности) =1/n до тех пор,пока два соседних элемента будут отличаться не больше,чем на 0.01
Застрял здесь

var
a,n,c:integer;
begin
writeln('Введите сумму ряда');
readln(n);
for i to n do
begin
a:=1/n;

[type_Oleg]

Непонятно, надо последовательность вывести ( кучу чисел), или сумму ряда - одно число.
В любом случае, можно сделать например прямо так. Если в вашем цикле for

a:=1/i;
if (a-1/(i+1))<0.01 then Break;

Правда, похоже вы вообще не понимаете, как работает for, судя по коду.

[Poopy]

Что-то я взглянул на свой код и правда какая-то хрень. Я даже не представляю как эту задачу решить.Может кто нибудь спасет?

[Koroed000]

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

Составить программу для вычисления элементов
a(n последовательности) =1/n до тех пор,пока два соседних элемента будут отличаться не больше,чем на 0.01
Застрял здесь

var
a,n,c:integer;
begin
writeln('Введите сумму ряда');
readln(n);
for i to n do
begin
a:=1/n;

ну у тебя как минимум 2 ошибки.
1)С for (она уже всплывала), он работает так for i:=(1 число) to (2 число) do
2)Если у тебя различаются числа на 0,01, то integer уже никак не может быть, нид real.
Я попробую составить, но ничего не могу обещать, я давно не практиковался

[Koroed000]

Как я и говорил я давно не практиковался.
У меня есть код, но там везде выдают нули. Если немного подправить то будет рабочий код. И там все варианты: и эти числа, и сумма этих чисел, и количество чисел до дохода до этих.
Кидаю:

program posledovatelnost;
var b,a,q,s:real;
    n:integer;
begin
  writeln('Введите количество чисел в ряду');
  readln(n);
  a:=0;
  b:=0;
  s:=0;
  q:=1;
  while q=0 do
    begin
      a:=1/n;
      s:=a+s;
      if a-b=0.01 then
        q:=0
      else
        b:=a;
    end;
    writeln('Сумма этих чисел равна ',s);
    writeln('Количество этих чисел равно ',n);
    writeln('Это числа ',b,' и ',a);
end.

оформляйте ваш код согласно правилам

[Crash1111]

program Nikjh1;
 var v, t, b, x, a, n,  i ,p ,t1, t2 :real;
begin
 p:=3.14;
 writeln('Введіть  i');read(i);
 b:=ln(17.75)/ln(10);
 a:=1/(sqrt(p));
 x:=arctan(a+b);
  t1:=(sqrt(abs(x+(sqrt(x+sqr(sin(x*x*x)))))))/(n);
 t2:=0.5*(exp(1.5*ln(10)))*ln(sqr(x)+sqr(a));
 t:=t1/t2;
 {t:=(sqrt(abs(x+(sqrt(x+sqr(sin(x*x*x))))))/(n)/(0.5*(exp(1.5*ln(10)))*ln(sqr(x)+sqr(a))));}
 v:=(exp(1/3*ln(abs(t-b)))-sqr(cos(2*x+p/7))/(arctan(abs(x-i))+sqrt(x-a)));
 writeln('v=',v:5:2);
end.

[Вадим Мошев]

Crash1111, не лезьте в чужую тему - создайте свою.
Также, оформляйте ваш код согласно правилам