Fortune program/de

From Free Pascal wiki
Revision as of 08:50, 30 November 2014 by Olaf (talk | contribs) (→‎Beispielcode)
Jump to navigationJump to search

Template:Sprüche

Beschreibung

Das Programm ist ein Beispiel dafür, wie man mit einem einfachen Pascal Programm kleine aber nette Programme schreiben kann.
Das Program Sprüche wird über die Kommandozeile gestartet und ist ein Klon des Programmes Fortune.

Beispielcode

{$mode objfpc}{$H+}
{$IMPLICITEXCEPTIONS OFF}

uses
  SysUtils;

type
  TSprueche = record
    strSpruch: string;
    strUrheber: string;
  end;

  TSpruecheArray = array[0..49] of TSprueche;

var
  arrSprueche: TSpruecheArray;
  lintZeigerAufSpruch: Longint = 0;

  procedure subArrayFuellen;
  begin
    arrSprueche[0].strSpruch :=
      'Einstein ist tot, Newton ist tot und mir ist auch schon ganz schlecht.';
    arrSprueche[0].strUrheber := 'unbekannt';

    arrSprueche[1].strSpruch :=
      'Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.';
    arrSprueche[1].strUrheber := 'unbekannt';

    arrSprueche[2].strSpruch :=
      'Die drei Feinde des Programmierer:' + #10 +
      'Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.';
    arrSprueche[2].strUrheber := 'unbekannt';

    arrSprueche[3].strSpruch :=
      'Der Klügere gibt solange nach bis er der Dumme ist.';
    arrSprueche[3].strUrheber := 'unbekannt';

    arrSprueche[4].strSpruch :=
      'Ich weiß nicht viel lern aber dafür umso schneller!!';
    arrSprueche[4].strUrheber := 'unbekannt';

    arrSprueche[5].strSpruch :=
      'Der Kapitalismus basiert auf der merkwürdigen Überzeugung, ' + #10 +
      'dass widerwärtige Menschen aus widerwärtigen Motiven, ' + #10 +
      'irgendwie für das allgemeine Wohl sorgen werden.';
    arrSprueche[5].strUrheber := 'John Maynard Keynes (1883 - 1946), Ökonom';

    arrSprueche[6].strSpruch :=
      'Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie.';
    arrSprueche[6].strUrheber := 'unbekannt';

    arrSprueche[7].strSpruch :=
      'Es gibt 10 Typen von Leuten - Solche die das Binärsystem verstehen und solche, die es nicht verstehen.';
    arrSprueche[7].strUrheber := 'unbekannt';

    arrSprueche[8].strSpruch :=
      'Die Erfahrung ist ein strenger Schulmeister:' + #10 +
      'Sie prüft uns, bevor sie uns lehrt.';
    arrSprueche[8].strUrheber := 'unbekannt';

    arrSprueche[9].strSpruch :=
      'Programme gehorchen nicht Deinen Absichten, sondern Deinen Anweisungen.';
    arrSprueche[9].strUrheber := 'unbekannt';

    arrSprueche[10].strSpruch :=
      'Programme gehorchen nicht Deinen Absichten, sondern Deinen Anweisungen.';
    arrSprueche[10].strUrheber := 'unbekannt';

    arrSprueche[11].strSpruch :=
      'Es ist keine Kunst in ein Programm 20 Fehler zu schreiben.' + #10 +
      'Die Kunst ist es das Programm dann noch zum laufen zu bekommen.';
    arrSprueche[11].strUrheber := 'unbekannt';

    arrSprueche[12].strSpruch :=
      'Die Mutter der Dummen ist immer schwanger.';
    arrSprueche[12].strUrheber := 'unbekannt';

    arrSprueche[13].strSpruch :=
      'Das Problem steckt meistens zwischen den Ohren.';
    arrSprueche[13].strUrheber := 'unbekannt';

    arrSprueche[14].strSpruch :=
      'Man muss viel gelernt haben, um das, was man nicht weiß, erfragen zu können.';
    arrSprueche[14].strUrheber := 'Jean-Jacques Rousseau (1712 - 1778)';

    arrSprueche[15].strSpruch :=
      'Ein Experte ist ein Mann, der hinterher genau sagen kann, warum seine Prognose nicht gestimmt hat.';
    arrSprueche[15].strUrheber := 'Winston Churchill (1874 - 1965)';

    arrSprueche[16].strSpruch :=
      'Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel.';
    arrSprueche[16].strUrheber := 'Friedrich Nietzsche (1844 - 1900)';

    arrSprueche[17].strSpruch :=
      'Wer Rechtschreibfehler findet, der darf sie behalten.';
    arrSprueche[17].strUrheber := 'unbekannt';

    arrSprueche[17].strSpruch :=
      'Der Horizont vieler Menschen ist ein Kreis mit Radius Null, und das nennen sie ihren Standpunkt.';
    arrSprueche[17].strUrheber := 'unbekannt';

    arrSprueche[18].strSpruch :=
      'Machmal scheint mir Denken wie ein Sechser im Lotto zu sein - reine Glückssache.';
    arrSprueche[18].strUrheber := 'unbekannt';

    arrSprueche[19].strSpruch :=
      'Ich habe zwar eine Lösung, aber sie paßt nicht zum Problem.';
    arrSprueche[19].strUrheber := 'unbekannt';

    arrSprueche[20].strSpruch :=
      'Ich bin Spezialist auf dem kleinsten Gebiet: Ich weiß von nix alles!';
    arrSprueche[20].strUrheber := 'unbekannt';

    arrSprueche[21].strSpruch :=
      'What I cannot create, I do not understand.';
    arrSprueche[21].strUrheber := 'Richard P. Feynman (1918 - 1988)';

    arrSprueche[22].strSpruch :=
      'Reden ist Silber, Schweigen ist Gold, meine Ausführungen sind Platin.';
    arrSprueche[22].strUrheber := 'unbekannt';

    arrSprueche[23].strSpruch :=
      'Auch ein Bonsai träumt von Größe.';
    arrSprueche[23].strUrheber := 'unbekannt';

    arrSprueche[24].strSpruch :=
      'Die drei "r" des Administrators:' + #10 +
      'retry' + #10 +
      'restart' + #10 +
      'reinstall';
    arrSprueche[24].strUrheber := 'unbekannt';

    arrSprueche[25].strSpruch :=
      'Erzähl mir nicht, was nicht funktioniert, bis du nicht einen Vorschlag machen kannst, was besser wäre.';
    arrSprueche[25].strUrheber := 'Barak Obama (1961 - ...)';

    arrSprueche[26].strSpruch :=
       'Vollkommenes Glück ist das Nichtvorhandensein des Strebens nach Glück;' + #10 +
       'vollkommenes Ansehen ist das Nichtvorhandensein des Strebens nach Ansehen.';
    arrSprueche[26].strUrheber := 'Laotse (6. Jh. v. Chr)';

    arrSprueche[27].strSpruch :=
       'Der Besitz macht uns nicht halb so glücklich, wie uns der Verlust unglücklich macht.';
    arrSprueche[27].strUrheber := 'Jean Paul (1763 - 1825), deutscher Schriftsteller';

    arrSprueche[27].strSpruch :=
       'Seltene Flüssigkeit mit 14 Buchstaben? Beamtenschweiß.';
    arrSprueche[27].strUrheber := 'unbekannt';


  end;


begin
  subArrayFuellen;
  Randomize;
  lintZeigerAufSpruch:=Random(28);
  WriteLn(arrSprueche[lintZeigerAufSpruch].strSpruch);
  WriteLn('Urheber: ' + arrSprueche[lintZeigerAufSpruch].strUrheber);
end.