Nachtrag zu ALR-15 ´Reicher Rancher´: Probe mittels Lösungsprogramm
Code
Goto "Init"
Weiter:
whileloop u&:P&=&Loop
case rnd()<e!:Signal
whileloop o&:K&=&Loop
casenot 344*P&-265*K&-33:Result
endwhile
endwhile
locate %csrlin-1,1:print " \n _____"
waitinput 60000
End
proc Signal
locate %csrlin-1,2
case z&>255:z&=32
inc z&:print chr$(z&)
endproc
proc Result
locate %csrlin-1,1
print " P = ";P&,"Pferde und K = ";K&,"Kühe\n"
endproc
Init:
WindowTitle "ALR-15 Solver"
declare P&,K&,u&,o&,e!,z&
WindowStyle 24:CLS:font 2:z&=33
$IFDEF interpreter
u&=500:o&=700:e!=0.1
print "\n Interpreter-Lauf!\n"
$ELSE
u&=3000:o&=4000:e!=0.1
print "\n Compiliertes Programm:\n"
$ENDIF
print:Goto "Weiter"
Alles anzeigen
P.S.: ALR-17 ist derzeit noch offen!