A scuola di Delphi

Capitolo 3

Circonferenza

Di questa applicazione e della successiva riportiamo solamente il listato della procedura; al lettore viene lasciata la comprensione della stessa, poiché davvero semplice.

Per coloro che non ricordano più le formule di geometria analitica sulla circonferenza facciamo un breve cenno.

L'equazione generale della circonferenza è:

x² + y² + a x + b y + c = 0

Le coordinate del centro C (x₀, y₀) sono:

x₀ = -a/2     e     y₀ = -b/2

ed il valore del raggio r è:

r = (x₀² + y₀² - c)^½

N.B. Se l'argomento della radice quadrata è negativo o nullo, la circonferenza è immaginaria o è degenere (un punto).

procedure TFormCirconferenza.ButtonDisegnaClick(Sender: TObject);
var
  x0, y0, r: Double;
begin
  x0:=-StrToFloat(EditA.Text)/2;
  y0:=-StrToFloat(EditB.Text)/2;
  r:=Sqrt(Sqr(x0)+Sqr(y0)-StrToFloat(EditC.Text));
  
  Oxy.Pen.Color:=clBlue;
  Oxy.Circle(x0, y0, r);
end;

Esercizio. Modificare il programma in modo che visualizzi un messaggio quando la circonferenza è immaginaria o è degenere.

 3.08 - Circonferenza (*)

(*) TOxy (deve essere installato in Delphi prima di aprire il progetto: seguire le istruzioni contenute nel commento del file zip oppure all'interno del file OxyScuola.pas)