бесконечный цикл, ошибочка Опции

[polic]

program k;
var s:real;n,i:integer;
begin
writeln ('vedite n');
readln(n);
for I:=1 to n
n:=n+1;
s:= power((-1),n)*(n / (2*n*n -1));
writeln ('s=',s:6:4);
end. 

(for I:=1 to n) после n выводит ошибку чтото неправильно ерунда какаято что тут может быть неправильно

М

Теги - это не S, а открываешь комбобокс CODE и выбираешь язык из списка...

Сообщение отредактировано: volvo - 24.12.2006 17:06

[Айра]

for I:=1 to n

После n 'DO' поставить забыл, наверное?

power((-1),n)

Это твоя функция или что, а то компилятор воспринимает ее как неизвестную переменную (нужно ее описать )?

[polic]

да всё забываю чото стоит повешаться

повесится вот уже начал ошибки делать и в русском языке...

[klem4]

1) Пользуйся тегами
2) Зачем ты хочешь поменять параметр цикла n в цикле ? Темболее в for, некоторые компиляторы это вовсе запрещают.

[Айра]

Да, кстати, begin и end в циклах кажется еще не отменяли...
Я тоже не сразу заметила...

[polic]

чото я запутался вроде получается не бесконечный цикл как его бесконечным сделать или у мя всё правильно ?

зделаем begin

[klem4]

Зачем тебе бесконечный цикл ? Он же никогда не завершится ? А вот программа твоя будет с ошибкой вылетать :rolleyes:

Вот тебе бесконечный цикл :

while true do writeln('Я бесконечный цикл :)');

Какое у тебя задание ?

[polic]

найти сумму бесконечного ряда условие остановки не дано

[klem4]

условие остановки не дано

Так не бывает Условие остановки в таких задачах - очередной член суммы по абсолютной величине меньше некоторого заданного значение точности (0.001 например)

Пользуйся поиском, примеров много, ну вот в FAQ тоже есть : Общие вопросы по математике.

[polic]

впринципе там написано с точностью до E
я просто не знаю что такое с точность до E как это выразить?

[polic]

Код

program k;
const eps = 0.0000001;
var s:real;n,i:integer;
begin
writeln ('vedite n');
readln(n);
begin
repeat
n:=n+1;
s:= power((-1),n)*(n / (2*n*n -1));
until (S)<eps;
end;
writeln ('s=',s:6:4);
end.

вот так правильно?

опять забыл теги поставить я думаю меня модераторы простят

Сообщение отредактировано: polic - 24.12.2006 17:05

[klem4]

Скорее всего вот так

program k;
uses math;
const eps = 0.001;

var s, next:real;
    n,i:integer;

begin

  s := 0;

  n := 1;

  repeat
    next := power((-1),n)*(n / (2*n*n -1));
    s := s + next;
    inc(n);
  until abs(next) < eps;

  writeln ('s=',s:6:4);

  readln; 

end.

[volvo]

опять забыл теги поставить я думаю меня модераторы простят

Кнопка "Изменить" у тебя что, невидима? Забыл - исправь...

[polic]

math не найден может можно чемнибудь заменить?

[klem4]

a^n = exp(n * ln(a))

[polic]

Код

a^n = exp(n * ln(a))

а чо это такое? куда его засунуть?

извини конечно что я задаю дурацкие вопросы но действительно не понимаю

[klem4]

это вместо функции power, она ведь находится в модуле Math, которого у тебя нет.

[polic]

Код

program k;

const eps = 0.001;

var s, next:real;
    n,i:integer;

begin

  s := 0;

  n := 1;

  repeat
    next :=  ((exp(n * ln(-1))*(n / (2*n*n -1)));
    s := s + next;
    inc(n);
  until abs(next) < eps;

  writeln ('s=',s:6:4);

  readln;

end.

вот что получилось

Код

next :=  ((exp(n * ln(-1))*(n / (2*n*n -1)));

пишет нужна скобка ставиш пишет неправильная вещественная операция



Сообщение отредактировано: polic - 24.12.2006 17:25

[klem4]

Ничего удивительного,

ln(-1)

Это по твоему чему равно ?

[polic]

весело в задании -1 мож просто поставить 1

погоди чоно само вводит чтоль типа random ?