1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

/* Übungsaufgaben Informatik / ALGDS  WS99-00
 * Autor: -- auf Wunsch des Autors entfernt -- */

/* Dieses Programm denkt sich eine Zufallszahl zwischen 1 und 100 aus
 * und versucht sie dann selbst zu raten. Das Programm tastet sich
 * langsam an die Zahl heran, indem das Gesamtintervall immer
 * halbiert und anschließend überprüft wird, ob die gesuchte Zahl in der
 * einen oder der anderen Hälfte liegt.
 * Am besten malt man sich das ganze mal auf, dann sieht man leichter,
 * woraus sich die neuen Grenzen im nächsten Durchlauf errechnen:
 * Ist die Zahl im linken Intervall, dann bleibt die linke Grenze fest
 * und die rechte ergibt sich aus li + intervall. Ist die Zahl im
 * rechten Intervall, dann bleibt die rechte Grenze fest, und die
 * linke ergibt sich aus re - intervall. Das Intervall wird sodann
 * halbiert und die Überprüfung im nun kleineren Intervall wiederholt.
 * Zur Veranschaulichung gibt das Programm in jedem Schritt die 
 * neugefundene rechte und linke Grenze aus. */ 
 
public class Aufg28 {

   public static void main(String args[]) {
    
  int zufallszahl = (int) (Math.random () * 99.0) + 1;
  int re_grenze = 128;
  int intervall = re_grenze;
  int li_grenze = 1;
  
  System.out.println();
  System.out.println("Zufallszahl: " + zufallszahl);
  
  do {
      intervall = intervall / 2;
      if (li_grenze <= zufallszahl && zufallszahl < li_grenze+intervall) 
    re_grenze = li_grenze + intervall;
      else  
    li_grenze = re_grenze - intervall;
            
      System.out.println("li: " + li_grenze + ", re: "+ re_grenze);
  } while (intervall>1);
  
  System.out.println("geratene Zahl: " + li_grenze);
    
    }
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.Button1Click(Sender: TObject);
var
  iZufall       : Integer;
  iRechteGrenze : Integer;
  iLinkeGrenze  : Integer;
  iIntervall    : Integer;
begin
  randomize();
  iAnzahl        := 0;
  iZufall        := Random(100)+1;
  iRechteGrenze  := 128;
  iLinkeGrenze   := 1;
  iIntervall     := iRechteGrenze;
  Label2.Caption := IntToStr(iZufall);

  repeat
    iIntervall := iIntervall div 2;
    if (iLinkeGrenze <= iZufall) And (iZufall < (iLinkeGrenze + iIntervall)) then
       iRechteGrenze := iLinkeGrenze + iIntervall
    else
       iLinkeGrenze := iRechteGrenze - iIntervall;
    label4.Caption  := IntToStr(iLinkeGrenze);
    label6.Caption  := IntToStr(iRechteGrenze);
  until iIntervall <= 1; 
  label8.Caption    := IntToStr(iLinkeGrenze);
end;