. Использование языка паскаль для решения квадратных неравенств и уравнений. | Makarou.com - когда сайты превращаются в бизнес

Использование языка паскаль для решения квадратных неравенств и уравнений.

Сейчас мы с вами попробуем написать программу на паскале для решения квадратных уравнений и неравенства. Перед тем как начать писать программу распишем ход его решения. Посмотрев на квадратное уравнение, мы увидим перед переменными коэффициенты и свободное число стоящее после них.

Назовем их k, m,n-свободное число, чтобы решить данное уравнение нужно найти дискриминант. Находится он по формуле приведенной ниже.

После того как найдем дискриминант нужно его проверить, если его значение больше нуля, то уравнение имеет два корня, если он равен нулю, то корень один, если же он отрицателен, то корней вообще нет. Далее мы находим сами корни по формуле приведенной ниже:

Вот мы и решили квадратное уравнение, теперь все это нужно написать на паскале.
Приступаем.
Var k, m, n :real;{объявляем переменные для коэффициентов и свободного числа}
x1, x2, D :real;{переменные для хранения значений корней}
begin
Writeln(‘введите коэффициенты перед переменными и свободное число-’);
readln(k,m,n);
D:=sqr(m)-(4*k*n);{Находим дискриминант}
If D>0 then
begin
x1:=(-m+sqrt(D))/2*k; {Вот первый корень}
x2:=(-m-sqrt(D))/2*k; {Вот второй корень}
writeln(‘Первый корень- ‘,x1,’ Второй корень- ‘,x2);
end else
if D=0 then
begin
x1:=(-m)/2*k;{так как дискриминант равен одному ,то и корень получим один}
writeln(‘ Корень — ‘,x1);
end else
writeln(‘ Корней нет ‘);
End.
Вот мы и написали программу для решения квадратных уравнений. В процессе написания программы я комментировал где, что происходит.

Теперь попробуем решить квадратные неравенства. Это гораздо сложнее, ведь придется учитывать много параметров. Но ничего, справимся. Итак, приступаем.

На картинке приведен один из видов неравенств, которые решаются практически так же, как и квадратное уравнение. Только здесь нужно учитывать знак k, после устного решения пишем программу
Var k ,m , n:real;
X1,x2,D:real;
Begin
Read(k,m,n); {вводим числа через пробел}
D:=sqr(m)-4*k*n;
if D>=0 then begin
x1:=(-m+sqrt(D))/2*k; {Первый корень}
x2:=(-m-sqrt(D))/2*k; {Второй корень}
end;
if (D>0) and (k0) and (k>0) then writeln(‘X’,x1) else
if (D>0) and (k=0 ) and (m>0) then writeln(‘x>’,n/m) else
if (D>0) and (k=0 ) and (m if (k=0) and (m=0) then writeln(‘ Любое число ‘)else
writeln(‘ корней нет ‘);
end.
Этот пример иллюстрирует решение простого неравенства. Здесь нет ничего сложно, если не считать, что нужно учитывать каждую цифру.

Вот мы и рассмотрели квадратные уравнения и неравенства.

Инструкции

Понравился пост? добавь его к себе в закладки:
Хочешь быть всегда в курсе обновлений блога? подписывайся через: