 |
|||
| HSG |
|
Struktogramm und Benutzeroberfläche (Benutzungsoberfläche, Graphical User Interface GUI)
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).
