Задача на Массивы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача на Массивы |
pan |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: 0 |
ПОЖ-ТА!!! проверьте правильно ли я решил задачу!
program z1; uses crt; var e,x,s,s1,s2: real; i,n: integer; begin clrscr; e:=0.001; x:=-2; s1:=1; s:=0; write ('vvedite X: '); readln (x); write ('vvedite N: '); readln (n); while abs(n*ln(x))<=e do begin for i:=1 to n do begin s1:=s1*x; s2:=s1/i; end; s:=s+s2; x:=x+0.25; end; writeln ('s=',s); writeln ('x=',x); readln; end. Эскизы прикрепленных изображений |
sintanial |
Сообщение
#2
|
Пионер Группа: Пользователи Сообщений: 70 Пол: Мужской Реальное имя: Мартын Репутация: 1 |
ммм скажи пожалуйста а причем тута массивы ?, это простая сумма ряда
На счет задачи : у тебя n определяться должно из условии abs(x^n/n) , а ты его задаешь =) , поэтому лучше переделай, точности не достигнешь( вроде бы). Там n надо увеличивать на 1 или на 10( если хош что бы быстрее сумму считал) в цикле вайл до тех пор пока это условие не нарушится abs(x^n/n)eps. Так что n ты не должен задавать вручную Сообщение отредактировано: sintanial - |
Текстовая версия | 28.03.2024 19:04 |