1. Напишите программу вычисления корней квадратного уравнения, если с клавиатуры, если коэффициенты вводятся с клавиатуры (a,b,c) 2. Координаты 2-х точек плоскости вводятся с клавиатуры.Определите и выведите на экран какая точк...
1. Напишите программу вычисления корней квадратного уравнения, если с клавиатуры, если коэффициенты вводятся с клавиатуры (a,b,c)
2. Координаты 2-х точек плоскости вводятся с клавиатуры.Определите и выведите на экран какая точка расположена дальше от начала координат и на сколько.
Формат вывода следующий "Расстояние от точки А до начала координат больше, чем расстояние от точки В до начала координат на 8,5 единиц"
Проведите тестирование программы для точек из разных четвертей координатной плоскости.
Гость
Ответ(ы) на вопрос:
Гость1.var a,b,c:integer;
d,x1,x2:real;
begin;
readln(a);
readln(b);
readln(c);
d:=sqr(b)-4*a*c;
if d<0 then
writeln('Нет корней')
else
if d=0 then
begin;
x1:=-b/(2*a);
writeln(x1);
end
else
begin;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln(x1);
writeln(x2);
end;
end.
2)var x1,y1,x2,y2:integer;
r1,r2,rr:real;
begin;
readln(x1);
readln(y1);
readln(x2);
readln(y2);
r1:=sqrt(sqr(x1)+sqr(y1));
r2:=sqrt(sqr(x2)+sqr(y2));
if r1>r2 then
begin;
rr:=r1-r2;
write('Расстояние от точки А до начала координат больше, чем расстояние от точки В до начала координат на ',rr,' единиц');
end
else
if r1
Не нашли ответ?
Похожие вопросы