Информатика. Решить задачи на языке Pascal

Question

Информатика. Решить задачи на языке Pascal

Иван Матюшин Ученик (127), на голосовании 1 год назад

Решить задачи на языке Pascal: 1) Найти корни квадратного уравнения A•x^2 + B•x + C = 0, заданного своими коэффициентами A, B, C (коэффициент А не равен 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней....

Answer 1

program Begin39;
var
A,B,C,D,x1,x2: Real;
begin
Write('Введите коэфициент A: ');
Readln(A);
Write('Введите коэфициент B: ');
Readln(B);
Write('Введите коэфициент C: ');
Readln(C);
D:=Sqr(b)-4*A*C;
x1:=((-1)*B+sqrt(D))/(2*A);
x2:=((-1)*B-sqrt(D))/(2*A);
if x2<x1 then
begin
Writeln('Меньший корень равен : ',X2);
Writeln('Больший корень равен : ',X1);
end
else
begin
Writeln('Меньший корень равен : ',X1);
Writeln('Больший корень равен : ',X2);
end;
end.

Answer 2

Код на языке Pascal для решения задачи на нахождение корней квадратного уравнения:

less
Copy code
var
A, B, C, D, x1, x2: real;
begin
writeln('Введите коэффициенты квадратного уравнения: ');
readln(A, B, C);
D := B * B - 4 * A * C;
if D >= 0 then
begin
x1 := (-B - sqrt(D)) / (2 * A);
x2 := (-B + sqrt(D)) / (2 * A);
if x1 < x2 then
writeln('Корни уравнения: ', x1:0:2, ', ', x2:0:2)
else
writeln('Корни уравнения: ', x2:0:2, ', ', x1:0:2);
end
else
writeln('Уравнение не имеет действительных корней.');
end.
Пример работы программы:

Copy code
Введите коэффициенты квадратного уравнения:
1 -5 6
Корни уравнения: 2.00, 3.00