Alle Beispiele gibt es gleich im Quelltext zum Download.
Weitere Versionen mit mehr Funktionen für ambitioniertere Anwender gibts dann auf der Download-Seite.
1. Rechenprogramm
Download: tp_rechner.pas
Ein primitives Programm zum Addieren, Subtrahieren, Multiplizieren und Dividieren von zwei Zahlen. Ohne Fehlerbehandlung. Gut zum Verständnis vom Umgang mit Prozeduren und Variablen.
2. Rechenprogramm 2
Download: tp_rechner2.pas
Dieses Programm rechnet mit Funktionen und enthält einige Fehlerbehandlungsroutinen.
3. ASCII-Code
Download: tp_ascii.pas
Mit diesem Programm wird der ASCII-Code eines eingegebenen Zeichens zurückgegeben. Auch Funktionstasten (die ja mit ASCII=0 eingeleitet werden) werden ausgewertet. Verwendung von chr und ord. Die Enter-Taste hat übrigens den ASCII-Code 13.
4. Fakultät
Download: tp_fakult.pas
Mit Hilfe einer rekursiven Funktion berechnet dieses Programm die Fakultät einer eingegebenen Zahl (z. B.: 4! = 1 x 2 x 3 x 4 = 24).
5. Sound
Download: tp_sound.pas
Die Ausgabe von Tönen über den internen PC-Lautsprecher wird mit diesem Programm demonstriert. Verwendung der Crt-Funktionen sound, nosound, delay und keypressed.
6. Array
Download: tp_array.pas
Das Programm demonstriert die Verwendung der Variable array zum Einteilen eines Rasters in Kacheln.
7. Cursorsteuerung
Download: tp_cursor.pas
Diese Übung wertet die Tastatureingabe der Pfeiltasten aus und bewegt das Zeichen dann nach oben, unten, links oder rechts. Ohne große Fehlerbehandlung.
8. Datei lesen
Download: tp_lesen.pas
Das Programm »Lesen« schreibt den Inhalt einer Textdatei auf den Bildschirm. Die Funktionen assign, reset, ioresult und close werden verwendet. Außerdem der TP-Compiler-Schalter zum Abschalten der internen Ein-/Ausgabe-Prüfung.
9. Datei schreiben
Download: tp_schreibe.pas
Mit diesem Programm wird eine Datei neu geschrieben. Verwendung der Befehle rewrite und append.
10. Linie zeichnen
Download: tp_linie.pas
Dieses Beispiel verwendet zum ersten Mal die Grafikunit. Es wird eine diagonale Linie auf dem Bildschirm ausgegeben.
Nach oben
© 2000-2010 Clemens Weiß | Webplain.de
Link zu dieser Seite | Letzte Änderung: 26. Okt. 2008
Kommentare
Es gibt 26 Kommentare zu »Beispiel-Programme«.
Neuen Kommentar posten...
1 Am 10. Mai. 2002 schrieb Sarah:
Euer Rechenprogramm funktioniert nicht. Beim Ergebnis kommt immer nur null raus! Ich habe versucht den Fehler zu beheben, hab's aber leider nicht geschafft! Könnt ihr da vielleicht mal nachgucken?
P.S.: Sonst sind die Beispielprogramme sehr hilfreich und gut erklärt!
2 Am 14. Mai. 2002 schrieb Clemens Weiß:
@Sarah:
Da war ein end; zuviel, warum auch immer...
Jetzt stimmt alles, vielen Dank.
3 Am 16. Mär. 2003 schrieb TF:
Hallo! Brauche unbedingt ein Quizprogramm mit 50 Fragen und Antworten die mit Prozeduren geschrieben werden! Falls das jemand machen könnte sendet das Programm an fuchs_torsten@gmx.de
4 Am 17. Mär. 2003 schrieb Franziska:
Hallo !
Kennt sich jemand aus mit den verschiedenen Bausteinen:and, nand, or u.s.w ?
sowie FlipFlop ?
Danke im Voraus !
5 Am 09. Nov. 2003 schrieb Jens:
Wie kann ich den Ascii-code in x-zeilen a 6zeichen darstellen und die Ausgabe auf dem Bildschirm in einer Schleife zum wiederholten ansehen) dritteln
(weiter mit beliebiger Taste), ein Leerzeichen für Zeichen 127 darstellen (keine Prozeduren und Funktionen)
6 Am 29. Dez. 2003 schrieb Jan:
Hi Leute,
weiß zufällig jemand wo ich weitere beispielprogramme von Turbo Pascal for Windows herbekomme?
Vielen Dank im Voraus,
Jan
7 Am 16. Feb. 2004 schrieb Benedikt:
Könntet ihr mal ein einfaches Spiel als Beispielprogramm ins Internet hängen?
Danke
8 Am 04. Jun. 2004 schrieb Master Sto:
Hallo!
In Sachen Grafik und Maus möchte ich auf das
Better OpenSource Projekt (BOSS Projekt) verweisen:
[people.freenet.de]
Da kann man einige Sources zu ModeX und VESA runterladen, mittlerweile hat VESA sogar Mausunterstützung. Wer will, kann gerne mitmachen.
Ansonsten ist das Angebot hier nicht schlecht.
Gruß, Master Sto
9 Am 21. Sep. 2004 schrieb Denis:
hi, hat jemand von euch ein programm oder nur eine prozdur wo man eine höhere auflösung bekommt als die standard 640*480 pixel? das wäre net, denn ich bin da was am programmieren....dafür bräuchte ich das.
10 Am 29. Nov. 2004 schrieb Pascal:
Super Website!
Diese Website ist super!!!
Ich finde es schade das ihr nicht auch ein oder mehrere Spiele habt.
11 Am 01. Dez. 2004 schrieb Patrick:
Hi, also ihr glaubt gar nich wie mir diese Sachen geholfen haben ;-)
DANKE!
12 Am 12. Jan. 2005 schrieb thomas:
[www.s-line.de]
gute Grafik-Sammlung für hochauflösende Darstellung ... bald True-Type-Font unterstützung ( TTF-WIndows-Fonts )
13 Am 28. Apr. 2005 schrieb Lars:
Wegen dem Problem mit dem Rechner...
Mach erstmal die Schwefklammern weg...
aber vor allem musst du hinter das HAUPTPROGRAM (also ganz am Schluss) noch die Zeile "readln;" hinzu, dann geht's.
Bis denne
14 Am 10. Aug. 2005 schrieb Baldu:
bei mir funktioniert die Linie nicht, irgendwie ist graph nicht vorhanden. ist das bei Version 5.5 normal?
Übrigens: super Seite!!! Ich komm bei allem draus(!), und ich binn erst 15!
15 Am 15. Sep. 2005 schrieb Tobbi:
Ihr muesst unter eure Programme Readkey; drunter schreiben, sonst bringts nichts.
16 Am 08. Okt. 2005 schrieb Tom:
Ach was waren das herrliche Zeiten *schwelg*
Ein "Hello World" Kompilat war winzig und
lief auf anderen Rechnern, *ohne* zig MB
grosse VM's / VB***.dll's oder .Net Pakete
zu installieren. Wer mehr wissen moechte,
sollte mal nach SWAG fuer Pascal suchen!
macht weiter so ... :-)
17 Am 08. Jan. 2006 schrieb Malte:
Hallo,
ich finde diese Seite auch super!! Echt SuPeRnIcE!!
Ich bin erst 12 und habe Pascal so eingentlich schon begriffen, nur habt ihr nicht noch ein paar andere schöne Beispiele? Mir gehen nämlich langsam die Ideen aus^^ !
So ein Frage-Antwort Programm wäre echt mal geil!!!
SuPeR Ge!Le SeItE
Malte
PS: Über eine Antwort würde ich mich sehr freuen! Schickt mir dann einfach was!!
Meine E-Mail: malte.meiburg@web.de
18 Am 14. Mär. 2006 schrieb Anfänger@turbopascal:
Hi an alle.
Finde die Site klasse und brauch aber mal bei dem Soundprogramm von euch Hilfe.
Weiß nämlich nicht, wie ich das zum Laufen kriege, ansonsten funzt bei den anderen Programmen alles...
Wär nett, wenn dann ma so ne Hilfe kommen tät.
Bis denne....
19 Am 23. Mär. 2006 schrieb erik:
Gute Seite aber es fehlen echt ein parr Spiele bin 14 und immer nur so formeles zeug ist langweilig aber sonst echt gut
und weiter hin GL & HF
20 Am 14. Apr. 2006 schrieb lorenz:
bei mir geht des grafikprogramm ned :-(
21 Am 30. Apr. 2006 schrieb Goldtown:
Hi! Eigentlich klasse Site, hat mich vor der Informatikklausur gut vorbereitet und jetzt komm ich nicht mehr so richtig von der Site los... Aber könnte mir mal jemand den Sinn des Soundprogrammes erklären? Ich dachte die Tonhöhe oder der Abstand des ausgegebenen Tons erhöht sich, aber eigentlich zählt das Programm nur ab einer bestimmten Zahl in bestimmten abständen und gibt jedes Mal einen Sound aus. Geht da nicht mehr mit???
Gruß
Patric
22 Am 08. Jul. 2006 schrieb Lars Levsen:
Ich habe da ma ein spiel programm für turbopascal geschrieben allerdings in der version vür windows aber wenn man i nden units das win wegnimmt sollte das auch in den alten versionen laufen.
program hang_man;
uses WinCrt;
var wort, ratewort, loesen, text : string;
x, fehler,c,y : integer;
buchstabe,ende,taste,t : char;
flag : boolean;
{WÖRTERZIEHEN}
procedure woerterz(var wort:string);
var x:integer;
begin
randomize;
x:=random(100)+1;
case x of
{BIBLIOTHEK}
1: wort:='hund';
2: wort:='orangensaft';
3: wort:='yacht';
4: wort:='lars';
5: wort:='apfel';
6: wort:='simsalabim';
7: wort:='china';
8: wort:='nathan';
9: wort:='atomphysik';
10: wort:='xylophon';
11: wort:='kasachstan';
12: wort:='uhr';
13: wort:='indianer';
14: wort:='zypresse';
15: wort:='nockenwelle';
16: wort:='katamaran';
17: wort:='penis';
18: wort:='telefonbuch';
19: wort:='ameisenbaer';
20: wort:='exzentriker';
21: wort:='liebe';
22: wort:='hausaufgaben';
23: wort:='programmieren';
24: wort:='zug';
25: wort:='training';
26: wort:='garten';
27: wort:='golf';
28: wort:='minigolf';
29: wort:='zeitung';
30: wort:='sport';
31: wort:='radrennen';
32: wort:='nachhilfe';
33: wort:='hochzeit';
34: wort:='wlan';
35: wort:='compactdisc';
36: wort:='hangman';
37: wort:='eid';
38: wort:='snooker';
39: wort:='harzvier';
40: wort:='akku';
41: wort:='sozialabbau';
42: wort:='zigarre';
43: wort:='hut';
44: wort:='auto';
45: wort:='reifen';
46: wort:='autoreifen';
47: wort:='bier';
48: wort:='internet';
49: wort:='laptop';
50: wort:='handy';
51: wort:='schule';
52: wort:='wasser';
53: wort:='feuer';
54: wort:='spielfilm';
55: wort:='staunen';
56: wort:='faszination';
57: wort:='action';
58: wort:='diva';
59: wort:='seite';
60: wort:='exklusiv';
61: wort:='entertainment';
62: wort:='postbank';
63: wort:='newcomer';
64: wort:='herz';
65: wort:='erfolg';
66: wort:='taste';
67: wort:='umfrage';
68: wort:='killer';
69: wort:='serienkiller';
70: wort:='schokolade';
71: wort:='freunde';
72: wort:='film';
73: wort:='kamel';
74: wort:='tier';
75: wort:='stoerche';
76: wort:='gefahr';
77: wort:='beispiel';
78: wort:='sieg';
79: wort:='essen';
80: wort:='lesen';
81: wort:='einsatz';
82: wort:='herd';
83: wort:='fußball';
84: wort:='bundesliga';
85: wort:='nacht';
86: wort:='gewichtheber';
87: wort:='glück';
88: wort:='tor';
89: wort:='motorola';
90: wort:='diesel';
91: wort:='unterhaltung';
92: wort:='ende';
93: wort:='ente';
94: wort:='kinder';
95: wort:='eltern';
96: wort:='mama';
97: wort:='papa';
98: wort:='oma';
99: wort:='opa';
100: wort:='lehrer';
end;{of case}
end;{procedure woez}
{HANGMAN}
procedure hangman;
var wort, ratewort, loesen : string;
x, fehler,c : integer;
buchstabe,ende,wahl : char;
flag : boolean;
begin
repeat;
clrscr;
writeln;
writeln(' XXX HANG-MAN 2006 (c)by Lars(vom-mars)Levsen');
writeln('___________________________________________________________________');
writeln;
writeln(' Spielen sie alleine oder zu zweit?');
writeln;
writeln(' Einspielermodus:1 Zweispielermodus:2');
readln(wahl);
if wahl='1' then
woerterz(wort)
else
begin
clrscr;
writeln;
writeln (' XXX Hang-Man 2006 (c)Lars(vom-mars)Levsen');
writeln('__________________________________________________________________');
writeln;
writeln( ' Bitte geben sie das zu ratende Wort ein: ');
readln (wort);
end;
clrscr;
ratewort:='';
for x:= 1 to length(wort) do
insert (' ',ratewort,x);
gotoxy (5,10);
for x:= 1 to length(wort)do
write ('-');
fehler:= 0;
{Galgen}
gotoxy (40,17);
write('I');
gotoxy(41,16);
write('_|_');
gotoxy(44,17);
write('I');
gotoxy(41,15);
write(' |');
gotoxy(41,14);
write(' |');
gotoxy(41,13);
write(' |');
gotoxy(42,12);
write('|/ |');
gotoxy(42,11);
write('_____');
repeat
gotoxy(3,2);
write('XXX Hang-Man 2006 (c)by Lars(vom-mars)Levsen');
gotoxy(3,3);
write('_________________________________________________________________');
gotoxy (3,4);
writeln ('Bitte Buchstaben eingeben, zum Lösen 1 eingeben!');
gotoxy(3,5);
write ('Lösungsbuchstabe: ');
{Lösen}
if buchstabe ='1' then
begin
gotoxy (3,6);
write('Das Lösungswort: ');
readln (loesen);
writeln;
writeln;
if loesen = wort then write ('!!Hey Geschafft!!')
else write ('Tja das ist Falsch Du hast leider Verlohren. Richtig währe "',wort,'" gewesen.');
end;
readln (buchstabe);
flag:=false;
for x:=1 to length(wort) do
if wort[x]=buchstabe then
begin
ratewort[x]:= buchstabe;
flag:=true;
end;
if flag= false then
begin
fehler:=fehler+1;
gotoxy (5,17+fehler);
write('Falscher Buchstabe:---> ', buchstabe,' <---');
end;
if fehler =1 then
begin
gotoxy(46,13);
write('ö');
end;
if fehler =2 then
begin
gotoxy(45,13);
write('\');
end;
if fehler =3 then
begin
gotoxy(47,13);
write('/')
end;
if fehler =4 then
begin
gotoxy(46,14);
write('I');
end;
if fehler =5 then
begin
gotoxy(45,15);
write('/');
end;
if fehler =6 then
begin
gotoxy(47,15);
write('\');
end;
gotoxy(5,9);
write(ratewort);
until (ratewort=wort) or (fehler=6);
gotoxy(30,23);
write('PRESS ANYKEY');
repeat until keypressed;
taste:=readkey;
if (ratewort=wort) or (fehler=6) then
clrscr;
if ratewort=wort then
begin
gotoxy(3,8);
writeln (' !! Hey Geschafft!! Mit ',fehler,' Fehler(n)!!');
end;
if fehler=6 then
begin
gotoxy(3,8);
writeln (' !!Verlohren!! "',wort, '" währe Richtig gewesen!!');
end;
writeln;
write (' y zum beenden drücken andere eingabe startet eine neue Runde!');
readln(ende);
until ende='y';
if ende='y' then
begin
clrscr;
gotoxy(2,3);
write(' XXX HANG-MAN 2006 (c)by Lars(vom-mars)Levsen');
gotoxy(2,4);
write('______________________________________________________________________');
gotoxy(2,10);
write('Na wenn sie unbedingt dieses Hochertige Programm verlassen');
gotoxy(2,11);
write('wollen dann drücken sie doch was sie wollen!!!!!');
repeat until keypressed;
taste:=readkey;
clrscr;
end;
end;{procedure hangman}
{AUSGABE}
procedure ausgabe (var x,y:integer;text:string);
begin
gotoxy(x,y);
writeln (text);
end; {procedure ausgabe}
{TASTE}
procedure tasten (var t:char;
c,y:integer);
begin
x:=30;
y:=23;
text:='PRESS ANYKEY';
ausgabe (x,y,text);
repeat until keypressed;
t:=readkey;
x:=30;
y:=23;
text:=' ';
ausgabe(x,y,text);
end; {procedure taste}
{STARTBILDSCHIRM}
procedure startbildschirm(var taste:char);
begin
writeln;
writeln('Lars(vom-mars)Levsen (c)2006 ');
writeln('___________________________________________________________');
writeln;
writeln;
writeln;
writeln;
writeln(' # # ### # # ###### # # ### # # ');
writeln(' # # # # ## # # ## ## # # ## # ');
writeln(' # # # # # # # # # # # # # # # # # ');
writeln(' ##### ###### # # # # ###### # # # ###### # # # ');
writeln(' # # # # # # # # ## # # # # # # # ');
writeln(' # # # # # ## # # # # # # # ## ');
writeln(' # # # # # # ###### # # # # # # ');
writeln;
writeln;
writeln;
{anykey}
gotoxy(23,30) ;
write('Press Anykey');
repeat until keypressed;
taste:=readkey;
clrscr;
end;{procedure startbildschirm}
{H A U P T P R O G R A M M}
begin
startbildschirm(taste);
hangman;
end.
23 Am 09. Mär. 2007 schrieb Anfänger:
schreibt doch ma einen code der ASCII in zeichen umwandelt
nummer 3. umgekehrt also
24 Am 21. Apr. 2007 schrieb Juli:
Hallo,
ich bin 10 und lerne gerade Pascal. Euer Beispielprogramm 4. Fakultät funktioniert leider nicht!
"Error while linking"????????????????????????????????????????????
25 Am 07. Mai. 2007 schrieb Robin B.:
program hang_man;
uses WinCrt;
var wort, ratewort, loesen, text : string;
x, fehler,c,y : integer;
buchstabe,ende,taste,t : char;
flag : boolean;
{WÖRTERZIEHEN}
procedure woerterz(var wort:string);
var x:integer;
begin
randomize;
x:=random(100)+1;
case x of
{BIBLIOTHEK}
1: wort:='hund';
2: wort:='orangensaft';
3: wort:='yacht';
4: wort:='lars';
5: wort:='apfel';
6: wort:='simsalabim';
7: wort:='china';
8: wort:='nathan';
9: wort:='atomphysik';
10: wort:='xylophon';
11: wort:='kasachstan';
12: wort:='uhr';
13: wort:='indianer';
14: wort:='zypresse';
15: wort:='nockenwelle';
16: wort:='katamaran';
17: wort:='penis';
18: wort:='telefonbuch';
19: wort:='ameisenbaer';
20: wort:='exzentriker';
21: wort:='liebe';
22: wort:='hausaufgaben';
23: wort:='programmieren';
24: wort:='zug';
25: wort:='training';
26: wort:='garten';
27: wort:='golf';
28: wort:='minigolf';
29: wort:='zeitung';
30: wort:='sport';
31: wort:='radrennen';
32: wort:='nachhilfe';
33: wort:='hochzeit';
34: wort:='wlan';
35: wort:='compactdisc';
36: wort:='hangman';
37: wort:='eid';
38: wort:='snooker';
39: wort:='harzvier';
40: wort:='akku';
41: wort:='sozialabbau';
42: wort:='zigarre';
43: wort:='hut';
44: wort:='auto';
45: wort:='reifen';
46: wort:='autoreifen';
47: wort:='bier';
48: wort:='internet';
49: wort:='laptop';
50: wort:='handy';
51: wort:='schule';
52: wort:='wasser';
53: wort:='feuer';
54: wort:='spielfilm';
55: wort:='staunen';
56: wort:='faszination';
57: wort:='action';
58: wort:='diva';
59: wort:='seite';
60: wort:='exklusiv';
61: wort:='entertainment';
62: wort:='postbank';
63: wort:='newcomer';
64: wort:='herz';
65: wort:='erfolg';
66: wort:='taste';
67: wort:='umfrage';
68: wort:='killer';
69: wort:='serienkiller';
70: wort:='schokolade';
71: wort:='freunde';
72: wort:='film';
73: wort:='kamel';
74: wort:='tier';
75: wort:='stoerche';
76: wort:='gefahr';
77: wort:='beispiel';
78: wort:='sieg';
79: wort:='essen';
80: wort:='lesen';
81: wort:='einsatz';
82: wort:='herd';
83: wort:='fußball';
84: wort:='bundesliga';
85: wort:='nacht';
86: wort:='gewichtheber';
87: wort:='glück';
88: wort:='tor';
89: wort:='motorola';
90: wort:='diesel';
91: wort:='unterhaltung';
92: wort:='ende';
93: wort:='ente';
94: wort:='kinder';
95: wort:='eltern';
96: wort:='mama';
97: wort:='papa';
98: wort:='oma';
99: wort:='opa';
100: wort:='lehrer';
end;{of case}
end;{procedure woez}
{HANGMAN}
procedure hangman;
var wort, ratewort, loesen : string;
x, fehler,c : integer;
buchstabe,ende,wahl : char;
flag : boolean;
begin
repeat;
clrscr;
writeln;
writeln(' XXX HANG-MAN 2006 (c)by Lars(vom-mars)Levsen');
writeln('___________________________________________________________________');
writeln;
writeln(' Spielen sie alleine oder zu zweit?');
writeln;
writeln(' Einspielermodus:1 Zweispielermodus:2');
readln(wahl);
if wahl='1' then
woerterz(wort)
else
begin
clrscr;
writeln;
writeln (' XXX Hang-Man 2006 (c)Lars(vom-mars)Levsen');
writeln('__________________________________________________________________');
writeln;
writeln( ' Bitte geben sie das zu ratende Wort ein: ');
readln (wort);
end;
clrscr;
ratewort:='';
for x:= 1 to length(wort) do
insert (' ',ratewort,x);
gotoxy (5,10);
for x:= 1 to length(wort)do
write ('-');
fehler:= 0;
{Galgen}
gotoxy (40,17);
write('I');
gotoxy(41,16);
write('_|_');
gotoxy(44,17);
write('I');
gotoxy(41,15);
write(' |');
gotoxy(41,14);
write(' |');
gotoxy(41,13);
write(' |');
gotoxy(42,12);
write('|/ |');
gotoxy(42,11);
write('_____');
repeat
gotoxy(3,2);
write('XXX Hang-Man 2006 (c)by Lars(vom-mars)Levsen');
gotoxy(3,3);
write('_________________________________________________________________');
gotoxy (3,4);
writeln ('Bitte Buchstaben eingeben, zum Lösen 1 eingeben!');
gotoxy(3,5);
write ('Lösungsbuchstabe: ');
{Lösen}
if buchstabe ='1' then
begin
gotoxy (3,6);
write('Das Lösungswort: ');
readln (loesen);
writeln;
writeln;
if loesen = wort then write ('!!Hey Geschafft!!')
else write ('Tja das ist Falsch Du hast leider Verlohren. Richtig währe "',wort,'" gewesen.');
end;
readln (buchstabe);
flag:=false;
for x:=1 to length(wort) do
if wort[x]=buchstabe then
begin
ratewort[x]:= buchstabe;
flag:=true;
end;
if flag= false then
begin
fehler:=fehler+1;
gotoxy (5,17+fehler);
write('Falscher Buchstabe:---> ', buchstabe,' <---');
end;
if fehler =1 then
begin
gotoxy(46,13);
write('ö');
end;
if fehler =2 then
begin
gotoxy(45,13);
write('\');
end;
if fehler =3 then
begin
gotoxy(47,13);
write('/')
end;
if fehler =4 then
begin
gotoxy(46,14);
write('I');
end;
if fehler =5 then
begin
gotoxy(45,15);
write('/');
end;
if fehler =6 then
begin
gotoxy(47,15);
write('\');
end;
gotoxy(5,9);
write(ratewort);
until (ratewort=wort) or (fehler=6);
gotoxy(30,23);
write('PRESS ANYKEY');
repeat until keypressed;
taste:=readkey;
if (ratewort=wort) or (fehler=6) then
clrscr;
if ratewort=wort then
begin
gotoxy(3,8);
writeln (' !! Hey Geschafft!! Mit ',fehler,' Fehler(n)!!');
end;
if fehler=6 then
begin
gotoxy(3,8);
writeln (' !!Verlohren!! "',wort, '" währe Richtig gewesen!!');
end;
writeln;
write (' y zum beenden drücken andere eingabe startet eine neue Runde!');
readln(ende);
until ende='y';
if ende='y' then
begin
clrscr;
gotoxy(2,3);
write(' XXX HANG-MAN 2006 (c)by Lars(vom-mars)Levsen');
gotoxy(2,4);
write('______________________________________________________________________');
gotoxy(2,10);
write('Na wenn sie unbedingt dieses Hochertige Programm verlassen');
gotoxy(2,11);
write('wollen dann drücken sie doch was sie wollen!!!!!');
repeat until keypressed;
taste:=readkey;
clrscr;
end;
end;{procedure hangman}
{AUSGABE}
procedure ausgabe (var x,y:integer;text:string);
begin
gotoxy(x,y);
writeln (text);
end; {procedure ausgabe}
{TASTE}
procedure tasten (var t:char;
c,y:integer);
begin
x:=30;
y:=23;
text:='PRESS ANYKEY';
ausgabe (x,y,text);
repeat until keypressed;
t:=readkey;
x:=30;
y:=23;
text:=' ';
ausgabe(x,y,text);
end; {procedure taste}
{STARTBILDSCHIRM}
procedure startbildschirm(var taste:char);
begin
writeln;
writeln('Lars(vom-mars)Levsen (c)2006 ');
writeln('___________________________________________________________');
writeln;
writeln;
writeln;
writeln;
writeln(' # # ### # # ###### # # ### # # ');
writeln(' # # # # ## # # ## ## # # ## # ');
writeln(' # # # # # # # # # # # # # # # # # ');
writeln(' ##### ###### # # # # ###### # # # ###### # # # ');
writeln(' # # # # # # # # ## # # # # # # # ');
writeln(' # # # # # ## # # # # # # # ## ');
writeln(' # # # # # # ###### # # # # # # ');
writeln;
writeln;
writeln;
{anykey}
gotoxy(23,30) ;
write('Press Anykey');
repeat until keypressed;
taste:=readkey;
clrscr;
end;{procedure startbildschirm}
{H A U P T P R O G R A M M}
begin
startbildschirm(taste);
hangman;
end.
26 Am 18. Dez. 2007 schrieb Asgard:
Hi,
erst mal ein schönes Lob an die Seite hat mir geholfen, aber bei mir funktioniert das Programm mit der Linie nicht!
Da steht nämlich "Press any Key" aber wenn ich ne taste drücke passiert nichts.
Würde mich auf Antwort freuen.
mfg Asgard