Lazarus/Verzweigungen - Versionsgeschichte

Matthias Scharwies: Matthias Scharwies verschob die Seite Lazarus-Buch/Verzweigungen nach Lazarus/Verzweigungen: kürzere URL

2019-08-10T06:24:13Z

Matthias Scharwies verschob die Seite Lazarus-Buch/Verzweigungen nach Lazarus/Verzweigungen: kürzere URL

← Nächstältere Version

Version vom 10. August 2019, 06:24 Uhr

Matthias Scharwies: formatiert

2019-08-10T06:23:59Z

formatiert

← Nächstältere Version		Version vom 10. August 2019, 06:23 Uhr
Zeile 1:		Zeile 1:
	~~{{Lazarus-Buch}}~~
	== Wenn-Dann-Sonst (If-then-else) ==		== Wenn-Dann-Sonst (If-then-else) ==

	Bisher wurden die Computerprogramme strikt von oben nach unten abgearbeitet. Das ist aber nicht immer wünschenswert. Zum Beispiel kann es sein, dass bestimmte Programmteile nur dann ausgeführt werden, wenn bestimmte Bedingungen auch erfüllt sind. Wir alle kennen z.B. Passwort-Abfragen, bei denen Funktionen eines Programms oder einer Website nur dann funktionieren, wenn man das richtige Passwort angibt.		Bisher wurden die Computerprogramme strikt von oben nach unten abgearbeitet. Das ist aber nicht immer wünschenswert. Zum Beispiel kann es sein, dass bestimmte Programmteile nur dann ausgeführt werden, wenn bestimmte Bedingungen auch erfüllt sind. Wir alle kennen z.B. Passwort-Abfragen, bei denen Funktionen eines Programms oder einer Website nur dann funktionieren, wenn man das richtige Passwort angibt.

	=== Beispiel ===		=== Beispiel ===

	Wir betrachten das einfache Beispiel eines Lazarus-Programms mit zwei Edit-Feldern, <tt>Edit1</tt> und <tt>Edit2</tt> und einem Button <tt>Button1</tt>. Wenn der Button1 gedrückt wird, soll der Computer die Eingabe in <tt>Edit1</tt> überprüfen. Steht darin das richtige Passwort ("geheim"), so soll in <tt>Edit2</tt> angezeigt werden: "Sie sind angemeldet!"		Wir betrachten das einfache Beispiel eines Lazarus-Programms mit zwei Edit-Feldern, <tt>Edit1</tt> und <tt>Edit2</tt> und einem Button <tt>Button1</tt>. Wenn der Button1 gedrückt wird, soll der Computer die Eingabe in <tt>Edit1</tt> überprüfen. Steht darin das richtige Passwort ("geheim"), so soll in <tt>Edit2</tt> angezeigt werden: "Sie sind angemeldet!"

	~~{{blau\|~~<source line highlight="35-39" lang="pascal">		<source line highlight="35-39" lang="pascal">
	unit passwort;		unit passwort;

Zeile 50:		Zeile 47:

	end.		end.
	</source>}}		</source>

	Das Programm ist allerdings noch nicht besonders benutzerfreundlich. Gibt der Benutzer z.B. ein falsches Passwort ein, so erhält er gar keine Nachricht. Es passiert einfach nichts.		Das Programm ist allerdings noch nicht besonders benutzerfreundlich. Gibt der Benutzer z.B. ein falsches Passwort ein, so erhält er gar keine Nachricht. Es passiert einfach nichts.

	Das kann man ändern. Im Falle, dass die Eingabe nicht 'geheim' lautet, soll in Edit2 die Bemerkung: 'Falsches Passwort' ausgegeben werden.		Das kann man ändern. Im Falle, dass die Eingabe nicht 'geheim' lautet, soll in Edit2 die Bemerkung: 'Falsches Passwort' ausgegeben werden.
	~~{{blau\|~~<source line start=35 highlight="1-6" lang="pascal">		<source line start=35 highlight="1-6" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	begin		begin
Zeile 62:		Zeile 59:
	else Edit2.Text:='Falsches Passwort';		else Edit2.Text:='Falsches Passwort';
	end;		end;
	</source>}}		</source>

	=== Wichtige Anmerkungen ===		=== Wichtige Anmerkungen ===
