Нахождение корней квадратного уравнения (Pascal -> C++)

@Kirill2018gh · Регистрация: 10.06.2018

Помогите Перевести с Pascal на C++

Можно и картинкой

Добавлено через 33 секунды
Вот код:

Pascal

Program uravneni;
var a,b,c,D,Re,Im,x1,x2:real;
 begin
  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
 writeln ('введите c');
 readln (c);
if (a>0)  
  then
   begin
  D:=b*b-4*a*c;
 if (D>=0)
then 
 begin
 x1:=(-b+sqrt(D))/(2*a);
 x2:=(-b-sqrt(D))/(2*a);
 writeln('x1 = ',x1);
 writeln('x2 = ',x2);
end
else
begin
 Re:=-b/(2*a);
 Im:=sqrt(-D)/(2*a);
 writeln ('x1 = ',Re,'x',Im:5:3,'1');
 writeln ('x2 = ',Re,'-',Im:5:3,'1');
   end
  end
 else
if (b<>0)
then
 begin
x1:=(-c/b);
readln(x1);
writeln ('x1 = ',x1);
 end
else
if (c<>0)
then
writeln ('ошибка')
else
writeln ('x любое');
end.

@valen10 · 16.12.2018, 14:49

Kirill2018gh, не буду рисковать, тут за такое и замечание схлопотать можно. Посмотрите ссылки внизу страницы, квадратные уравнения решались уже неоднократно, возможно найдете готовую программу. ~~Если же нет - выложите код на Pascal в виде текста~~ и используйте тег языка программирования.

@Yetty · 16.12.2018, 14:50

Kirill2018gh, это не перевод, но возможно подойдёт (код N2):
Реализация калькулятора квадратных уравнений

@Kirill2018gh · 16.12.2018, 14:55 **[ТС]**

Помогите перевести с Паскаля на С++

Pascal

Program uravneni;
var a,b,c,D,Re,Im,x1,x2:real;
 begin
  writeln ('введите a');
  readln (a);
  writeln ('введите b');
  readln (b);
 writeln ('введите c');
 readln (c);
if (a>0)  
  then
   begin
  D:=b*b-4*a*c;
 if (D>=0)
then 
 begin
 x1:=(-b+sqrt(D))/(2*a);
 x2:=(-b-sqrt(D))/(2*a);
 writeln('x1 = ',x1);
 writeln('x2 = ',x2);
end
else
begin
 Re:=-b/(2*a);
 Im:=sqrt(-D)/(2*a);
 writeln ('x1 = ',Re,'x',Im:5:3,'1');
 writeln ('x2 = ',Re,'-',Im:5:3,'1');
   end
  end
 else
if (b<>0)
then
 begin
x1:=(-c/b);
readln(x1);
writeln ('x1 = ',x1);
 end
else
if (c<>0)
then
writeln ('ошибка')
else
writeln ('x любое');
end.

@zss · 16.12.2018, 15:08

А не проще взять готовую программу из ссылок внизу страницы.

@valen10 · 16.12.2018, 17:40

Перевод с исправлением пары очевидных ошибок в исходном решении.

C++

#include <iostream>
#include <cmath>
using namespace std;
 
int main () {
    double a, b, c;
    cout << "Enter a: ";
    cin >> a;
    cout << "Enter b: ";
    cin >> b;
    cout << "Enter c: ";
    cin >> c;
 
    if (std::abs(a) > 1e-15) {
        double d = b * b - 4.0 * a * c;
        if (d >= 0) {
            cout << "x1 = " << (-b + sqrt(d)) / (2.0 * a) << endl;
            cout << "x2 = " << (-b - sqrt(d)) / (2.0 * a) << endl;
        }
        else {
            cout << "x1 = " << -b / (2.0 * a) << " + " << sqrt(-d) / (2.0 * a) << "i" << endl;
            cout << "x2 = " << -b / (2.0 * a) << " - " << sqrt(-d) / (2.0 * a) << "i" << endl;
        }
 
    }
    else {
        if (std::abs(b) > 1e-15) {
            cout << "x = " << -c / b << endl;
        }
        else {
            if (std::abs(c) > 1e-15) {
                cout << "error" << endl;
            }
            else {
                cout << "x = ANY NUMBER" << endl;
            }
        }
    }
 
    return 0;
}

@valen10 Параллельный Кот 1905 / 827 / 350 Регистрация: 25.03.2016 Сообщений: 2,045
	16.12.2018, 14:49	2
	Kirill2018gh, не буду рисковать, тут за такое и замечание схлопотать можно. Посмотрите ссылки внизу страницы, квадратные уравнения решались уже неоднократно, возможно найдете готовую программу. ~~Если же нет - выложите код на Pascal в виде текста~~ и используйте тег языка программирования. 1

@Yetty 7424 / 5019 / 2890 Регистрация: 18.12.2017 Сообщений: 15,694
	16.12.2018, 14:50	3
	Kirill2018gh, это не перевод, но возможно подойдёт (код N2): Реализация калькулятора квадратных уравнений 0

@zss Модератор 12756 / 10218 / 6142 Регистрация: 18.12.2011 Сообщений: 27,361
	16.12.2018, 15:08	5
	А не проще взять готовую программу из ссылок внизу страницы. 0

Опции темы