Programm zur Herstellung von Platinen (By Paul Baumann) var Platinengröße as Quadratzentimeter; Bügeleisen as Edelstahl; Papier as ......? var Bügeleisenleistung as Watt var Bügelzeit, Wartezeit as Minute var Aceton as Liquid Begin If Bügeleisenleistung < 500 then print " zu gering" Endif Waitms (1000) For Bügelzeit = 0 to 5 Print "Und bügeln, und bügeln..." next Bügelzeit Cls Print "Fertig gebügelt!" Procedure PFOTENVERBRENNEN var Pfote left, Pfote right If Platinentemperatur > 100 : Print "AUUUAHHH!!!" : endif Gosub Badezimmer Procedure AUFWEICHEN Print "Plätscher, plätscher" If Leiterzüge abgelöst use Aceton : goto Begin: Endif Elseif in Ordnung print "Gottseidank" Return Procedure ABWASCHEN Use ACETON Repeat until Platine blank End 'Kann sein, daß der Pascalcompiler Fehlermeldungen bringt :-)) MfG Paul
Einfach genial :) :) :) ich kann schin garnicht mehr lesen vor Freudentränen, ich bin mal auf die C++-Variante gespannt ;).
C++ Variante ist gut, die Frage ist was das oben für eine Sprache sein soll. Pascal ist es nicht und Basic auch nicht so richtig. Gruß Hagen
Paul, genial ... du bist doch ein sehr positiv und sehr kreativ !
Hat mal einer Langeweile gehabt, statt was sinnvolles zu Posten! Gibt genug wichtigeres als sohn Quatsch.
Und das Programm lässt sich kompilieren? Schreib lieber noch die Fehler hin, die das erzeugt..
Richtig , Tumor ist wenn man trozdem lacht! ... wer sagte das immer didi... mh. Paul hat was gemacht was gut ist :-)
Noch etwas für die bierernsten: Das ist PASBAS; ein Mittelding zwischen Pascal und Basic. Damit läßt sich nur Lötzinn äh Blödsinn compilieren. :-) Mfg Paul
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.