1) составить программу ** паскале. вычесления расстояния между касательной и секущей если...

Question

1) составить программу на паскале. вычесления расстояния между касательной и секущей если в окружности радиуса r проведена хорда длиной r/2 через один конец которой проведена касательная к окружности а через другой-секущая паралельная касательной
и то же самое вариант-19))

---

Answer 1

Это мы не проходили,
Это нам не задавали!
А квадратное уравнение решаемо =)

var a, b, c, d, x1, x2: real;

begin
  readln(a, b, c);
  d := b * b - 4 * a * c;
  if d >= 0 then begin
    if d <> 0 then begin
    x1 := (-b + sqrt(d)) / 2 * a;
      x2 := (-b - sqrt(d)) / 2 * a;
      writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)
    end
    else begin
      x1 := -(b / 2 * a);
      writeln('x = ', x1:4:2)
    end
  end
  else begin
    writeln('Нет решения');
  end
end.

Удачи тебе с остальными)