1 / 6

Eindwerk

Eindwerk. Kunstmatige intelligentie Door Nick, Tess, Dieter. ClrHome 17üZ 0üW Repeat Wø0 Disp "ER ZIJN",Z Disp "FIETSEN" Disp "HOEVEEL NEEM" Disp "JIJ ER WEG?" Repeat Bù1 and B÷3 Prompt B End Z-BüZ. We definiëren eerst het aantal fietsen (Z).

kevyn
Download Presentation

Eindwerk

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Eindwerk Kunstmatige intelligentie Door Nick, Tess, Dieter

  2. ClrHome 17üZ 0üW Repeat Wø0 Disp "ER ZIJN",Z Disp "FIETSEN" Disp "HOEVEEL NEEM" Disp "JIJ ER WEG?" Repeat Bù1 and B÷3 Prompt B End Z-BüZ We definiëren eerst het aantal fietsen (Z). We laten de speler maximum 3 fietsen wegnemen, (B). We bepalen het overgebleven aantal fietsen, door Z-B. Het programma

  3. If Z=0 Then 2üW Else If [A](Z,1)ø0 Then 1üC Else If [A](Z,2)ø0 Then 2üC Else If [A](Z,3)ø0 Then 3üC Else 1üW End End End End # fietsen 0 is nadat de speler heeft gespeeld, slagen we 2 op onder W. Indien dit niet het geval is, laten we de computer zelf een aantal fietsen wegnemen. We slagen het aantal weggenomen fietsen op onder C. Als het niet mogelijk is doordat er in de matrix op die plaats nullen staan, slagen we 1 op onder W.

  4. ClrHome Disp "IK NAM ER",C If W=0 Then ZüI Z-CüZ Else If Z÷0 Then 1üW End End We geven weer hoeveel fietsen de computer heeft weggenomen. Als W=0 (en er dus nog niemand gewonnen heeft), bepalen we het overgebleven aantal fietsen. Indien het overgebleven aantal fietsen daarna kleiner of gelijk is aan 0, slagen we 1 op onder W.

  5. If W=1 Then Disp "JIJ WINT" 0ü[A](I,C) End If W=2 Then Disp "IK WIN" End End Als W=1 dan wint de speler, de computer had in dit geval de laatste fiets weggenomen. Daarna zetten we een nul in de matrix op het koppel I,C (dit is de laatste zet van de computer bv. 4,1= toen er nog 4 fietsen over waren heeft de computer er 1 weggenomen en nadien verloren.) Als W=2, dan heeft de computer gewonnen, de speler had dan de laatste fiets weggenomen.

  6. ClrHome For(I,1,17) For(J,1,3) 1ü[A](I,J) End End Opnieuw spelen? Door in de matrix A op elk koppel een 1 te plaatsen “vergeet” de computer de vorige spelletjes. Hierdoor weet hij niet meer hoeveel fietsen hij op welk moment moet wegnemen.

More Related