IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V  1 2 >  
 Ответить  Открыть новую тему 
> бесконечный цикл, ошибочка
сообщение
Сообщение #1


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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 выводит ошибку чтото неправильно ерунда какаято что тут может быть неправильно wink.gif

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



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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата
for I:=1 to n

После n 'DO' поставить забыл, наверное? smile.gif
Цитата
power((-1),n)

Это твоя функция или что, а то компилятор воспринимает ее как неизвестную переменную (нужно ее описать smile.gif )?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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

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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Да, кстати, begin и end в циклах кажется еще не отменяли... smile.gif
Я тоже не сразу заметила...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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

зделаем begin


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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

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


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


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

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


Код
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 -


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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.



--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Гость






Цитата
опять забыл теги поставить я думаю меня модераторы простят
Кнопка "Изменить" у тебя что, невидима? Забыл - исправь...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


Код
a^n = exp(n * ln(a))
а чо это такое? куда его засунуть?

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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


Код
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)));

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

mega_chok.gif

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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Ничего удивительного,
Цитата
ln(-1)


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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


гений чегото
**

Группа: Пользователи
Сообщений: 108
Пол: Мужской

Репутация: -  -1  +


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

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


--------------------
-------------
избранный.... но не в Паскале.....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V  1 2 >
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.12.2020 19:51
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name