Zeile 71:		Zeile 68:
	== Mehrere Anweisungen zu einem Block gruppieren==		== Mehrere Anweisungen zu einem Block gruppieren==
	Bisher wird in jedem der beiden Fälle genau eine einzelne Anweisung ausgeführt. Es kann aber leicht sein, dass nur im Fall einer erfüllten (oder auch nicht erfüllten) Bedingung gleich mehrere Anweisungen ausgeführt werden sollen. Im nächsten Beispiel soll z.B. bei einer falschen Eingabe auf dem Button die Beschriftung zu 'Nochmal versuchen' geändert weden:		Bisher wird in jedem der beiden Fälle genau eine einzelne Anweisung ausgeführt. Es kann aber leicht sein, dass nur im Fall einer erfüllten (oder auch nicht erfüllten) Bedingung gleich mehrere Anweisungen ausgeführt werden sollen. Im nächsten Beispiel soll z.B. bei einer falschen Eingabe auf dem Button die Beschriftung zu 'Nochmal versuchen' geändert weden:
	~~{{blau\|~~<source line start=36 highlight="1-9" lang="pascal">		<source line start=36 highlight="1-9" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	begin		begin
Zeile 81:		Zeile 78:
	end		end
	end;		end;
	</source>}}		</source>

	Die beiden Anweisungen zum Verändern von <tt>Edit2.Text</tt> und <tt>Button1.Caption</tt> sind durch ein <tt>begin</tt> und ein <tt>end</tt> umrahmt. Manche Leute sprechen von einem '''Programm-Block'''. Natürlich kann auch hinter <tt>then</tt> ein Programm-Block stehen: Aber Vorsicht: Hinter diesem <tt>end</tt> steht dann wieder kein Semikolon.		Die beiden Anweisungen zum Verändern von <tt>Edit2.Text</tt> und <tt>Button1.Caption</tt> sind durch ein <tt>begin</tt> und ein <tt>end</tt> umrahmt. Manche Leute sprechen von einem '''Programm-Block'''. Natürlich kann auch hinter <tt>then</tt> ein Programm-Block stehen: Aber Vorsicht: Hinter diesem <tt>end</tt> steht dann wieder kein Semikolon.

