Перевод задачи с Pascal на C++

@Aabbccdd · Регистрация: 14.04.2017

Author24 — интернет-сервис помощи студентам

Pascal

Program Metod_Nutona_nelinein;
Uses Crt;
Var i,x,y,xn,yn,eps,a,b,c,d,pr :real;
Begin clrscr;
Write('Введите начальное значение x='); 
readln(x);
Write(' Введите начальное значение y='); 
readln(y);
Write('Введите точность eps='); 
readln(eps);
xn:=x; yn:=y; a:=(2*x)/5;                                {Ввод производных}
b:=(2*y)/5; c:=(2*x)/5; d:=(-2*y)/5;
if (a+b+c+d)<1 then writeln('Условие сходимости выполняется')
else writeln(' Условие сходимости не выполняется '); readln;
pr:=1;
while pr=1 do
 begin
 x:=xn; y:=yn;   xn:=(x*x+y*y)/5+0.2;   yn:=(x*x-y*y)/5+0.4;
 if (abs(xn-x)<=eps) and (abs(yn-y)<=eps)  then
 begin  pr:=0;  writeln;
 if (a+b+c+d)<1 then write('Корень уравнения с точностью eps=',eps:5:5);
 writeln(' na ',i-1:2:1,'-м шаге итераций');
 write('x=',xn:5:5,' y=',yn:5:5);
 end  else i:=i+1;
 end; readln;
End.

@nmcf · 14.04.2017, 10:54

C++

#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <cmath>
using namespace std;
 
int main()
{
  double i, x, y, xn, yn, eps, a, b, c, d;
 
  cout << "x=";
  cin >> x;
  cout << "y="; 
  cin >> y;
  cout << "eps="; 
  cin >> eps;
 
  xn = x; yn = y;
  a = (2 * x) / 5;
  b = (2 * y) / 5;
  c = (2 * x) / 5;
  d = (-2 * y) / 5;
 
  if (a + b + c + d < 1) cout << "Условие сходимости выполняется\n";
  else cout << "Условие сходимости не выполняется\n";
 
  while (true)
  {
    x = xn; y = yn;
    xn = (x * x + y * y) / 5 + 0.2;
    yn = (x * x - y * y) / 5 + 0.4;
    if (fabs(xn - x) <= eps && fabs(yn - y) <= eps)
    {
      cout << endl;
      if (a + b + c + d < 1) cout << "Корень уравнения с точностью eps=" << setprecision(5) << eps;
      cout << " na " << i -1 << "-м шаге итераций\n"
             << "x=" << setprecision(5) << xn << " y=" << setprecision(5) << yn << endl;
      break;
    }
    ++i;
  }
 
  system("pause");
}

	14.04.2017, 10:54

Опции темы

Перевод задачи с Pascal на C++

Решение