Содержание
Ответы и объяснения
- 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 . Программа должна учитывать все случаи решения биквадратного уравнения.
а) 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 не действительные корни’ )
Загрузка...
