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

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

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

> Вычисление целого корня N-ой степени, задачка!
eprsteklmn
сообщение 10.05.2005 19:18
Сообщение #1


Новичок
*

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

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


Здравствуйте... Я сам "не местный" - мозгов мало... а жить хочется...помогиииите христа радиsmile.gif :D :D :D
вот задачка (даю в виде изображения)
http://epr2.stsland.ru/2.jpg
Прикрепленное изображение

и ответ этой задачки...
http://epr2.stsland.ru/1.jpg
Прикрепленное изображение

и как уже понятно, надо ето реализоватть на Паскале.... smile.gif rolleyes.gif rolleyes.gif rolleyes.gif
пасиба, пока...

Сообщение отредактировано: volvo - 11.05.2005 13:51
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
eprsteklmn
сообщение 11.05.2005 18:32
Сообщение #5


Новичок
*

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

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


Цитата(volvo @ 11.05.05 9:38)
klem4, а ты задание смотрел?
Мало ли, КАК можно что сделать? Можно и базу данных самому не писать, а зачем Access придумали? Но есть один маленький фактор: ЗАДАНИЕ.

Так вот, по заданию нужно найти корень методом Ньютона. А твоим методом - ну, попробуй вычислить корень 5-ой степени из (-32)...

rolleyes.gif у тебя идей неть?!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 12.05.2005 12:52
Сообщение #6


Гость






Цитата(eprsteklmn @ 11.05.05 18:32)
rolleyes.gif у тебя идей неть?!

Есть небольшая: на алголисте я кое-что встречал по теме:
Точное вычисление обратного числа, корня m-й степени

Тебя более должно интересовать вычисление корня M-ой степени... Почитай, попробуй разобраться.
 К началу страницы 
+ Ответить 
eprsteklmn
сообщение 12.05.2005 13:25
Сообщение #7


Новичок
*

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

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


Цитата(volvo @ 12.05.05 12:52)
Есть небольшая: на алголисте я кое-что встречал по теме:
Точное вычисление обратного числа, корня m-й степени

...мда.... я же говорил "сам не местный...":)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 8.08.2025 5:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"