informatik

[johndoe-freename-44883]

Hallo ich soll mit TP ein ratespiel schreiben .
der computer würfelt eine Zahl die der Benutzer raten soll. er soll sagen "größer" oder "kleiner",er soll sagen wie oft man vorher getippt hat und er soll abbrechen wenn man die richtige zahl hat....hab hier mal was probiert aber das ist auch noch unvollständig,könnt ihr mir helfen wie das Prog komplett lauten muss?

program ratespiel;
USES crt;
VAR zahl, anzahl,versuch :integer;

BEGIN
clrscr;
Writeln ('Dieses Programme ist ein kleines Zahlen Ratespiel ');
zahl:=random(100)+1;
write ('Bitte raten Sie eine Zahl');
readln(versuch);
WHILE versuch=zahl DO
IF versuch>zahl THEN write ('Die gesuchte Zahl ist kleiner');
ELSE BEGIN
IF versuch<zahl THEN write ('Die gesuchte Zahl ist grӇer');
end;
IF versuch=zahl THEN write ('Richtig geraten');
readln;
end.

[lAmbdA]

bist du zufällig auf der Bfhi?
ja,wenn das son Mastermind mit Zahlen is,dann haben wir das schon geschrieben,allerdings nich allein,sondern im Team,mit 11 gruppen,wo jedes team eine prozedur übernahm.falls ich den programmtext noch mal find(diskette) dann post ich den ma rein,aber der wird um einiges länger sein als,als dein oben geschriebener...