Zeile 128:		Zeile 126:
	Folgendes Programmstück könnte die Aufgabe lösen. Trotzdem erscheint es eben etwas umständlich mit den ganzen or-Verknüpfungen zwischen den Einzelbedingungen.		Folgendes Programmstück könnte die Aufgabe lösen. Trotzdem erscheint es eben etwas umständlich mit den ganzen or-Verknüpfungen zwischen den Einzelbedingungen.

	~~{{blau\|~~<source line highlight="5-10" lang="pascal">		<source line highlight="5-10" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	var nummer, anzahltage : integer;		var nummer, anzahltage : integer;
Zeile 142:		Zeile 140:
	end;		end;

	</source>}}		</source>

	Das Gleiche tut jedoch auch folgendes Programm, das für die Werte der Variablen "nummer" eine entsprechende Fallunterscheidung vornimmt.		Das Gleiche tut jedoch auch folgendes Programm, das für die Werte der Variablen "nummer" eine entsprechende Fallunterscheidung vornimmt.

	~~{{blau\|~~<source line highlight="5-9" lang="pascal">		<source line highlight="5-9" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	var nummer, anzahltage : integer;		var nummer, anzahltage : integer;
Zeile 158:		Zeile 156:
	label1.Caption:=IntToStr(anzahltage);		label1.Caption:=IntToStr(anzahltage);
	end;		end;
	</source>}}		</source>

	=~~=Aufgaben==~~		{{Aufgabe\|1=#'''Abgestufte Höflichkeit'''<br>In dem Edit-Feld <tt>Edit</tt> soll ein Vorname eingegeben werden. Wenn es Dein eigener ist, dann soll der Computer gehorsam mit "Willkommen mein Herr und Meister" begrüßen; ansonsten (etwas unfreundicher) mit "Was willst Du?".
	#'''Abgestufte Höflichkeit'''<br>In dem Edit-Feld <tt>Edit</tt> soll ein Vorname eingegeben werden. Wenn es Dein eigener ist, dann soll der Computer gehorsam mit "Willkommen mein Herr und Meister" begrüßen; ansonsten (etwas unfreundicher) mit "Was willst Du?".
	#'''Alltag: Volljährigkeit'''<br>Ist der Bürger 18 Jahre und älter, dann ist er volljährig. Ein Computerprogramm soll auf Knopfdruck das Alter eines Bürgers aus dem Feld <tt>Edit1</tt> einlesen und in das Feld <tt>Edit2</tt> ausgeben, ob er volljährig ist.		#'''Alltag: Volljährigkeit'''<br>Ist der Bürger 18 Jahre und älter, dann ist er volljährig. Ein Computerprogramm soll auf Knopfdruck das Alter eines Bürgers aus dem Feld <tt>Edit1</tt> einlesen und in das Feld <tt>Edit2</tt> ausgeben, ob er volljährig ist.
	#'''Mathematik: Intervall-Prüfung'''<br>Eine Zahl wird in einer Edit-Komponente eingegeben. Das Programm soll entscheiden, ob diese Zahl zwischen 10 und 20 liegt.		#'''Mathematik: Intervall-Prüfung'''<br>Eine Zahl wird in einer Edit-Komponente eingegeben. Das Programm soll entscheiden, ob diese Zahl zwischen 10 und 20 liegt.
Zeile 167:		Zeile 164:
	#'''Mathematik: pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).		#'''Mathematik: pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).
	#'''Alltag: Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.		#'''Alltag: Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.
	#'''Spiele: Farbe einer Roulette-Zahl'''<br>Im Roulette-Spiel gibt es Zahlen zwischen 0 und 36. Die Null hat keine Farbe, sie ist einfach die Null (ZERO). Die Farben der anderen Zahlen sind mehr oder weniger willkürlich, aber schließlich gibt es Abbildungen von Roulette-Tischen im Internet. Schreibe ein Programm, das die Farbe zu einer eingegebenen Roulette-Zahl ermittelt.		#'''Spiele: Farbe einer Roulette-Zahl'''<br>Im Roulette-Spiel gibt es Zahlen zwischen 0 und 36. Die Null hat keine Farbe, sie ist einfach die Null (ZERO). Die Farben der anderen Zahlen sind mehr oder weniger willkürlich, aber schließlich gibt es Abbildungen von Roulette-Tischen im Internet. Schreibe ein Programm, das die Farbe zu einer eingegebenen Roulette-Zahl ermittelt.}}


	{{Lazarus-Buch}}		{{Lazarus-Buch}}

Matthias Scharwies: 33 Versionen importiert

2019-08-10T05:00:15Z

33 Versionen importiert

← Nächstältere Version

Version vom 10. August 2019, 05:00 Uhr

Karl Kirst: Kasten blau/gelb -> blau/gelb

2018-04-18T21:39:02Z

Kasten blau/gelb -> blau/gelb

main>Peterdauscher: /* Aufgaben */

2014-09-11T08:09:37Z

Aufgaben

← Nächstältere Version		Version vom 11. September 2014, 08:09 Uhr
Zeile 162:		Zeile 162:
	==Aufgaben==		==Aufgaben==
	#'''Abgestufte Höflichkeit'''<br>In dem Edit-Feld <tt>Edit</tt> soll ein Vorname eingegeben werden. Wenn es Dein eigener ist, dann soll der Computer gehorsam mit "Willkommen mein Herr und Meister" begrüßen; ansonsten (etwas unfreundicher) mit "Was willst Du?".		#'''Abgestufte Höflichkeit'''<br>In dem Edit-Feld <tt>Edit</tt> soll ein Vorname eingegeben werden. Wenn es Dein eigener ist, dann soll der Computer gehorsam mit "Willkommen mein Herr und Meister" begrüßen; ansonsten (etwas unfreundicher) mit "Was willst Du?".
	#'''Volljährigkeit'''<br>Ist der Bürger 18 Jahre und älter, dann ist er volljährig. Ein Computerprogramm soll auf Knopfdruck das Alter eines Bürgers aus dem Feld <tt>Edit1</tt> einlesen und in das Feld <tt>Edit2</tt> ausgeben, ob er volljährig ist.		#'''Alltag: Volljährigkeit'''<br>Ist der Bürger 18 Jahre und älter, dann ist er volljährig. Ein Computerprogramm soll auf Knopfdruck das Alter eines Bürgers aus dem Feld <tt>Edit1</tt> einlesen und in das Feld <tt>Edit2</tt> ausgeben, ob er volljährig ist.
	#'''Intervall-Prüfung'''<br>Eine Zahl wird in einer Edit-Komponente eingegeben. Das Programm soll entscheiden, ob diese Zahl zwischen 10 und 20 liegt.		#'''Mathematik: Intervall-Prüfung'''<br>Eine Zahl wird in einer Edit-Komponente eingegeben. Das Programm soll entscheiden, ob diese Zahl zwischen 10 und 20 liegt.
	#'''Gefährliche Knöpfe'''<br>Manche Aktionen bei Computerprogrammen sind so risikoreich, dass der Benutzer nicht einmal, sondern dreimal auf den entsprechenden Button klicken sollte, bevor sie ausgeführt werden. Schreibe ein Programm mit dem Knopf "Selbstzerstörung starten", den man drei mal drücken muss, bevor in einem Label der Text: "Selbstzerstörung ist aktiviert" erscheint und der Button selbst unsichtbar wird.		#'''Informatik: Gefährliche Knöpfe'''<br>Manche Aktionen bei Computerprogrammen sind so risikoreich, dass der Benutzer nicht einmal, sondern dreimal auf den entsprechenden Button klicken sollte, bevor sie ausgeführt werden. Schreibe ein Programm mit dem Knopf "Selbstzerstörung starten", den man drei mal drücken muss, bevor in einem Label der Text: "Selbstzerstörung ist aktiviert" erscheint und der Button selbst unsichtbar wird.
	#'''pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).		#'''Mathematik: pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).
	#'''Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.		#'''Alltag: Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.
	#'''Farbe einer Roulette-Zahl'''<br>Im Roulette-Spiel gibt es Zahlen zwischen 0 und 36. Die Null hat keine Farbe, sie ist einfach die Null (ZERO). Die Farben der anderen Zahlen sind mehr oder weniger willkürlich, aber schließlich gibt es Abbildungen von Roulette-Tischen im Internet. Schreibe ein Programm, das die Farbe zu einer eingegebenen Roulette-Zahl ermittelt.		#'''Spiele: Farbe einer Roulette-Zahl'''<br>Im Roulette-Spiel gibt es Zahlen zwischen 0 und 36. Die Null hat keine Farbe, sie ist einfach die Null (ZERO). Die Farben der anderen Zahlen sind mehr oder weniger willkürlich, aber schließlich gibt es Abbildungen von Roulette-Tischen im Internet. Schreibe ein Programm, das die Farbe zu einer eingegebenen Roulette-Zahl ermittelt.

	{{Lazarus-Buch}}		{{Lazarus-Buch}}

main>Roidman: /* Mehrere Anweisungen zu einem Block gruppieren */

2014-09-04T19:31:57Z

Mehrere Anweisungen zu einem Block gruppieren

← Nächstältere Version		Version vom 4. September 2014, 19:31 Uhr
Zeile 79:		Zeile 79:
	Edit2.Text:='Falsches Passwort';		Edit2.Text:='Falsches Passwort';
	Button1.Caption:='Nochmal versuchen';		Button1.Caption:='Nochmal versuchen';
	end;		end
	end;		end;
	</source>}}		</source>}}
	Die beiden Anweisungen zum Verändern von <tt>Edit2.Text</tt> und <tt>Button1.Caption</tt> sind durch ein <tt>begin</tt> und ein <tt>end</tt> umrahmt. Manche Leute sprechen von einem '''Programm-Block'''. Natürlich kann auch hinter <tt>then</tt> ein Programm-Block stehen: Aber Vorsicht: Hinter ~~dem~~ <tt>end</tt> steht dann wieder kein Semikolon.		Die beiden Anweisungen zum Verändern von <tt>Edit2.Text</tt> und <tt>Button1.Caption</tt> sind durch ein <tt>begin</tt> und ein <tt>end</tt> umrahmt. Manche Leute sprechen von einem '''Programm-Block'''. Natürlich kann auch hinter <tt>then</tt> ein Programm-Block stehen: Aber Vorsicht: Hinter diesem <tt>end</tt> steht dann wieder kein Semikolon.

	== Vergleiche von Zahlen ==		== Vergleiche von Zahlen ==

