Verfügbare Informationen zu "Hirngespinnst"
Qualität des Beitrags: 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:50Hirngespinnst
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"
