informatik

Hier könnt ihr euch über alles rund um Spiele unterhalten.

Moderatoren: Moderatoren, Redakteure

Antworten
johndoe-freename-44883
Beiträge: 19
Registriert: 27.04.2003 13:40
Persönliche Nachricht:

informatik

Beitrag von 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.
[img:36c391e6eb]http://miniprofile.xfire.com/bg/bg/type/1/csoul.png[/img:36c391e6eb]


[size=1:36c391e6eb]Mein Baby: Athlon XP 3000+, MSI K7N2 DELTA2 Platinum, 1024 MB RAM Infineon, Leadtek GeForce 6800, Audigy 2 ZS, Logitech Internet Navigator SE + MX510[/size:36c391e6eb] :)
Benutzeravatar
lAmbdA
Beiträge: 4184
Registriert: 22.10.2003 03:40
Persönliche Nachricht:

Beitrag von 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...
".no place for no hero"

"Who is John Galt?"
Antworten