Решение биквадратного уравнения паскаль

Ответы и объяснения

  • nikolaj-semyonov
  • Мегамозг
  • 2017-05-07 21:21:07

Решение биквадратного уравнения на Паскале схоже с решением квадратного уравнения. Только следует ввести замену x^2 -> a. Как только найдем корни a, можно извлекать из них квадратные корни – это и будут решения уравнения x.

program sqrt1;
uses
crt;
var
x1, x2: real;
a, b, c, result: real;
D: real;
s:string;
label m1;
begin
clrscr;
m1: writeln(‘Программа решения биквадратного уравнения’);
write(‘Введите первый коэффициент: ‘);
readln(a);
write(‘Введите второй коэффициент: ‘);
readln(b);
write(‘Введите свободный член: ‘);
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);
if x1>=0 then
begin
x1:=sqrt(x1);
writeln(‘Первый корень: ‘,x1:3:3);
end;
if x2>=0 then
begin
x2:=sqrt(x2);
writeln(‘Второй корень: ‘,x2:3:3);
end;
end;

if D=0 then
begin
x1:=-b/(2*a);
if x1>=0 then
begin
x1:=sqrt(x1);
writeln(‘Один корень: ‘,x1:3:3);
end;
end;

Уравнение вида a⋅x 2 + b⋅x + c = 0квадратное уравнение.

a, b, c – действительные числа, a ≠ 0.

Для того чтобы вычислить корни квадратного уравнения, нужно сначала найти дискриминант.

  • если D 0, то уравнение имеет два действительных корня:
  • x1 = (-b + √D) / (2⋅a);
  • x2 = (-b + √D) / (2⋅a).

Программа для решения квадратного уравнения на языке программирования Паскаль

Функция sqr языка Pascal используется для возведения числа в квадрат.
Функция sqrt используется для получения квадратного корня числа.
В программе используется форматированный вывод вещественных чисел. variable:8:3 – означает, что для вывода переменной предусмотрено 8 символов, 5 из них под целую часть и 3 под дробную.

Идёт приём заявок

Подать заявку

Для учеников 1-11 классов и дошкольников

9 класс Ветвление Pascal ABC (Биквадратное уравнение)

Составить программу для нахождения корней биквадратного уравнения. Ввод с клавиатуры. Использовать модуль CRT . Программа должна учитывать все случаи решения биквадратного уравнения.

Читайте также:  Приложение hp recovery manager

а) a =4, b =-5, c =1___________ x 1=1, x 2=-1, x 3=0.5, x 4=-0.5;

б) a =1, b =-2, c =1___________ x 1=1, x 2=-1, x 3=1, x 4=-1;

в) a =1, b =2, c =-8___________ x 1=1.41, x 2=-1.41, x 3 и x 4 не являются действительными корнями;

г) a =1, b =1, c =1000___________ уравнение не имеет действительных корней.

Программа для нахождения корней биквадратного уравнения, представляет собой алгоритмическую структуру ветвление.

var a,b,c,d,x1,x2,x3,x4,t1,t2: real ;

writeln( ‘Программа для решения биквадратного уравнения вида ax^4+bx^2+c’ );

write( ‘ введите a= ‘ );

write( ‘ введите b= ‘ );

write( ‘ введите c= ‘ );

if d 0 then writeln( ‘Уравнение не имеет действительных корней’ )

if (t1 0 ) then writeln( ‘x1 и x2 не действительные корни’ )

if (t2 0 ) then writeln( ‘x3 и x4 не действительные корни’ )

Оцените статью
ПК Знаток
Добавить комментарий

Adblock detector