Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 53
1

Корень n-ной степени, процедурный тип.

03.05.2017, 17:02. Показов 1626. Ответов 10
Метки нет (Все метки)

МОДУЛИ

Запрограммировать решение задания “Процедурный тип”. Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма.

Задание:

Используя итерационную формулу

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
y_n=\frac{1}{m}\left((m-1)y_{n-1}+\frac{x}{y_{n-1}^{m-1}} \right),<br />

вычислить с погрешностью 0.001 https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
\sqrt[5]{3.7}<br />
и https://www.cyberforum.ru/cgi-bin/latex.cgi?\sqrt[4]{4.56}.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.05.2017, 17:02
Ответы с готовыми решениями:

Процедурный тип
помогите пожалуйста переделать программу...нужно чтобы все процедуры и функции работали с помощью...

Процедурный тип
Методом перебора с шагом 0.05 определить минимумы функций f(x)= e^x - x^3 на отрезке и g(x)= x^3 -...

Процедурный тип
Прямые, заданные выражениями (L1, L2, L3) линейных функций пересекаются. Найти точки их пересечения...

процедурный тип
Заданный массив функций. Найти методом табуляции массив их сумм значений функций на отрезке . Шаг...

10
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,104
10.05.2017, 11:25 2
Лучший ответ Сообщение было отмечено pahan1225 как решение

Решение

Алгоритм здесь
https://ru.wikipedia.org/wiki/... ой_степени
Основа кода отсюда, там же комментарии.
Поиск степенного корня используя итерационную формулу
Модуль
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
unit modul;
interface
const eps=0.001;
type func=function(x: real; m: integer; yn: real):real;
function sqrtn(x: real; m: integer; yn: real):real;
procedure koren(x:real;m:integer;yn:real;f:func;var k:real);
implementation
{$F+}
function sqrtn(x: real; m: integer; yn: real):real;
var y, am: real;
    i: integer;
begin
am := yn;
for i := 2 to m - 1 do am := am * yn;
y := ((m - 1) * yn + x / am) / m;
if abs(y - yn) > eps
then sqrtn := sqrtn(x, m, y)
else sqrtn := y
end;
{$F-}
procedure koren;
begin
k:=f(x,m,yn);
end;
end.
Программа.
Pascal
1
2
3
4
5
6
7
8
9
10
uses crt,modul;
var k: real;
begin
clrscr;
koren(3.7,5,1,sqrtn,k);
writeln('3.7^1/5=',k:0:3);
koren(4.56,4,1,sqrtn,k);
writeln('4.56^1/4=',k:0:3);
readln
end.
1
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 53
10.05.2017, 14:12  [ТС] 3
Puporev, Большое Спасибо за Ваше время и труд!
0
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 53
24.05.2017, 21:12  [ТС] 4
Puporev, А есть ли у Вас возможность полностью заменить функцию function sqrtn, на function kor(x:real;q:byte;pribl:real):real в коде программы, используя переменные указанные в этой функции, и используя данную формулу - y|yn-yn-1|<ε.
Если конечно у Вас будет время и возможность.
Буду благодарен за помощь.
0
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,104
25.05.2017, 10:09 5
Так замените
название функции sqrtn на kor
m:integer; на q:byte;
yn:real; на pribl:real;

А формула |yn-yn-1|<eps и так используется
Pascal
1
2
3
if abs(y - yn) > eps
then sqrtn := sqrtn(x, m, y)
else sqrtn := y
Переписывать за Вас буковки я не нанимался, наймите писаря (можно и меня).
1
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 53
25.05.2017, 11:58  [ТС] 6
Puporev, Большое спасибо за ваш ответ! После работы обязательно попробую сделать. Подскажите пожалуйста, возможно ли разработать данную программу на языке Delphi?
0
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,104
25.05.2017, 12:01 7
Цитата Сообщение от pahan1225 Посмотреть сообщение
возможно ли разработать данную программу на языке Delphi?
Возможно.
1
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,104
25.05.2017, 12:38 8
Держи, все равно не отвяжешься
1
Вложения
Тип файла: rar Корень_n.rar (160.9 Кб, 4 просмотров)
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 53
25.05.2017, 23:35  [ТС] 9
Puporev, Огромное Вам СПАСИБО!
0
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 53
31.05.2017, 13:07  [ТС] 10
Puporev, Доброго времени суток! а есть ли возможность описать подпрограмму в другом модуле, в коде программы турбопаскаль?
0
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,104
31.05.2017, 13:15 11
Есть такая возможность, пиши, мне некогда да и лень.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.05.2017, 13:15

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Процедурный тип
Добрый день. Помогите пожалуйста с процедурным типом. Нужно составить подпрограмму вычисления...

Процедурный тип
Ребят, а как решить подобную задачу с помощью подпрограммы и процедурного типа?

Процедурный тип
Составить подпрограмму вычисления длины...

Процедурный тип данных
Здравствуйте. Составить подпрограмму вычисления площади треугольника, заданного координатами...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.