Verfügbare Informationen zu "Zahlenraten"
Qualität des Beitrags: Beteiligte Poster: Dragorad - vpascal Forum: Freeprogs.iphpbb.com Forenbeschreibung: Der Ort zum Austauschen selbst Programmierter Programme! aus dem Unterforum: Quellcodes Antworten: 5 Forum gestartet am: Mittwoch 04.04.2007 Sprache: deutsch Link zum Originaltopic: Zahlenraten Letzte Antwort: vor 15 Jahren, 11 Monaten, 22 Tagen, 14 Stunden, 35 Minuten
Alle Beiträge und Antworten zu "Zahlenraten"
Re: Zahlenraten
Dragorad - 05.04.2007, 12:02Zahlenraten
Ein kleines Spile für zwischendurch. Man muss eine 4stellige Zahl erraten, hat aber nur eine begrenzte Zahl an Versuchen.
Code: program proj_safe;
uses crt;
const esc=#27;
var zahl:array[1..4] of integer;
i,nummer,x,zahl_ges:integer;
{----------------------------------------------------------------------------}
procedure writexy(x,y:integer;text:string);
begin
gotoxy(x,y);
write(text);
end;
procedure writexynr(x,y,zahl:integer);
begin
gotoxy(x,y);
write(zahl);
end;
procedure rahmen;
var i:integer;
begin
writexy(19,9,'+');
for i:=1 to 40 do writexy(i+19,9,'-');
for i:=1 to 40 do writexy(i+19,11,'-');
writexy(19,10,'¦');
writexy(60,10,'¦');
writexy(60,9,'+');
writexy(19,11,'+');
writexy(60,11,'+');
end;
{----------------------------------------------------------------------------}
begin repeat
clrscr;
randomize;
x:=1;
nummer:=40;
zahl[x]:=random(10);
rahmen;
textcolor(yellow);
for i:=1 to 40 do writexy(i+19,10,'*');
textcolor(15);
repeat
writexy(69,1,'Versuche: ');
if nummer<10 then write('0',nummer)
else write(nummer);
writexy(1,1,'Wie lautet die Zahl? ');
readln(zahl_ges);
if zahl_ges=zahl[x] then
begin
writexynr(x,3,zahl[x]);
textcolor(green);
writexy(1,5,'RICHTIG');
textcolor(15);
x:=x+1;
zahl[x]:=random(10);
end
else
begin
textcolor(red);
writexy(1,5,'FALSCH ');
textcolor(15);
end;
nummer:=nummer-1;
writexy(59-nummer,10,' ');
until (x=5) or (nummer=0);
gotoxy(1,5);
clreol;
writexy(1,25,'Zum Beenden [ESC] drücken.');
until readkey=esc;
end.
Re: Zahlenraten
vpascal - 05.04.2007, 20:22
Cool! Vielen Dank Dragorad!
Re: Zahlenraten
Dragorad - 05.04.2007, 21:47
Keine Ursache! Hast du eigentlich auch Quellcodes zum Veröffentlichen?
Re: Zahlenraten
vpascal - 05.04.2007, 22:35
nee, noch nicht. Ich werd mal ein bisschen rumfriemeln. Eigentlich könnte ich ja auch die von dem Virenprogramm oder Lottoprogramm uploaden z um rumbrasseln.
Re: Zahlenraten
Dragorad - 05.04.2007, 23:03
Das wäre echt cool.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Freeprogs.iphpbb.com
Der Trash Thread! - gepostet von vpascal am Donnerstag 24.05.2007
Ähnliche Beiträge wie "Zahlenraten"
Magic School - Fleur Delacour (Sonntag 03.01.2010)
ZahlenRaten 4.3 - Anonymous (Dienstag 11.10.2005)
