 |
|||
| HSG |
|
Die Sequenz
fehlt noch!
Die Alternative
procedure TForm1.bPruefeClick(Sender: TObject);
var
a,b : real;
begin
// Eingabe
a := StrToFloat(eA.Text); b := StrToFloat(eB.Text);
// Verarbeitung und Ausgabe
if a < b // logischer Ausdruck, true oder false
then
lVergleich.Caption := '<' // String in 'Hochkomma' !
else
lVergleich.Caption := '>=';
end;
Die Fallunterscheidung
fehlt noch!
Die for-Schleife
procedure TForm1.bGibausClick(Sender: TObject);
var
i : integer;
begin
// Ausgabe
for i := 1 to 10 do
mAusgabe.Lines.Add(IntToStr(i)+'. Ich darf meinen Lehrer nicht beißen!');
end;
Die while-Schleife
procedure TForm1.bRechneClick(Sender: TObject);
var
s,g : real;
n : integer;
begin
// Eingabe
g := StrToFloat(eG.Text);
// Verarbeitung
s := 0;
n := 0;
while s < g do
begin
n := n+1;
s := s+1/n;
end;
// Ausgabe
eN.Text := IntToStr(n);
end;
Die repeat-Schleife
fehlt noch!
