Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

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

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

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.03.2011, 20:50   #1
Константинн
Пользователь
 
Регистрация: 26.02.2011
Сообщений: 14
По умолчанию Написать Модуль для решения уравнения методом итераций

PASCAL!!!!!!!!!
Решить уравнение arccos(x)-sqrt(1-0.3*x^3)=0
Написать свой модуль и использовать процедурный тип.
Помогите где ошибка?!!!!!!!!!
Пишет ERROR 15 file not found
*********************************** **********************
Модуль
*********************************** *********************
unit Unit2;
interface
type
Tfunc=function(x:real):real;
function Kor(x0:real;Func:TFunc):real;
implementation
function Kor(x0:real;Func:Tfunc)real;
var Xk,Xn:real;
begin
Xn:=x0;
while ((Xk-Xn)>=00000.1) do
begin
Xk:=Func(Xn);
Xn:=Xk;
end;
Kor:=Xk;
end;
end.
*********************************** **********************
Гл.программа
*********************************** *********************
program main;
uses
Unit2;
{$F+}
function MyFunction(Xn:real):real;
begin
MyFunction:=exp(1/3*ln((3-3*sqr(arctan(sqrt((1-Xn*Xn)/Xn))))/10));
end;
{$F-}
begin
writeln('Resultat=',Kor(0.2,MyFunct ion):7:6);
readln;
end.
Константинн вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать Модуль для решения уравнения методом итераций Константинн Паскаль, Turbo Pascal, PascalABC.NET 2 02.03.2011 18:45
Найти корень уравнения методом итераций. MASOFF Помощь студентам 0 28.01.2011 16:42
Написать программу на C++ для решения ОДУ разностным методом Macuka Фриланс 0 13.12.2010 21:29
Решение уравнения методом простых итераций, Floating poin:Squere root of Negative number Wrack Общие вопросы C/C++ 1 27.10.2010 16:04
текст программы для решения нелинейного уравнения методом простых итераций Dyst Помощь студентам 2 14.05.2008 21:00

Реклама для незарегистрированных, регистрация на форуме