https://wiki.freepascal.org/index.php?title=Fortune_program/de&feed=atom&action=history
Fortune program/de - Revision history
2024-03-29T09:42:44Z
Revision history for this page on the wiki
MediaWiki 1.35.6
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=133245&oldid=prev
Trev: Fixed syntax highlighting; deleted category included in page template
2020-02-26T22:44:48Z
<p>Fixed syntax highlighting; deleted category included in page template</p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 22:44, 26 February 2020</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>{{<del class="diffchange diffchange-inline">Sprüche</del>}}</div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>{{<ins class="diffchange diffchange-inline">Fortune program</ins>}}</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>Zurück zur [[Console/de|Konsolenseite]].<del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>Zurück zur [[Console/de|Konsolenseite]].</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>__TOC__</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>__TOC__</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beschreibung=</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beschreibung=</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.<del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>Das Program Sprüche wird über die Kommandozeile gestartet und ist ein Klon des Programmes Fortune.<del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>Das Program Sprüche wird über die Kommandozeile gestartet und ist ein Klon des Programmes Fortune.</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beispielcode=</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beispielcode=</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><syntaxhighlight></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><syntaxhighlight <ins class="diffchange diffchange-inline">lang=pascal</ins>></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{$mode objfpc}{$H+}</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{$mode objfpc}{$H+}</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{$IMPLICITEXCEPTIONS OFF}</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{$IMPLICITEXCEPTIONS OFF}</div></td></tr>
<tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l170" >Line 170:</td>
<td colspan="2" class="diff-lineno">Line 178:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>end.</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>end.</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></syntaxhighlight></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></syntaxhighlight></div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> </div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline"><br /></del></div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[[Category:Console/de]][[Category:Example programs/de]]</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">--[[User:Olaf|Olaf]] 08:58, 30 November 2014 (CET)</del></div></td><td colspan="2"> </td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div><del class="diffchange diffchange-inline">{{AutoCategory}}</del>[[Category:Console/de]][[Category:Example programs/de]]</div></td><td colspan="2"> </td></tr>
</table>
Trev
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=133241&oldid=prev
Trev: Trev moved page Sprüche/de to Fortune program/de without leaving a redirect: Page titles should be in English
2020-02-26T22:39:16Z
<p>Trev moved page <a href="/index.php?title=Spr%C3%BCche/de&action=edit&redlink=1" class="new" title="Sprüche/de (page does not exist)">Sprüche/de</a> to <a href="/Fortune_program/de" title="Fortune program/de">Fortune program/de</a> without leaving a redirect: Page titles should be in English</p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<tr class="diff-title" lang="en">
<td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="1" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 22:39, 26 February 2020</td>
</tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div>
</td></tr></table>
Trev
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=84838&oldid=prev
Olaf: /* Beispielcode */
2014-12-03T18:09:28Z
<p><span dir="auto"><span class="autocomment">Beispielcode</span></span></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 18:09, 3 December 2014</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l21" >Line 21:</td>
<td colspan="2" class="diff-lineno">Line 21:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> end;</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> end;</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> TSpruecheArray = array[0..<del class="diffchange diffchange-inline">49</del>] of TSprueche;</div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> TSpruecheArray = array[0..<ins class="diffchange diffchange-inline">27</ins>] of TSprueche;</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>var</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>var</div></td></tr>
</table>
Olaf
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=84707&oldid=prev
Olaf: /* Beispielcode */
2014-11-30T07:58:56Z
<p><span dir="auto"><span class="autocomment">Beispielcode</span></span></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 07:58, 30 November 2014</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l172" >Line 172:</td>
<td colspan="2" class="diff-lineno">Line 172:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> </div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins class="diffchange diffchange-inline">--[[User:Olaf|Olaf]] 08:58, 30 November 2014 (CET)</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{{AutoCategory}}[[Category:Console/de]][[Category:Example programs/de]]</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{{AutoCategory}}[[Category:Console/de]][[Category:Example programs/de]]</div></td></tr>
</table>
Olaf
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=84706&oldid=prev
Olaf at 07:58, 30 November 2014
2014-11-30T07:58:27Z
<p></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 07:58, 30 November 2014</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l3" >Line 3:</td>
<td colspan="2" class="diff-lineno">Line 3:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Zurück zur [[Console/de|Konsolenseite]].<br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Zurück zur [[Console/de|Konsolenseite]].<br /></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">__TOC__</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beschreibung=</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beschreibung=</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.<br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.<br /></div></td></tr>
</table>
Olaf
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=84705&oldid=prev
Olaf at 07:57, 30 November 2014
2014-11-30T07:57:05Z
<p></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 07:57, 30 November 2014</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l1" >Line 1:</td>
<td colspan="2" class="diff-lineno">Line 1:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{{Sprüche}}</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>{{Sprüche}}</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">Zurück zur [[Console/de|Konsolenseite]].<br /></ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><br /></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beschreibung=</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>=Beschreibung=</div></td></tr>
</table>
Olaf
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=84703&oldid=prev
Olaf: /* Beispielcode */
2014-11-30T07:50:46Z
<p><span dir="auto"><span class="autocomment">Beispielcode</span></span></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 07:50, 30 November 2014</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l153" >Line 153:</td>
<td colspan="2" class="diff-lineno">Line 153:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> arrSprueche[27].strSpruch :=</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> arrSprueche[27].strSpruch :=</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div> 'Seltene Flüssigkeit mit 14 Buchstaben? <del class="diffchange diffchange-inline">Beamtenschweiss</del>.';</div></td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div> 'Seltene Flüssigkeit mit 14 Buchstaben? <ins class="diffchange diffchange-inline">Beamtenschweiß</ins>.';</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> arrSprueche[27].strUrheber := 'unbekannt';</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> arrSprueche[27].strUrheber := 'unbekannt';</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"></td></tr>
</table>
Olaf
https://wiki.freepascal.org/index.php?title=Fortune_program/de&diff=84701&oldid=prev
Olaf: Created page with "{{Sprüche}} <br /> <br /> =Beschreibung= Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.<br /> D..."
2014-11-30T07:49:09Z
<p>Created page with "{{Sprüche}} <br /> <br /> =Beschreibung= Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.<br /> D..."</p>
<p><b>New page</b></p><div>{{Sprüche}}<br />
<br /><br />
<br /><br />
=Beschreibung=<br />
Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.<br /><br />
Das Program Sprüche wird über die Kommandozeile gestartet und ist ein Klon des Programmes Fortune.<br /><br />
=Beispielcode=<br />
<syntaxhighlight><br />
{$mode objfpc}{$H+}<br />
{$IMPLICITEXCEPTIONS OFF}<br />
<br />
uses<br />
SysUtils;<br />
<br />
type<br />
TSprueche = record<br />
strSpruch: string;<br />
strUrheber: string;<br />
end;<br />
<br />
TSpruecheArray = array[0..49] of TSprueche;<br />
<br />
var<br />
arrSprueche: TSpruecheArray;<br />
lintZeigerAufSpruch: Longint = 0;<br />
<br />
procedure subArrayFuellen;<br />
begin<br />
arrSprueche[0].strSpruch :=<br />
'Einstein ist tot, Newton ist tot und mir ist auch schon ganz schlecht.';<br />
arrSprueche[0].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[1].strSpruch :=<br />
'Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.';<br />
arrSprueche[1].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[2].strSpruch :=<br />
'Die drei Feinde des Programmierer:' + #10 +<br />
'Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.';<br />
arrSprueche[2].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[3].strSpruch :=<br />
'Der Klügere gibt solange nach bis er der Dumme ist.';<br />
arrSprueche[3].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[4].strSpruch :=<br />
'Ich weiß nicht viel lern aber dafür umso schneller!!';<br />
arrSprueche[4].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[5].strSpruch :=<br />
'Der Kapitalismus basiert auf der merkwürdigen Überzeugung, ' + #10 +<br />
'dass widerwärtige Menschen aus widerwärtigen Motiven, ' + #10 +<br />
'irgendwie für das allgemeine Wohl sorgen werden.';<br />
arrSprueche[5].strUrheber := 'John Maynard Keynes (1883 - 1946), Ökonom';<br />
<br />
arrSprueche[6].strSpruch :=<br />
'Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.';<br />
arrSprueche[6].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[7].strSpruch :=<br />
'Es gibt 10 Typen von Leuten - Solche die das Binärsystem verstehen und solche, die es nicht verstehen.';<br />
arrSprueche[7].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[8].strSpruch :=<br />
'Die Erfahrung ist ein strenger Schulmeister:' + #10 +<br />
'Sie prüft uns, bevor sie uns lehrt.';<br />
arrSprueche[8].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[9].strSpruch :=<br />
'Programme gehorchen nicht Deinen Absichten, sondern Deinen Anweisungen.';<br />
arrSprueche[9].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[10].strSpruch :=<br />
'Programme gehorchen nicht Deinen Absichten, sondern Deinen Anweisungen.';<br />
arrSprueche[10].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[11].strSpruch :=<br />
'Es ist keine Kunst in ein Programm 20 Fehler zu schreiben.' + #10 +<br />
'Die Kunst ist es das Programm dann noch zum laufen zu bekommen.';<br />
arrSprueche[11].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[12].strSpruch :=<br />
'Die Mutter der Dummen ist immer schwanger.';<br />
arrSprueche[12].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[13].strSpruch :=<br />
'Das Problem steckt meistens zwischen den Ohren.';<br />
arrSprueche[13].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[14].strSpruch :=<br />
'Man muss viel gelernt haben, um das, was man nicht weiß, erfragen zu können.';<br />
arrSprueche[14].strUrheber := 'Jean-Jacques Rousseau (1712 - 1778)';<br />
<br />
arrSprueche[15].strSpruch :=<br />
'Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat.';<br />
arrSprueche[15].strUrheber := 'Winston Churchill (1874 - 1965)';<br />
<br />
arrSprueche[16].strSpruch :=<br />
'Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel.';<br />
arrSprueche[16].strUrheber := 'Friedrich Nietzsche (1844 - 1900)';<br />
<br />
arrSprueche[17].strSpruch :=<br />
'Wer Rechtschreibfehler findet, der darf sie behalten.';<br />
arrSprueche[17].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[17].strSpruch :=<br />
'Der Horizont vieler Menschen ist ein Kreis mit Radius Null, und das nennen sie ihren Standpunkt.';<br />
arrSprueche[17].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[18].strSpruch :=<br />
'Machmal scheint mir Denken wie ein Sechser im Lotto zu sein - reine Glückssache.';<br />
arrSprueche[18].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[19].strSpruch :=<br />
'Ich habe zwar eine Lösung, aber sie paßt nicht zum Problem.';<br />
arrSprueche[19].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[20].strSpruch :=<br />
'Ich bin Spezialist auf dem kleinsten Gebiet: Ich weiß von nix alles!';<br />
arrSprueche[20].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[21].strSpruch :=<br />
'What I cannot create, I do not understand.';<br />
arrSprueche[21].strUrheber := 'Richard P. Feynman (1918 - 1988)';<br />
<br />
arrSprueche[22].strSpruch :=<br />
'Reden ist Silber, Schweigen ist Gold, meine Ausführungen sind Platin.';<br />
arrSprueche[22].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[23].strSpruch :=<br />
'Auch ein Bonsai träumt von Größe.';<br />
arrSprueche[23].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[24].strSpruch :=<br />
'Die drei "r" des Administrators:' + #10 +<br />
'retry' + #10 +<br />
'restart' + #10 +<br />
'reinstall';<br />
arrSprueche[24].strUrheber := 'unbekannt';<br />
<br />
arrSprueche[25].strSpruch :=<br />
'Erzähl mir nicht, was nicht funktioniert, bis du nicht einen Vorschlag machen kannst, was besser wäre.';<br />
arrSprueche[25].strUrheber := 'Barak Obama (1961 - ...)';<br />
<br />
arrSprueche[26].strSpruch :=<br />
'Vollkommenes Glück ist das Nichtvorhandensein des Strebens nach Glück;' + #10 +<br />
'vollkommenes Ansehen ist das Nichtvorhandensein des Strebens nach Ansehen.';<br />
arrSprueche[26].strUrheber := 'Laotse (6. Jh. v. Chr)';<br />
<br />
arrSprueche[27].strSpruch :=<br />
'Der Besitz macht uns nicht halb so glücklich, wie uns der Verlust unglücklich macht.';<br />
arrSprueche[27].strUrheber := 'Jean Paul (1763 - 1825), deutscher Schriftsteller';<br />
<br />
arrSprueche[27].strSpruch :=<br />
'Seltene Flüssigkeit mit 14 Buchstaben? Beamtenschweiss.';<br />
arrSprueche[27].strUrheber := 'unbekannt';<br />
<br />
<br />
end;<br />
<br />
<br />
begin<br />
subArrayFuellen;<br />
Randomize;<br />
lintZeigerAufSpruch:=Random(28);<br />
WriteLn(arrSprueche[lintZeigerAufSpruch].strSpruch);<br />
WriteLn('Urheber: ' + arrSprueche[lintZeigerAufSpruch].strUrheber);<br />
end.<br />
</syntaxhighlight><br />
<br /><br />
<br /><br />
<br />
{{AutoCategory}}[[Category:Console/de]][[Category:Example programs/de]]</div>
Olaf