Hallo Leutz
ich bin ein kleiner DOS-Freak und habe mir FreePascal für DOS heruntergeladen.
Das ganze sieht ganz gut aus und ich habe auch schon meine erstes "Programm" damit geschrieben....
Code:
program Zahlenraten;
var zufall,eingabe:integer;
{Unterprogramm Zahl_bestimmen}
procedure Zahl_bestimmen(var z:integer);
begin
randomize;
z:=random(10)+1
end;
{Unterprogramm Zahl_eingeben}
procedure Zahl_eingeben(var e:integer);
begin
ReadLn(e)
end;
{Unterprogramm Zahl_pruefen}
function Zahl_pruefen(z,e:integer):boolean;
begin
if z=e
then
Zahl_pruefen:=true
else
Zahl_pruefen:=false
end;
{Aufruf Hauptprogramm}
begin
Zahl_bestimmen(zufall);
WriteLn('Bitte eine beliebige Zahl zwischen 1 und 10 eingeben!');
Zahl_eingeben(eingabe);
if (1<=eingabe) and (eingabe<=10)
then
if Zahl_pruefen(zufall,eingabe)=true
then
WriteLn('Richtig geraten! Die Zahl war ',zufall,'.')
else
WriteLn('Falsch geraten! Die Zahl war ',zufall,'.')
else
WriteLn('Ungueltige Zahl!')
end.
(EXE-Datei siehe Anhang)
Auf jeden Fall wollte ich fragen, ob bei Pascal für DOS Grafikausgaben möglich sind und wenn ja, wie diese (erstmal ganz einfach) zu realisieren sind.
EDIT:
Titel auf Wunsch angepasst.