main>Peterdauscher: /* Aufgaben */

2014-04-18T14:16:06Z

Aufgaben

← Nächstältere Version		Version vom 18. April 2014, 14:16 Uhr
Zeile 167:		Zeile 167:
	#'''pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).		#'''pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).
	#'''Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.		#'''Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.
			#'''Farbe einer Roulette-Zahl'''<br>Im Roulette-Spiel gibt es Zahlen zwischen 0 und 36. Die Null hat keine Farbe, sie ist einfach die Null (ZERO). Die Farben der anderen Zahlen sind mehr oder weniger willkürlich, aber schließlich gibt es Abbildungen von Roulette-Tischen im Internet. Schreibe ein Programm, das die Farbe zu einer eingegebenen Roulette-Zahl ermittelt.

	{{Lazarus-Buch}}		{{Lazarus-Buch}}

main>Peterdauscher: /* Mehrfach-Fallunterscheidungen */

2014-04-18T13:18:23Z

Mehrfach-Fallunterscheidungen

@@ Zeile 126: / Zeile 126: @@
 Bisher wurde nur immer eine Bedingung geprüft und je nachdem ob sie erfüllt war (oder auch nicht) eine bestimmte Abfolge von Befehlen ausgeführt. Damit lassen sich im Grunde alle möglichen Abfragen realisieren, wenn auch manchmal recht umständlich.
 Angenommen, man wollte für einen Monat (angegeben wäre die Nummer des Monats im Jahr) wissen, wie viele Tage er hat (wir vernachlässigen Schaltjahre).
 ==Aufgaben==

main>Peterdauscher: /* Verknüpfung von Bedingungen */

2014-04-18T13:08:26Z

Verknüpfung von Bedingungen

← Nächstältere Version		Version vom 18. April 2014, 13:08 Uhr
Zeile 120:		Zeile 120:

	Es ist generell sinnvoll, die einzelnen Bedingungen jeweils in Klammern zu setzen. Erstens erhöht es die Übersichtlichkeit und zweitens kann es bei fehlenden Klammern auch zu Problemen mit dem Compiler kommen.		Es ist generell sinnvoll, die einzelnen Bedingungen jeweils in Klammern zu setzen. Erstens erhöht es die Übersichtlichkeit und zweitens kann es bei fehlenden Klammern auch zu Problemen mit dem Compiler kommen.


			== Mehrfach-Fallunterscheidungen ==

			Bisher wurde nur immer eine Bedingung geprüft und je nachdem ob sie erfüllt war (oder auch nicht) eine bestimmte Abfolge von Befehlen ausgeführt. Damit lassen sich im Grunde alle möglichen Abfragen realisieren, wenn auch manchmal recht umständlich.
			Angenommen, man wollte für einen Monat (angegeben wäre die Nummer des Monats im Jahr) wissen, wie viele Tage er hat (wir vernachlässigen Schaltjahre).

	==Aufgaben==		==Aufgaben==

main>Peterdauscher: /* Aufgaben */

2014-03-11T09:25:24Z

Aufgaben

← Nächstältere Version		Version vom 11. März 2014, 09:25 Uhr
Zeile 127:		Zeile 127:
	#'''Gefährliche Knöpfe'''<br>Manche Aktionen bei Computerprogrammen sind so risikoreich, dass der Benutzer nicht einmal, sondern dreimal auf den entsprechenden Button klicken sollte, bevor sie ausgeführt werden. Schreibe ein Programm mit dem Knopf "Selbstzerstörung starten", den man drei mal drücken muss, bevor in einem Label der Text: "Selbstzerstörung ist aktiviert" erscheint und der Button selbst unsichtbar wird.		#'''Gefährliche Knöpfe'''<br>Manche Aktionen bei Computerprogrammen sind so risikoreich, dass der Benutzer nicht einmal, sondern dreimal auf den entsprechenden Button klicken sollte, bevor sie ausgeführt werden. Schreibe ein Programm mit dem Knopf "Selbstzerstörung starten", den man drei mal drücken muss, bevor in einem Label der Text: "Selbstzerstörung ist aktiviert" erscheint und der Button selbst unsichtbar wird.
	#'''pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).		#'''pq: Mission (im)possible'''<br>Eine quadratische Funktion sei definiert als <math>f(x)=x^2+px+q</math>. Die so genannte pq-Formel gibt an, welche Nullstellen eine solche Funktion hat: <br/> <math>x_{1/2}=-\frac{p}{2}\pm\sqrt{\frac{p^2}{4}-q}</math> <br/> Ein Programm soll geschrieben werden, das die Werte p und q aus zwei Edit-Komponenten ausliest und in zwei weitere Edit-Komponenten die Werte der beiden Nullstellen schreibt. Vorausgesetzt natürlich, dass die Funktion überhaupt (reelle) Nullstellen hat (was nicht immer der Fall ist).
			#'''Schaltjahr oder nicht'''<br>Führe eine Internet-Recherche durch, wie man bei einer gegebenen Jahreszahl herausbekommen kann, ob es sich um ein Schaltjahr handelt oder nicht. Schreibe ein Programm, das nach Angabe einer Jahreszahl eine entsprechende Ausgabe zurückliefert.


	{{Lazarus-Buch}}		{{Lazarus-Buch}}

