Forums Neueste Beiträge
 

Informatik für Physiker, 3. Vorlesung ( elseif )

23/05/2013 - 22:35 von Peter Müller | Report spam
Pascal
IF bedingung_1 THEN
anweisung_1 {einfache Anweisung oder Verbundanweisung}
ELSE IF bedingung_2 THEN
anweisung_2 {einfache Anweisung oder Verbundanweisung}
...
ELSE
anweisung_n; {einfache Anweisung oder Verbundanweisung}

Beispiel:
TYPE wtag = (montag, dienstag, mittwoch, donnerstag, freitag,
samstag, sonntag);
VAR wochentag : wtag;
konto, minimum : REAL;

IF (wochentag = samstag) AND ( konto > minimum ) THEN
feiern
ELSE IF (wochentag = sonntag) AND ( konto > minimum ) THEN
ausruhen
ELSE
arbeiten;

Verschachtelte IF-Anweisungen
Ein ELSE wird immer dem "nàchsten" IF zugeordnet.

Beispiel:


IF b1 THEN IF b2 THEN stmt1 ELSE stmt2;

wird interpretiert wie
IF b1 THEN BEGIN
IF b2 THEN
stmt1
ELSE
stmt2;
END;
 

Lesen sie die antworten

#1 Robert Rohling
23/05/2013 - 23:29 | Warnen spam
Peter Müller wrote in news:02bbba4a-a72c-4546-a8da-
:

Pascal
IF bedingung_1 THEN
anweisung_1 {einfache Anweisung oder Verbundanweisung}
ELSE IF bedingung_2 THEN
anweisung_2 {einfache Anweisung oder Verbundanweisung}
...
ELSE
anweisung_n; {einfache Anweisung oder Verbundanweisung}

Beispiel:
TYPE wtag = (montag, dienstag, mittwoch, donnerstag, freitag,
samstag, sonntag);
VAR wochentag : wtag;
konto, minimum : REAL;

IF (wochentag = samstag) AND ( konto > minimum ) THEN
feiern
ELSE IF (wochentag = sonntag) AND ( konto > minimum ) THEN
ausruhen
ELSE
arbeiten;

Verschachtelte IF-Anweisungen
Ein ELSE wird immer dem "nàchsten" IF zugeordnet.

Beispiel:


IF b1 THEN IF b2 THEN stmt1 ELSE stmt2;

wird interpretiert wie
IF b1 THEN BEGIN
IF b2 THEN
stmt1
ELSE
stmt2;




Option Explicit

Dim i As Single
Dim a As String
Dim semester As Double



Private Sub Command1_Click()

semester = Int(Rnd() * 1E+308)
Text1.Text = "Mein Professor und ich im " & semester & "ten Semester"




a = ""
For i = 1 To Rnd() * 500
If Rnd() < 0.5 Then
a = a & "bla "
Else: a = a & "blubb "
End If
Next i
Text2.Text = a

End Sub



Gruß R.R.

Ich bin unschuldig, ich hab sie nicht gewàhlt!

Ähnliche fragen