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

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

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

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

у меня написан код решения системы нелинейных уравнений методом Ньютона, ответа не показывает, поссмотрите, пожалуйста, что нужно исправить, чтобы программа заработала:
Код:

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
Репутация: 9
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
исправьте программу на си Tolian92 Помощь студентам 7 16.05.2012 12:32
Исправьте программу Student30 Паскаль 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 19:21


23:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru