Sign in Join
Wiki copytemporary

Fortune program/de: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: Fortune program/de

OldNewLine
1+Zurück zur [[Console/de|Konsolenseite]].
2+
3+# Beschreibung
4+
5+Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.
6+
7+Das Program Sprüche wird über die Kommandozeile gestartet und ist ein Klon des Programmes Fortune.
8+
9+# Beispielcode
10+
11+``` pascal
12+{$mode objfpc}{$H+}
13+{$IMPLICITEXCEPTIONS OFF}
14+
15+uses
16+ SysUtils;
17+
18+type
19+ TSprueche = record
20+ strSpruch: string;
21+ strUrheber: string;
22+ end;
23+
24+ TSpruecheArray = array[0..27] of TSprueche;
25+
26+var
27+ arrSprueche: TSpruecheArray;
28+ lintZeigerAufSpruch: Longint = 0;
29+
30+ procedure subArrayFuellen;
31+ begin
32+ arrSprueche[0].strSpruch :=
33+ 'Einstein ist tot, Newton ist tot und mir ist auch schon ganz schlecht.';
34+ arrSprueche[0].strUrheber := 'unbekannt';
35+
36+ arrSprueche[1].strSpruch :=
37+ 'Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.';
38+ arrSprueche[1].strUrheber := 'unbekannt';
39+
40+ arrSprueche[2].strSpruch :=
41+ 'Die drei Feinde des Programmierer:' + #10 +
42+ 'Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.';
43+ arrSprueche[2].strUrheber := 'unbekannt';
44+
45+ arrSprueche[3].strSpruch :=
46+ 'Der Klügere gibt solange nach bis er der Dumme ist.';
47+ arrSprueche[3].strUrheber := 'unbekannt';
48+
49+ arrSprueche[4].strSpruch :=
50+ 'Ich weiß nicht viel lern aber dafür umso schneller!!';
51+ arrSprueche[4].strUrheber := 'unbekannt';
52+
53+ arrSprueche[5].strSpruch :=
54+ 'Der Kapitalismus basiert auf der merkwürdigen Überzeugung, ' + #10 +
55+ 'dass widerwärtige Menschen aus widerwärtigen Motiven, ' + #10 +
56+ 'irgendwie für das allgemeine Wohl sorgen werden.';
57+ arrSprueche[5].strUrheber := 'John Maynard Keynes (1883 - 1946), Ökonom';
58+
59+ arrSprueche[6].strSpruch :=
60+ 'Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.';
61+ arrSprueche[6].strUrheber := 'unbekannt';
62+
63+ arrSprueche[7].strSpruch :=
64+ 'Es gibt 10 Typen von Leuten - Solche die das Binärsystem verstehen und solche, die es nicht verstehen.';
65+ arrSprueche[7].strUrheber := 'unbekannt';
66+
67+ arrSprueche[8].strSpruch :=
68+ 'Die Erfahrung ist ein strenger Schulmeister:' + #10 +
69+ 'Sie prüft uns, bevor sie uns lehrt.';
70+ arrSprueche[8].strUrheber := 'unbekannt';
71+
72+ arrSprueche[9].strSpruch :=
73+ 'Programme gehorchen nicht Deinen Absichten, sondern Deinen Anweisungen.';
74+ arrSprueche[9].strUrheber := 'unbekannt';
75+
76+ arrSprueche[10].strSpruch :=
77+ 'Programme gehorchen nicht Deinen Absichten, sondern Deinen Anweisungen.';
78+ arrSprueche[10].strUrheber := 'unbekannt';
79+
80+ arrSprueche[11].strSpruch :=
81+ 'Es ist keine Kunst in ein Programm 20 Fehler zu schreiben.' + #10 +
82+ 'Die Kunst ist es das Programm dann noch zum laufen zu bekommen.';
83+ arrSprueche[11].strUrheber := 'unbekannt';
84+
85+ arrSprueche[12].strSpruch :=
86+ 'Die Mutter der Dummen ist immer schwanger.';
87+ arrSprueche[12].strUrheber := 'unbekannt';
88+
89+ arrSprueche[13].strSpruch :=
90+ 'Das Problem steckt meistens zwischen den Ohren.';
91+ arrSprueche[13].strUrheber := 'unbekannt';
92+
93+ arrSprueche[14].strSpruch :=
94+ 'Man muss viel gelernt haben, um das, was man nicht weiß, erfragen zu können.';
95+ arrSprueche[14].strUrheber := 'Jean-Jacques Rousseau (1712 - 1778)';
96+
97+ arrSprueche[15].strSpruch :=
98+ 'Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat.';
99+ arrSprueche[15].strUrheber := 'Winston Churchill (1874 - 1965)';
100+
101+ arrSprueche[16].strSpruch :=
102+ 'Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel.';
103+ arrSprueche[16].strUrheber := 'Friedrich Nietzsche (1844 - 1900)';
104+
105+ arrSprueche[17].strSpruch :=
106+ 'Wer Rechtschreibfehler findet, der darf sie behalten.';
107+ arrSprueche[17].strUrheber := 'unbekannt';
108+
109+ arrSprueche[17].strSpruch :=
110+ 'Der Horizont vieler Menschen ist ein Kreis mit Radius Null, und das nennen sie ihren Standpunkt.';
111+ arrSprueche[17].strUrheber := 'unbekannt';
112+
113+ arrSprueche[18].strSpruch :=
114+ 'Machmal scheint mir Denken wie ein Sechser im Lotto zu sein - reine Glückssache.';
115+ arrSprueche[18].strUrheber := 'unbekannt';
116+
117+ arrSprueche[19].strSpruch :=
118+ 'Ich habe zwar eine Lösung, aber sie paßt nicht zum Problem.';
119+ arrSprueche[19].strUrheber := 'unbekannt';
120+
121+ arrSprueche[20].strSpruch :=
122+ 'Ich bin Spezialist auf dem kleinsten Gebiet: Ich weiß von nix alles!';
123+ arrSprueche[20].strUrheber := 'unbekannt';
124+
125+ arrSprueche[21].strSpruch :=
126+ 'What I cannot create, I do not understand.';
127+ arrSprueche[21].strUrheber := 'Richard P. Feynman (1918 - 1988)';
128+
129+ arrSprueche[22].strSpruch :=
130+ 'Reden ist Silber, Schweigen ist Gold, meine Ausführungen sind Platin.';
131+ arrSprueche[22].strUrheber := 'unbekannt';
132+
133+ arrSprueche[23].strSpruch :=
134+ 'Auch ein Bonsai träumt von Größe.';
135+ arrSprueche[23].strUrheber := 'unbekannt';
136+
137+ arrSprueche[24].strSpruch :=
138+ 'Die drei "r" des Administrators:' + #10 +
139+ 'retry' + #10 +
140+ 'restart' + #10 +
141+ 'reinstall';
142+ arrSprueche[24].strUrheber := 'unbekannt';
143+
144+ arrSprueche[25].strSpruch :=
145+ 'Erzähl mir nicht, was nicht funktioniert, bis du nicht einen Vorschlag machen kannst, was besser wäre.';
146+ arrSprueche[25].strUrheber := 'Barak Obama (1961 - ...)';
147+
148+ arrSprueche[26].strSpruch :=
149+ 'Vollkommenes Glück ist das Nichtvorhandensein des Strebens nach Glück;' + #10 +
150+ 'vollkommenes Ansehen ist das Nichtvorhandensein des Strebens nach Ansehen.';
151+ arrSprueche[26].strUrheber := 'Laotse (6. Jh. v. Chr)';
152+
153+ arrSprueche[27].strSpruch :=
154+ 'Der Besitz macht uns nicht halb so glücklich, wie uns der Verlust unglücklich macht.';
155+ arrSprueche[27].strUrheber := 'Jean Paul (1763 - 1825), deutscher Schriftsteller';
156+
157+ arrSprueche[27].strSpruch :=
158+ 'Seltene Flüssigkeit mit 14 Buchstaben? Beamtenschweiß.';
159+ arrSprueche[27].strUrheber := 'unbekannt';
160+
161+ end;
162+
163+begin
164+ subArrayFuellen;
165+ Randomize;
166+ lintZeigerAufSpruch:=Random(28);
167+ WriteLn(arrSprueche[lintZeigerAufSpruch].strSpruch);
168+ WriteLn('Urheber: ' + arrSprueche[lintZeigerAufSpruch].strUrheber);
169+end.
170+```
171+
172+---
173+*From the Free Pascal wiki, page "Fortune program/de", as it stood on 2020-02-26 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*
174+Category: Console/de
175+Category: Example programs/de

Back to history