 Вычисление целого корня N-ой степени, задачка! |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| eprsteklmn |
 10.05.2005 19:18
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация:  0   |
Здравствуйте... Я сам "не местный" - мозгов мало... а жить хочется...помогиииите христа ради
 :D :D :D вот задачка (даю в виде изображения) http://epr2.stsland.ru/2.jpg  и ответ этой задачки... http://epr2.stsland.ru/1.jpg  и как уже понятно, надо ето реализоватть на Паскале....  пасиба, пока... Сообщение отредактировано: volvo - 11.05.2005 13:51 |
   |
 
|
  |
Ответов(1 - 6)
| klem4 |
11.05.2005 9:19
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
корень н-ной степени можно посчитать вот так :
exp((1/n)*ln(a))
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| volvo |
11.05.2005 9:38
Сообщение
#3
|
|
Гость |
klem4, а ты задание смотрел?
Мало ли, КАК можно что сделать? Можно и базу данных самому не писать, а зачем Access придумали? Но есть один маленький фактор: ЗАДАНИЕ. Так вот, по заданию нужно найти корень методом Ньютона. А твоим методом - ну, попробуй вычислить корень 5-ой степени из (-32)... |
|
|
|
| klem4 |
11.05.2005 17:29
Сообщение
#4
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
может вот это ?
{$n+}
uses crt;
var n,k:integer;
eps,d,x,y:extended;
begin
clrscr;
write('eps='); readln(eps);
write('n=');readln(n);
write('x=');readln(x);
k:=0;
y:=x;
repeat
d:=(x/exp((n-1)*ln(y))-y)/n;
k:=k+1;
y:=y+d;
until abs(d)<=eps;
writeln('Koren ',n,' stepeni iz ',x:3:3, ' raven ',y:3:3);
writeln('Kolvo iteracii = ',k);
readln;
end.
я не уверен что это тот метод который нужен. мде не то. Сообщение отредактировано: klem4 - 11.05.2005 17:33 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| eprsteklmn |
11.05.2005 18:32
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 11.05.05 9:38) klem4, а ты задание смотрел? Мало ли, КАК можно что сделать? Можно и базу данных самому не писать, а зачем Access придумали? Но есть один маленький фактор: ЗАДАНИЕ. Так вот, по заданию нужно найти корень методом Ньютона. А твоим методом - ну, попробуй вычислить корень 5-ой степени из (-32)... у тебя идей неть?! |
|
|
|
| volvo |
12.05.2005 12:52
Сообщение
#6
|
|
Гость |
Цитата(eprsteklmn @ 11.05.05 18:32) у тебя идей неть?!Есть небольшая: на алголисте я кое-что встречал по теме: Точное вычисление обратного числа, корня m-й степени Тебя более должно интересовать вычисление корня M-ой степени... Почитай, попробуй разобраться. |
|
|
|
| eprsteklmn |
12.05.2005 13:25
Сообщение
#7
|
|
Новичок Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 12.05.05 12:52) Есть небольшая: на алголисте я кое-что встречал по теме: Точное вычисление обратного числа, корня m-й степени ...мда.... я же говорил "сам не местный...":) |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.08.2025 1:22 |