← Nächstältere Version		Version vom 18. April 2018, 21:39 Uhr
Zeile 8:		Zeile 8:
	Wir betrachten das einfache Beispiel eines Lazarus-Programms mit zwei Edit-Feldern, <tt>Edit1</tt> und <tt>Edit2</tt> und einem Button <tt>Button1</tt>. Wenn der Button1 gedrückt wird, soll der Computer die Eingabe in <tt>Edit1</tt> überprüfen. Steht darin das richtige Passwort ("geheim"), so soll in <tt>Edit2</tt> angezeigt werden: "Sie sind angemeldet!"		Wir betrachten das einfache Beispiel eines Lazarus-Programms mit zwei Edit-Feldern, <tt>Edit1</tt> und <tt>Edit2</tt> und einem Button <tt>Button1</tt>. Wenn der Button1 gedrückt wird, soll der Computer die Eingabe in <tt>Edit1</tt> überprüfen. Steht darin das richtige Passwort ("geheim"), so soll in <tt>Edit2</tt> angezeigt werden: "Sie sind angemeldet!"

	{{~~kasten_blau~~\|<source line highlight="35-39" lang="pascal">		{{blau\|<source line highlight="35-39" lang="pascal">
	unit passwort;		unit passwort;

Zeile 55:		Zeile 55:

	Das kann man ändern. Im Falle, dass die Eingabe nicht 'geheim' lautet, soll in Edit2 die Bemerkung: 'Falsches Passwort' ausgegeben werden.		Das kann man ändern. Im Falle, dass die Eingabe nicht 'geheim' lautet, soll in Edit2 die Bemerkung: 'Falsches Passwort' ausgegeben werden.
	{{~~kasten_blau~~\|<source line start=35 highlight="1-6" lang="pascal">		{{blau\|<source line start=35 highlight="1-6" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	begin		begin
Zeile 71:		Zeile 71:
	== Mehrere Anweisungen zu einem Block gruppieren==		== Mehrere Anweisungen zu einem Block gruppieren==
	Bisher wird in jedem der beiden Fälle genau eine einzelne Anweisung ausgeführt. Es kann aber leicht sein, dass nur im Fall einer erfüllten (oder auch nicht erfüllten) Bedingung gleich mehrere Anweisungen ausgeführt werden sollen. Im nächsten Beispiel soll z.B. bei einer falschen Eingabe auf dem Button die Beschriftung zu 'Nochmal versuchen' geändert weden:		Bisher wird in jedem der beiden Fälle genau eine einzelne Anweisung ausgeführt. Es kann aber leicht sein, dass nur im Fall einer erfüllten (oder auch nicht erfüllten) Bedingung gleich mehrere Anweisungen ausgeführt werden sollen. Im nächsten Beispiel soll z.B. bei einer falschen Eingabe auf dem Button die Beschriftung zu 'Nochmal versuchen' geändert weden:
	{{~~kasten_blau~~\|<source line start=36 highlight="1-9" lang="pascal">		{{blau\|<source line start=36 highlight="1-9" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	begin		begin
Zeile 128:		Zeile 128:
	Folgendes Programmstück könnte die Aufgabe lösen. Trotzdem erscheint es eben etwas umständlich mit den ganzen or-Verknüpfungen zwischen den Einzelbedingungen.		Folgendes Programmstück könnte die Aufgabe lösen. Trotzdem erscheint es eben etwas umständlich mit den ganzen or-Verknüpfungen zwischen den Einzelbedingungen.

	{{~~kasten_blau~~\|<source line highlight="5-10" lang="pascal">		{{blau\|<source line highlight="5-10" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	var nummer, anzahltage : integer;		var nummer, anzahltage : integer;
Zeile 146:		Zeile 146:
	Das Gleiche tut jedoch auch folgendes Programm, das für die Werte der Variablen "nummer" eine entsprechende Fallunterscheidung vornimmt.		Das Gleiche tut jedoch auch folgendes Programm, das für die Werte der Variablen "nummer" eine entsprechende Fallunterscheidung vornimmt.

	{{~~kasten_blau~~\|<source line highlight="5-9" lang="pascal">		{{blau\|<source line highlight="5-9" lang="pascal">
	procedure TForm1.Button1Click(Sender: TObject);		procedure TForm1.Button1Click(Sender: TObject);
	var nummer, anzahltage : integer;		var nummer, anzahltage : integer;