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

UptoLike

ВУЗ: 

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

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

Рубрика: 

70
read(x);
if (x=1) then write('y не вычисляется')
else
begin
if(x>0) then y:=2*x
else
if(x>–1)and(x<=10) then y:=1–ln(abs(1–x*x))
else
if x<–1 then y:=exp(–x);
writeln('Значение y=',y:5:3);
writeln('Нажмите enter');
readln;
readln;
end;
end.
Пример 3.6. Составить программу для решения квадратного
уравнения a*x*x+b*x+c=0.
program gar7;
var
a,b,c,d,x1,x2:real;
begin
writeln('Составить программу для решения квадратного уравнения');
writeln('a*x*x+b*x+c=0.');
writeln('Введите a,b,c');
read(a,b,c);
d:=sqr(b)–4*a*c;
if(a=0)and(b=0)and(c=0)
then
writeln('Уравнение имеет бесконечное множество решений')
else
if (a=0)and(b<>0)and(c<>0)
then
writeln('Уравнение имеет корень x=',c/b:5:3)
else
if d<0 then writeln('Уравнение имеет комплексные корни')
else
if d=0 then writeln('Уравнение имеет 2 одинаковых корня
x=',–b/(2*a):6:3)
else
begin
x1:=(–b+sqrt(d))/(2*a);
x2:=(–b–sqrt(d))/(2*a);

Страницы