Hirngespinnst

Ihr-Domainname.de
Verfügbare Informationen zu "Hirngespinnst"

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: Christian
  • Forum: Ihr-Domainname.de
  • Forenbeschreibung: Beschreibung Ihres Forums
  • aus dem Unterforum: Technik
  • Antworten: 1
  • Forum gestartet am: Mittwoch 24.08.2005
  • Sprache: deutsch
  • Link zum Originaltopic: Hirngespinnst
  • Letzte Antwort: vor 17 Jahren, 3 Monaten, 15 Tagen, 6 Stunden, 34 Minuten
  • Alle Beiträge und Antworten zu "Hirngespinnst"

    Re: Hirngespinnst

    Christian - 13.12.2005, 23:50

    Hirngespinnst
    Program Hirngespinnst;
    USES CRT;
    VAR Gehirnzellen, Alkoholmenge, Denkvermoegen, IQ:Real;
    I, Stunden : Integer;


    Begin
    Write ('Geben Sie die Anzahl ihrer Gehirnzellen an: ');
    ReadLN (Gehirnzellen);
    Write (' Geben Sie die Alkoholmenge in Promille ein: ');
    ReadLN (Alkoholmenge);
    Write ('Geben Sie ihren IQ ein: ');
    ReadLN (IQ);
    For I:= 1 to 101 Do
    Begin
    Denkvermoegen:= Gehirnzellen / Alkoholmenge + IQ ;
    Denkvermoegen:= Denkvermoegen / I * 100 - 100;
    WriteLN ('Ihr Denkvermoegen nach',I:4 ,' Stunden betr„gt:', Denkvermoegen:7:2 ,' m”gliche Denkprozesse am Tag');
    IF Denkvermoegen <= 0 Then writeLN ('Sie sind tot! ');
    Delay (1000);
    End;
    Repeat Until Keypressed;
    End.


    Ein kleines Spaßprogramm :P

    leider hatte ich meine diskette in der schule vergessen und sie ist nicht wieder aufgetaucht.
    also fügt bitte progamme hinzu, welche hier noch nicht aufgeführt sind.
    dankö :!:



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum Ihr-Domainname.de

    Mehr Rechenleistung für weniger Geld gibt es nicht! - gepostet von Christian am Donnerstag 15.06.2006
    Hörbuch von Willem Meist - gepostet von derkleinemaddin am Mittwoch 26.04.2006
    Kiezkollegen - gepostet von derkleinemaddin am Montag 26.06.2006



    Ähnliche Beiträge wie "Hirngespinnst"