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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.05.2012, 10:04   #1
Lizonka-88
Пользователь
 
Регистрация: 24.01.2012
Сообщений: 23
По умолчанию Исправьте программу

у меня написан код решения системы нелинейных уравнений методом Ньютона, ответа не показывает, поссмотрите, пожалуйста, что нужно исправить, чтобы программа заработала:
Код:
Program zad2;
uses crt;
const e=0.001;
var
   x0,y0,x,y,qy,I,Ix,Iy,dx,dy, gx:real;
   d:boolean;
Function f(x,y:real):real;
begin
     f:=x*x*y-1;
end;
function g(x,y:real):real;
begin
     g:=x-exp(y);
end;
function fx(x:real):real;
begin
     fx:=2*x*y;
end;
{function gx(x:real):real;
begin
     gx:=-1/(2*(x-1));
end; }
function fy(y:real):real;
begin
     fy:=x*x;
end;
function gy(y:real):real;
Begin gy:=-exp(y);
end;
Begin  ClrScr;
       x0:=1.5; y0:=0.5; gx:=1; qy:=1;
  Repeat
        d:=false;
        I:=fx(x0)*qy-gx*fy(y0);
        Ix:=-f(x,y)*qy+g(x,y)*fy(y0);
        Iy:=-fx(x0)*g(x,y)+gx*f(x,y);
     dx:=Ix/I;
     dy:=Iy/I;
     x:=x0+dx;
     y:=y0+dy;
   if (abs(x-x0)<e) and (abs(y-y0)<e) then d:=true;
      x0:=x;
      y0:=y;
  Until d=true;
        writeln('Reshenie sistemy');
        writeln('x1=',x:4:3,' x2=',y:4:3);
 Readln;
End.
Lizonka-88 вне форума
Старый 23.05.2012, 11:10   #2
Lizonka-88
Пользователь
 
Регистрация: 24.01.2012
Сообщений: 23
По умолчанию

Больше думать не надо - я все сама исправила)
Lizonka-88 вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
исправьте программу на си Tolian92 Помощь студентам 7 16.05.2012 12:32
Исправьте программу Student30 Паскаль, Turbo Pascal, PascalABC.NET 2 21.09.2010 19:19
Исправьте программу в паскале. Figushkin Помощь студентам 4 26.05.2010 17:14
Исправьте пожалуйста программу Алексей_xXx Помощь студентам 2 29.05.2009 05:11
Исправьте программу плиз! Турбопаскаль. maxiswell Помощь студентам 2 08.01.2009 18:21