Question

Текст программы решения квадратного уравнения в среде Turbo Pascal 7.Сам вообще не соображаю. Помогите, пожалуйста.

Answer 1

Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln   ('X - любое число')
Else Writeln          ('Корней нет! ')

Если что-то не так переделаю

Answer 2

Program Sq2;
Var A, B, C, D, X, X1, X2 : Real;
Begin
Writeln ('Введите коэффициенты уравнения (A, B, C) ');
readln(a,b,c);
If A=0 Then
If B=0 Then
If C=0 Then Writeln('X - любое число')
Else Writeln('Корней нет! ')
Else
Begin
X:=-C/B;
Writeln('X=',X:8:3);
End
Else
Begin
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет! ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);
End;
End;
End.

 

Решение не мое,так как на составления данного кода,не хватило бы времени. 

Answer 3

К сожалению, я не могу предоставить вам полный текст программы для решения квадратного уравнения в среде Turbo Pascal 7, так как не имею доступа к конкретному исходному коду. Однако, я могу объяснить вам общий алгоритм решения квадратного уравнения и предоставить вам пример кода на языке Turbo Pascal, который вы можете использовать в своей программе.

Алгоритм решения квадратного уравнения:

1. Ввод коэффициентов a, b и c квадратного уравнения ax^2 + bx + c = 0. 2. Вычисление дискриминанта по формуле D = b^2 - 4ac. 3. Проверка значения дискриминанта: - Если D > 0, то у уравнения два различных вещественных корня. - Если D = 0, то у уравнения один вещественный корень. - Если D < 0, то у уравнения нет вещественных корней. 4. Вычисление корней уравнения по формулам: - x1 = (-b + sqrt(D)) / (2a) - x2 = (-b - sqrt(D)) / (2a) 5. Вывод корней уравнения.

Пример кода на Turbo Pascal для решения квадратного уравнения:

```pascal program QuadraticEquation;

uses crt;

var a, b, c, D, x1, x2: real;

begin clrscr; writeln('Введите коэффициенты квадратного уравнения ax^2 + bx + c = 0:'); write('a: '); readln(a); write('b: '); readln(b); write('c: '); readln(c); D := b*b - 4*a*c; if D > 0 then begin x1 := (-b + sqrt(D)) / (2*a); x2 := (-b - sqrt(D)) / (2*a); writeln('Уравнение имеет два различных вещественных корня:'); writeln('x1 = ', x1:0:2); writeln('x2 = ', x2:0:2); end else if D = 0 then begin x1 := -b / (2*a); writeln('Уравнение имеет один вещественный корень:'); writeln('x = ', x1:0:2); end else begin writeln('Уравнение не имеет вещественных корней.'); end; readln; end. ```

Вы можете скопировать этот код и вставить его в среду Turbo Pascal 7 для выполнения и тестирования. Обратите внимание, что этот код решает только квадратные уравнения с вещественными корнями. Если вам нужно решить квадратное уравнение с комплексными корнями, вам потребуется модифицировать код.

Надеюсь, это поможет вам в решении вашей задачи! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.