Programme	Addition Lineare Gleichung Sieb des Eratosthenes Plotter Pfad: Startseite / Fächer / Informatik / Delphi / Programme / Lineare Gleichung
Autor: mk 20.11.2005 15:43 3076	Lineare Gleichung

Struktogramm und Benutzeroberfläche (Benutzungsoberfläche, Graphical User Interface GUI)

lineareGleichung.zip

Auszug aus dem Quelltext

procedure TForm1.bRechneClick(Sender: TObject);
var
  a,b     : real;
  ausgabe : string;
begin
  a := StrToFloat(eA.Text); b := StrToFloat(eB.Text);

  if a = 0
  then
    if b = 0
    then
      ausgabe := 'IL = IR;'
    else
      ausgabe := 'IL = { };'
  else
    ausgabe := 'IL = {'+FloatToStr(-b/a)+'};';

  lX.Caption := ausgabe;
end;

Tests

Es ist selbstverständlich, dass ein Programm nach der Erstellung getestet wird. Für den Fall, dass if- oder case-Anweisungen vorkommen, müssen alle Alternativen getestet werden (Überdeckungstest).

lokal