program k;
var s:real;n,i:integer;
begin
writeln ('vedite n');
readln(n);
for I:=1to 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 выводит ошибку чтото неправильно ерунда какаято что тут может быть неправильно
Это твоя функция или что, а то компилятор воспринимает ее как неизвестную переменную (нужно ее описать )?
polic
24.12.2006 15:25
да всё забываю чото стоит повешаться
повесится вот уже начал ошибки делать и в русском языке...
klem4
24.12.2006 15:26
1) Пользуйся тегами 2) Зачем ты хочешь поменять параметр цикла n в цикле ? Темболее в for, некоторые компиляторы это вовсе запрещают.
Айра
24.12.2006 15:29
Да, кстати, begin и end в циклах кажется еще не отменяли... Я тоже не сразу заметила...
polic
24.12.2006 15:34
чото я запутался вроде получается не бесконечный цикл как его бесконечным сделать или у мя всё правильно ?
зделаем begin
klem4
24.12.2006 15:35
Зачем тебе бесконечный цикл ? Он же никогда не завершится ? А вот программа твоя будет с ошибкой вылетать :rolleyes:
Вот тебе бесконечный цикл :
while true do writeln('Я бесконечный цикл :)');
Какое у тебя задание ?
polic
24.12.2006 15:37
найти сумму бесконечного ряда условие остановки не дано
klem4
24.12.2006 15:42
Цитата
условие остановки не дано
Так не бывает Условие остановки в таких задачах - очередной член суммы по абсолютной величине меньше некоторого заданного значение точности (0.001 например)
впринципе там написано с точностью до E я просто не знаю что такое с точность до E как это выразить?
polic
24.12.2006 16:39
Код
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.
вот так правильно?
опять забыл теги поставить я думаю меня модераторы простят
klem4
24.12.2006 16:45
Скорее всего вот так
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
24.12.2006 16:48
Цитата
опять забыл теги поставить я думаю меня модераторы простят
Кнопка "Изменить" у тебя что, невидима? Забыл - исправь...
polic
24.12.2006 16:48
math не найден может можно чемнибудь заменить?
klem4
24.12.2006 16:49
a^n = exp(n * ln(a))
polic
24.12.2006 17:07
Код
a^n = exp(n * ln(a))
а чо это такое? куда его засунуть?
извини конечно что я задаю дурацкие вопросы но действительно не понимаю
klem4
24.12.2006 17:12
это вместо функции power, она ведь находится в модуле Math, которого у тебя нет.
polic
24.12.2006 17:23
Код
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)));
пишет нужна скобка ставиш пишет неправильная вещественная операция
klem4
24.12.2006 17:25
Ничего удивительного,
Цитата
ln(-1)
Это по твоему чему равно ?
polic
24.12.2006 17:28
весело в задании -1 мож просто поставить 1
погоди чоно само вводит чтоль типа random ?
мисс_граффити
24.12.2006 18:15
FAQ почитай. Там про степень -1 написано.
polic
24.12.2006 19:24
это не степень -1 а число -1 в степени n
---------------- а рейтинг выше всех уже 106
просмотров
мисс_граффити
24.12.2006 19:25
я тебе про это и говорю. степень двойки - это ведь и 4, и 8. а здесь - степень минус единицы. в общем, FAQ
polic
24.12.2006 19:34
какая хоть тема не могу найти
------------ вообщем до нового года осталось немого а там и Паскалб кончится..потерпите товарищи модераторы
volvo
24.12.2006 19:37
Тебе ссылку дали в 9-ом посте !!! (смотреть по ссылке "Сообщение №2")
polic
24.12.2006 19:47
%№!^*$,вы запутали меня то то сказали так потом по другому потом снова указываете мне ссылку где метод дргой добавили
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
?
