trivial/de: what changed

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

Old	New		Line
1	1		Zurück zur [[Console/de\|Konsolenseite]].
2	2
3	3		Dieses Spiel Trivial ist ein einfaches Spiel für die Konsole (Windows), das Terminal (Linux) oder auch für die Kommandozeile (DOS).
4	4
5	5		Das Spiel soll die Möglichkeiten von Free Pascal demonstrieren.
6	6
7	7		Dieses Spiel hat keine Hilfe.
8	8
9	9		Das Programm wird durch das drücken einer der Tasten \<ESC\>, oder \<E\> beendet.
10	10
11	11		Das Hauptprogramm trivial ruft die einzelnen Unterprogramme auf:
12	12
13	13		``` pascal
14	14		program trivial;
15	15
16	16		{$mode objfpc}{$H+}
17	17		{$IMPLICITEXCEPTIONS OFF}
18	18
19	19		uses
20	20		uDateiEinLesen,
21	21		uSpielLogik,
22	22		uAusgabe,
23	23		Crt;
24	24
25	25		{$R *.res}
26	26
27	27		begin
28	28
29	29		// Liest die Datei mit den Fragen ein
30	30		subDateiEinlesen;
31	31		repeat
32	32
33	33		subFragenReihenfolge;
34	34		subAusgabe;
35	35		subEingabe;
36	36		// Zwei Sekunden Pause
37	37		Delay(2000);
38	38		until 0 > 1;
39	39
40	40		end.
41	41		```
42	42
43	43		Die Unit subDateiEinlesen.pas liest die Textdatei mit den Fragen ein.\
44	44		Die Datei mit den Fragen hat folgendes Format:\
45	45		* Die Datei mit den Fragen ist eine csv-Datei ohne Kopfzeile und ohne Größenbegrenzung.
46	46
47	47		- Das Trennzeichen zwischen der Frage und den möglichen Antworten ist das Semikolon.
48	48		- Die erste Antwort, die nach der Fage kommt ist die richtige Antwort.
49	49
50	50		``` pascal
51	51		unit uDateiEinLesen;
52	52
53	53		{$mode objfpc}{$H+}
54	54		{$IMPLICITEXCEPTIONS OFF}
55	55
56	56		interface
57	57
58	58		uses
59	59		SysUtils, uSpielLogik;
60	60
61	61		var
62	62		intSemikolonZaehler: integer = 0;
63	63
64	64		procedure subDateiEinlesen;
65	65
66	66		implementation
67	67
68	68		procedure subArrayZuWeisen(strDateiInhalt: string);
69	69		var
70	70		intI: integer = 0;
71	71		//intSemikolonZaehler: integer = 0;
72	72		intarrLaenge: integer = 0;
73	73
74	74		begin
75	75
76	76		// prüft, ob ein leerer String übergeben wurde
77	77		if strDateiInhalt = '' then
78	78		Exit;
79	79
80	80		// setzt den Semikolonzähler wieder auf 0
81	81		intSemikolonZaehler := 0;
82	82
83	83		// Legt die neue Grösse des Arrays fest
84	84		intarrLaenge := length(arrTrivial);
85	85		SetLength(arrTrivial, intarrLaenge + 1);
86	86
87	87		for intI := 0 to length(strDateiInhalt) do
88	88		begin
89	89
90	90		if strDateiInhalt[intI] = ';' then
91	91		intSemikolonZaehler := intSemikolonZaehler + 1
92	92		else
93	93		begin
94	94
95	95		case intSemikolonZaehler of
96	96		0:
97	97		arrTrivial[intarrLaenge].strFrage :=
98	98		arrTrivial[intarrLaenge].strFrage + strDateiInhalt[intI];
99	99		1:
100	100		arrTrivial[intarrLaenge].strAntwort1 :=
101	101		arrTrivial[intarrLaenge].strAntwort1 + strDateiInhalt[intI];
102	102		2:
103	103		arrTrivial[intarrLaenge].strAntwort2 :=
104	104		arrTrivial[intarrLaenge].strAntwort2 + strDateiInhalt[intI];
105	105		3:
106	106		arrTrivial[intarrLaenge].strAntwort3 :=
107	107		arrTrivial[intarrLaenge].strAntwort3 + strDateiInhalt[intI];
108	108		end;
109	109
110	110		end;
111	111
112	112		end;
113	113
114	114		end;
115	115
116	116		procedure subDateiEinlesen;
117	117		var
118	118		datDatei: TextFile;
119	119		strDateiInhalt: string;
120	120
121	121		begin
122	122
123	123		// öffnet die Datei
124	124		AssignFile(datDatei, 'Trivial.txt');
125	125		// setzt den Dateizeiger auf den Anfang der Datei
126	126		Reset(datDatei);
127	127
128	128		// liest die Datei bis zu ihrem Ende ein
129	129		while not EOF(datDatei) do
130	130		begin
131	131		ReadLn(datDatei, strDateiInhalt);
132	132		if strDateiInhalt <> '' then
133	133		subArrayZuWeisen(strDateiInhalt);
134	134		end;
135	135
136	136		//Schliesst die Datei
137	137		CloseFile(datDatei);
138	138
139	139		end;
140	140
141	141		end.
142	142		```
143	143
144	144		Die Unit uSpiellogik.pas enthält die Spielsteuerung.
145	145
146	146		Hier befindet sich auch die Anweisung für den Programmabbruch.
147	147
148	148		Die Tasten \<ESC\>, oder \<E\> beenden das Programm.
149	149
150	150		``` pascal
151	151		unit uSpielLogik;
152	152
153	153		{$mode objfpc}{$H+}
154	154		{$IMPLICITEXCEPTIONS OFF}
155	155
156	156		interface
157	157
158	158		uses
159	159		SysUtils, crt;
160	160
161	161		type
162	162		TTrivial = record
163	163		strFrage: string;
164	164		strAntwort1: string;
165	165		strAntwort2: string;
166	166		strAntwort3: string;
167	167		end;
168	168
169	169		type
170	170		TAntwort = record
171	171		strAntwort1: string;
172	172		strAntwort2: string;
173	173		strAntwort3: string;
174	174		end;
175	175
176	176		var
177	177		arrTrivial: array of TTrivial;
178	178		typeAntwort: TAntwort;
179	179
180	180		const
181	181		// Die Konstanten sind typisierte Konstanten
182	182		conintZufallszahlAntwort: integer = 0;
183	183		conintZufallszahlArray: integer = 0;
184	184
185	185		procedure subFragenReihenfolge;
186	186		procedure subEingabe;
187	187
188	188		implementation
189	189
190	190		uses
191	191		uAusgabe;
192	192
193	193		procedure subZufallszahlArray;
194	194		begin
195	195		randomize;
196	196		conintZufallszahlArray := random(length(arrTrivial));
197	197		end;
198	198
199	199		procedure subZufallszahlAntwort;
200	200		begin
201	201		randomize;
202	202
203	203		// Da die Verteilung der Zufallszahlen bei random(2) + 1 zu ungenau ist,
204	204		// wurde dieser Lösungsansatz gewählt:
205	205		conintZufallszahlAntwort := random(29) + 1;
206	206
207	207		if (conintZufallszahlAntwort mod 3) = 0 then
208	208		conintZufallszahlAntwort := 3
209	209		else if (conintZufallszahlAntwort mod 2) = 0 then
210	210		conintZufallszahlAntwort := 2
211	211		else
212	212		conintZufallszahlAntwort := 1;
213	213
214	214		// Alternativ zu obigen Weg geht auch dieser Weg:
215	215		{case conintZufallszahlAntwort of
216	216		3, 6, 9, 12, 15, 18, 21, 24, 27, 30:
217	217		conintZufallszahlAntwort := 3;
218	218		2, 4, 8, 10, 14, 16, 20, 22, 26, 28:
219	219		conintZufallszahlAntwort := 2;
220	220		else
221	221		conintZufallszahlAntwort := 1;
222	222		end;}
223	223
224	224		end;
225	225
226	226		procedure subFragenReihenfolge;
227	227		begin
228	228		// Wählt die Frage aus
229	229		subZufallszahlArray;
230	230		// Wählt aus, an welcher Stelle
231	231		// die richtige Antwort erscheinen soll
232	232		subZufallszahlAntwort;
233	233
234	234		case conintZufallszahlAntwort of
235	235		1:
236	236		begin
237	237		typeAntwort.strAntwort1 := arrTrivial[conintZufallszahlArray].strAntwort1;
238	238		typeAntwort.strAntwort2 := arrTrivial[conintZufallszahlArray].strAntwort2;
239	239		typeAntwort.strAntwort3 := arrTrivial[conintZufallszahlArray].strAntwort3;
240	240		end;
241	241		2:
242	242		begin
243	243		typeAntwort.strAntwort1 := arrTrivial[conintZufallszahlArray].strAntwort2;
244	244		typeAntwort.strAntwort2 := arrTrivial[conintZufallszahlArray].strAntwort3;
245	245		typeAntwort.strAntwort3 := arrTrivial[conintZufallszahlArray].strAntwort1;
246	246		end;
247	247		3:
248	248		begin
249	249		typeAntwort.strAntwort1 := arrTrivial[conintZufallszahlArray].strAntwort3;
250	250		typeAntwort.strAntwort2 := arrTrivial[conintZufallszahlArray].strAntwort1;
251	251		typeAntwort.strAntwort3 := arrTrivial[conintZufallszahlArray].strAntwort2;
252	252		end;
253	253		else
254	254		begin
255	255		typeAntwort.strAntwort1 := ' Fehler ' + IntToStr(conintZufallszahlAntwort);
256	256		typeAntwort.strAntwort2 := ' Fehler ' + IntToStr(conintZufallszahlAntwort);
257	257		typeAntwort.strAntwort3 := ' Fehler ' + IntToStr(conintZufallszahlAntwort);
258	258		end;
259	259		end;
260	260		end;
261	261
262	262		procedure subEingabe;
263	263		var
264	264		chrEingabe: char = ' ';
265	265
266	266		begin
267	267
268	268		// Wandelt Tastatureingabe in Kleinbuchstaben um
269	269		chrEingabe := LowerCase(Readkey);
270	270
271	271		// Überschreibt den Inhalt der Statuszeile und
272	272		// setzt die Farbe für die Schrift wieder auf Hellgrau
273	273		subStatuszeile(' ',
274	274		LightGray);
275	275
276	276		case chrEingabe of
277	277		#27, 'q', 'e':
278	278		begin
279	279		// Gibt an der Statuszeile das Programmende aus und
280	280		// setzt die Farbe für die Schrift auf Hellgrau
281	281		subStatuszeile('Das Programm Trivial wurde beendet.', LightGray);
282	282		halt;
283	283		end;
284	284
285	285		'a':
286	286		begin
287	287		begin
288	288		if typeAntwort.strAntwort1 =
289	289		arrTrivial[conintZufallszahlArray].strAntwort1 then
290	290		subStatuszeile('Richtig', LightGreen)
291	291		else
292	292		subStatuszeile('Falsch', LightRed);
293	293		end;
294	294		end;
295	295
296	296		'b':
297	297		begin
298	298		begin
299	299		if typeAntwort.strAntwort2 =
300	300		arrTrivial[conintZufallszahlArray].strAntwort1 then
301	301		subStatuszeile('Richtig', LightGreen)
302	302		else
303	303		subStatuszeile('Falsch', LightRed);
304	304		end;
305	305		end;
306	306
307	307		'c':
308	308		begin
309	309		if typeAntwort.strAntwort3 =
310	310		arrTrivial[conintZufallszahlArray].strAntwort1 then
311	311		subStatuszeile('Richtig', LightGreen)
312	312		else
313	313		subStatuszeile('Falsch', LightRed);
314	314		end;
315	315		end;
316	316
317	317		end;
318	318
319	319		end.
320	320		```
321	321
322	322		Die Unit uAusgabe.pas ist für die Anzeige des Spiels an der Konsole zuständig.
323	323
324	324		``` pascal
325	325		unit uAusgabe;
326	326
327	327		{$mode objfpc}{$H+}
328	328		{$IMPLICITEXCEPTIONS OFF}
329	329
330	330		interface
331	331
332	332		uses
333	333		SysUtils, crt, uSpielLogik;
334	334
335	335		const
336	336		constrCopyright = '(c) 2015 by Olaf';
337	337		constrVersion = 'Version: 0.4.0';
338	338		conintStatuszeile = 14;
339	339
340	340		procedure subAusgabe;
341	341		procedure subStatuszeile(strUebergabe: string; intFarbe: integer);
342	342
343	343		implementation
344	344
345	345		function funTextZentrieren(strText: string): integer;
346	346		begin
347	347		Result := Trunc((80 - length(strText)) / 2);
348	348		end;
349	349
350	350		procedure subTitel;
351	351		begin
352	352		ClrScr;
353	353		GOTOXY(funTextZentrieren('TRIVIAL'), 1);
354	354		Write('TRIVIAL');
355	355		GOTOXY(funTextZentrieren(constrVersion), 2);
356	356		Write(constrVersion);
357	357		GOTOXY(funTextZentrieren(constrCopyright), 3);
358	358		Write(constrCopyright);
359	359		end;
360	360
361	361		procedure subKoerper;
362	362		begin
363	363		GOTOXY(1, 6);
364	364		Write(arrTrivial[conintZufallszahlArray].strFrage);
365	365		GOTOXY(1, 8);
366	366		Write('a) ' + typeAntwort.strAntwort1);
367	367		GOTOXY(1, 9);
368	368		Write('b) ' + typeAntwort.strAntwort2);
369	369		GOTOXY(1, 10);
370	370		Write('c) ' + typeAntwort.strAntwort3);
371	371		GOTOXY(1, 12);
372	372		end;
373	373
374	374		procedure subStatuszeile(strUebergabe: string; intFarbe: integer);
375	375		begin
376	376		TextColor(intFarbe);
377	377		GOTOXY(1,conintStatuszeile);
378	378		Write(strUebergabe);
379	379		TextColor(LightGray);
380	380		GOTOXY(1,conintStatuszeile + 2);
381	381		end;
382	382
383	383		procedure subInfo();
384	384		begin
385	385		GOTOXY(1,conintStatuszeile + 1);
386	386		WriteLn('Die Tasten <ESC>, <q> oder <e> beenden das Programm.');
387	387		end;
388	388
389	389		procedure subAusgabe;
390	390		begin
391	391		subTitel;
392	392		subKoerper;
393	393		subInfo;
394	394		end;
395	395
396	396		end.
397	397		```
398	398
399	399		Beispiel für die Datei (Trivial.txt) die die Fragen und die Antworten enthält:
400	400
401		-	~~`Was ist der Pumukl?;ein Kobold;ein Klabautermann;ein Schreinermeister`\~~
402		-	~~`Was ist ein Gugelhupf?;ein Kuchen;eine Froschart;ein Schnaps`\~~
403		-	~~`Was sind Tapas?;kleine Appetithappen;Tiere;Gebäude`\~~
404		-	~~`Was sind Tapire?;Tiere;kleine Appetithappen;Wanddekorationen`\~~
405		-	~~`Was sind Tapeten?;Wanddekorationen;ein Kuchen;kleine Tiere`\~~
406		-	~~`Was ist ein Wolpertinger?;ein bayerisches Fabelwesen;eine seltene Tierart;ein Einwohner des Ortes Wolpert`\~~
407		-	~~`Was ist ein Tatzelwurm?;ein alpenländisches Fabeltier ählich einem Drachen;ein seltene Wurmart;eine Katze`\~~
408		-	~~`Was ist ein Lindwurm?;ein Fabeltier ähnlich einer Schlange;eine seltene Wurmart;eine Schlange`\~~
409		-	~~`Was ist Frau Holle?;eine Märchen- oder Sagengestalt;ein Hausmädchen;eine Putzfrau`\~~
410		-	~~`Was ist ein Wal?;ein Säugetier;ein Fisch;eine Amphibie`\~~
411		-	~~`Was ist ein Pinguin?;ein Vogel;ein Fisch;ein Säugetier`\~~
412		-	~~`Wer nascht mehr Süsses?;Frauen;Männer;beide naschen gleich viel`\~~
413		-	~~`Was ist eine Schnecke?;ein Weichtier;ein Primat;eine Pilzart`\~~
414		-	~~`Wann sind die Rauhnächte?;meist zwischen dem 24.12. und dem 06.01.;zu Ostern;zwischen dem 06.7. und dem 01.08.`\~~
415		-	~~`Was ist Freibier?;ein Bier das man selbst nicht zahlen mus;obergärig;untergärig`\~~
416		-	~~`Was ist ein Obazter?;ein angemachter Käse;ein Raufbold;ein Kuchen`~~
	401	+	```text
	402	+	Was ist der Pumukl?;ein Kobold;ein Klabautermann;ein Schreinermeister
	403	+	Was ist ein Gugelhupf?;ein Kuchen;eine Froschart;ein Schnaps
	404	+	Was sind Tapas?;kleine Appetithappen;Tiere;Gebäude
	405	+	Was sind Tapire?;Tiere;kleine Appetithappen;Wanddekorationen
	406	+	Was sind Tapeten?;Wanddekorationen;ein Kuchen;kleine Tiere
	407	+	Was ist ein Wolpertinger?;ein bayerisches Fabelwesen;eine seltene Tierart;ein Einwohner des Ortes Wolpert
	408	+	Was ist ein Tatzelwurm?;ein alpenländisches Fabeltier ählich einem Drachen;ein seltene Wurmart;eine Katze
	409	+	Was ist ein Lindwurm?;ein Fabeltier ähnlich einer Schlange;eine seltene Wurmart;eine Schlange
	410	+	Was ist Frau Holle?;eine Märchen- oder Sagengestalt;ein Hausmädchen;eine Putzfrau
	411	+	Was ist ein Wal?;ein Säugetier;ein Fisch;eine Amphibie
	412	+	Was ist ein Pinguin?;ein Vogel;ein Fisch;ein Säugetier
	413	+	Wer nascht mehr Süsses?;Frauen;Männer;beide naschen gleich viel
	414	+	Was ist eine Schnecke?;ein Weichtier;ein Primat;eine Pilzart
	415	+	Wann sind die Rauhnächte?;meist zwischen dem 24.12. und dem 06.01.;zu Ostern;zwischen dem 06.7. und dem 01.08.
	416	+	Was ist Freibier?;ein Bier das man selbst nicht zahlen mus;obergärig;untergärig
	417	+	Was ist ein Obazter?;ein angemachter Käse;ein Raufbold;ein Kuchen
	418	+	```
417	419
418	420		---
419	421		From the Free Pascal wiki, page "trivial/de", as it stood on 2020-03-01 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).

Back to history