Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.12.2014, 19:12   #11
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Цитата:
Сообщение от Amfetamin Посмотреть сообщение
Так вот как написать, в этом то и проблема, то что правильно написать я не могу.
Вы и неправильно не можете.

Функция для вычисления первой формулы - это просто.
Код:
function SqSqM(x:Real;m:Byte):Real;
begin
 SqSqM:=Power((1+x)/Power(1+x*x,1/m)-1/x,1/m);
end;
А для чего ряд, до сих пор не понятно.
Объясните, как с его помощью вычислить эту формулу с корнями .
Чему она равна - y или z ?
Посчитайте например при x=1.
type_Oleg вне форума Ответить с цитированием
Старый 15.12.2014, 19:19   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Ряд нужно закинуть в функцию или в процедуру.И эту функцию\процедуру нужно использовать для решения формулы на первом фото.
Кто-нибудь что-нибудь понял? Камрады, хелпаните мну по телепати догнать слона О_о
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.12.2014, 19:29   #13
Amfetamin
Новичок
Джуниор
 
Регистрация: 15.12.2014
Сообщений: 14
По умолчанию

Нужно сделать что то типа этого.
Код:
program two;
var x,e,fx:real;
function raz(a,eps:real):real;
var y0,y1:real;
begin
y0:=0.5*a;
y1:=(y0*((y0*y0)+3*a))/(3*y0*y0+a);
while abs(y0-y1)>eps do
begin
y0:=y1;
y1:=(y0*((y0*y0)+3*a))/(3*y0*y0+a);
raz:=y1;
end;
end;
begin
readln(x,e);
fx:=raz(x,e);
fx:=sqrt(x-sqrt(x-sqrt(x)));
writeln(fx:5:12);
fx:=raz(x-raz(x-raz(x,e),e),e);
writeln(fx:5:12);
readln;
end.
Мне надо написать программу через функцию для нахождения квадратного корня с помощью иттерационной функции (И сделать нужно через процедуру мне)

Последний раз редактировалось Stilet; 15.12.2014 в 20:49.
Amfetamin вне форума Ответить с цитированием
Старый 15.12.2014, 19:39   #14
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

А в типа этом непонятна сама программа.
Функция - понятно, там какая-то итерация с точностью eps

А вот сама программа...
Например -
Код:
// ...
 readln(x,e);
 fx:=raz(x,e);  //  в чем смысл этой строки ?
 fx:=sqrt(x-sqrt(x-sqrt(x)));
// ...
type_Oleg вне форума Ответить с цитированием
Старый 15.12.2014, 19:42   #15
Amfetamin
Новичок
Джуниор
 
Регистрация: 15.12.2014
Сообщений: 14
По умолчанию

В принципе, ты прав, кажется, она здесь не нужна, так как на следующей строке мы снова переписываем переменную.
Amfetamin вне форума Ответить с цитированием
Старый 15.12.2014, 19:43   #16
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Цитата:
Сообщение от Amfetamin Посмотреть сообщение
Мне надо написать программу через функцию для нахождения квадратного корня с помощью иттерационной функции (И сделать нужно через процедуру мне)
Можете ответить на вопросы #15 ?
Или объясните, как вычислить корень с первого рисунка с помощью итерации на втором рисунке. Без программы, чисто математически..

PS Дано: m=2; x=1
По формуле с корнями = 0.643594252905583
По итерациям : z0=1-1=0, отсюда по итер.формуле и все следующие zi = 0. А все yi = y0=x=1
И что теперь делать с этими 0 и 1 ?

Последний раз редактировалось type_Oleg; 15.12.2014 в 19:53.
type_Oleg вне форума Ответить с цитированием
Старый 15.12.2014, 19:52   #17
Amfetamin
Новичок
Джуниор
 
Регистрация: 15.12.2014
Сообщений: 14
По умолчанию

Ну вот как бы вы решили ?

Да я сам не совсем понимаю, мне друг дал своё задание которое он сделал, и сделал он вроде его правильно

Последний раз редактировалось Stilet; 15.12.2014 в 20:50.
Amfetamin вне форума Ответить с цитированием
Старый 15.12.2014, 21:36   #18
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Ну вот как бы вы решили ?
Задание четко давай. Формулы между собой никак не связаны, не вижу по крайней мере я никакой связи между ними.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 15.12.2014, 23:13   #19
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,499
По умолчанию

Титаническими усилиями я таки исследовал эти ряды на втором рисунке. И вот что получилось при разных значениях x. То есть, куда стремятся z, y
* расходятся - значит лезут или в +∞ или в - ∞
Изображения
Тип файла: png итер.PNG (6.6 Кб, 36 просмотров)
type_Oleg вне форума Ответить с цитированием
Старый 15.12.2014, 23:59   #20
Amfetamin
Новичок
Джуниор
 
Регистрация: 15.12.2014
Сообщений: 14
По умолчанию

Я думаю всё на много проще, просто я не очень подробно объяснил.
Amfetamin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ребятушки, помогите пожалуйста PASCAL Quposle Помощь студентам 2 15.12.2014 12:18
Помогите пожалуйста с задачами по Pascal yakimchukav Паскаль, Turbo Pascal, PascalABC.NET 17 18.06.2009 16:03
Помогите пожалуйста с задачей (Pascal) Pavel!! Помощь студентам 3 25.01.2009 23:39