Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Programm
| Uploader: |  programmierer |
| Datum/Zeit: | 26.10.2013 19:42:30 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts Geschichtswissen, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
Dim As string karl
Dim As string alt
Dim As string rom
Dim As string ost
Dim As string welt
Dim As string reich
Dim As string jahr
Input "Wer war Koenig der Franken ?", karl
Print "Sie haben "; karl; " geschrieben !"
Print "Antwort: Es war KARL DER GROSSE !"
Input "Wie alt wurde Karl der Grosse ?", alt
Print "Sie haben "; alt; " angegeben !"
Print "Antwort: Er wurde 66 Jahre alt !"
Input "Wann wurde ROM gegruendet ?", rom
Print "Sie haben "; rom; " angegeben !"
Print "Antwort: Es wurde am 21.April 753 v.Chr. gegruendet !"
Input "Welches Reich gab es laenger ?", ost
Print "Sie haben "; ost; " angegeben !"
Print "Antowort: Das Ostreicht !"
Input "Wann begann der 2.Weltkrieg ?", welt
Print "Sie haben "; welt; " angegeben !"
Print "Antwort: Am 01.09.1939 !"
Input "Wer war Reichsfueher ?", reich
Print "Sie haben "; reich; "angegeben !"
Print "Antwort: Adolf Hitler !"
Input "Welches Jahr haben wir heute ?", jahr
Print "2013"
Print
Print "Vielen Dank !"
Sleep