Ascii

[Dirk_f6e0f1]

Moin
Ich hab da so einen Aufgabe bekommen in Turbo Pascal.
Die lautet :
Erstellen sie ein Programm zur anzeige von ASCII zeichen (ab zeichen 32).
a) Anzeige eines einzelnen ASCII Zeichens
b) Anzeige des gesammten ASCII Zeichensatz
c) Drucken des gesammten ASCII Zeichensatz

Für Teil und Komplettlösungen währe ich Dankbar ;o)
MfG Dirk

PS E-Mail : [email protected]

[Anonym]

Eine ganze Druckroutine hab ich auch nicht mehr im Kopf. Die TP-Zeiten hab ich schon seit längerem hinter mir *g*

Zumindest ein Lösungsansatz:

var
HelpVar: Byte;

for HelpVar := 32 to 255 do
WriteLn(chr(HelpVar));

[Niels_0b4136]

Hallo,

Drucken:

var
Datei: Text;
i:Integer;

Assign(Datei, ‚lpt1‘);
Rewrite(Datei);
for i:=32 to 255 do
Write(Datei, chr(i), ’ ');

Gruss, Niels