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

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

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

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

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#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;
}

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

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

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

@zss Модератор 13773 / 10966 / 6491 Регистрация: 18.12.2011 Сообщений: 29,244
	16.12.2018, 15:08
	А не проще взять готовую программу из ссылок внизу страницы. 0