Алгоритмы и программы. Афанасьева Т. В - 71 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

71
writeln('x1=',x1:6:3,' x2=',x2:6:3);
end;
writeln('Нажмите enter');
readln;
end.
Корни уравнения находятся по формуле
x
1,2
=(–b+–sqrt(b*b–4*a*c))/2*a.
При составлении программы необходимо предусмотреть следующие
возможности:
1) если a=0, b=0, c=0, то уравнение имеет множество решений;
2) если a=0, b=0, c<>0, то уравнение не имеет решений;
3) если a=0,b<>0,c<>0, то уравнение имеет единственное решение x=c/b;
4) если a<>0, b<>0, c<>0, то решение уравнения зависит от значения
дискриминанта d=b*b–4*a*c;
a) если d<0, то уравнение имеет комплексные корни;
b) если d=0, то уравнение имеет два одинаковых корня x = -b/(2a);
с
) если d>0, то уравнение имеет два корня x
1
=(-b+sqrt(d)/(2a)),
x
2
=(–b–sqrt(d)/(2a)).
Пример 3.7. Составить программу для нахождения наибольшего
значения функции y:=abs(a)*exp(a*x–x*x) при изменении аргумента x от 0
до b с шагом h.
program kurs2;
label 1;
var
a, h, x, y, ymax, b:real;
begin
writeln('Составить программу для нахождения наибольшего значения');
writeln('функции y:=abs(a)*exp(a*x–x*x) при изменении аргумента ');
writeln('x от 0 до b с шагом h.');
writeln('Введите параметры a,h,b');
readln(a, h, b);
ymax:=–1e37; { Задание начального значения ymax }
x:=0;
1:if x<b then
begin
y:=abs(a)*exp(a*x–x*x);
writeln('y=',y:4:2,'x=',x:4:2); {Вывод на экран всех значений y,x на}
{отрезке от 0 до b}
if y>ymax then
ymax:=y; {Выбор максимального значения
y}
x:=x+h;

Страницы