Kopf oder Zahl

[Peter16]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    LKopftoderZahl: TLabel;
    BBeenden: TButton;
    BMuenzewerfen: TButton;
    LKopf: TLabel;
    procedure BBeendenClick(Sender: TObject);
    procedure BMuenzewerfenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  operation: integer;

implementation

{$R *.dfm}

procedure TForm1.BBeendenClick(Sender: TObject);
begin
  close
end;

procedure TForm1.BMuenzewerfenClick(Sender: TObject);
begin
//zufällige Operation
  operation := random(2) + 1;
  case operation of
    1 : LKopf.Caption := 'Kopf';
    2 : LKopf.Caption := 'Zahl';
  end;
end;

initialization
  Randomize;
end.

[edit=alzaimar] Randomize nur 1x aufrufen lassen, Delphi-Tags hinzugefügt und Code formatiert. Mfg, alzaimar[/edit]

[Peter16]

*das hab ich bis jetzt geschafft

[jfheins]

Ich hab da unter Zuhilfenahme von Quantenphysik eine Datei generiert, die das gewünschte Verhalten zeigt:

Doch Vorsicht: In der Datei ist eine Superposition dieser beiden Zustände enthalten - eine Betrachtung führt unweigerlich zum irreversiblen Kollaps der Wellenfunktion durch welchen das Ergebnis festgelegt wird

Jede weitere Betrachtung wird nur das Ergebnis der ersten Betrachtung erbringen, da die Wellenfunktion kollabiert ist.

MfG

[Peter16]

kann mir jemand den entsprechenden Quellcode mal geben den ich bräuchte wenn ich alles richtig mache.

[Peter16]

ich weiß ein fach nicht mehr weiter! bitte helft mir

[Die Muhkuh]

Die Abgabe scheint wohl übermorgen zu sein?

[Peter16]

genau

[DeddyH]

Die halbe Aufgabe hast Du doch schon gemeistert, jetzt musst Du doch nur noch das entsprechende Bild in ein TImage laden. Das kannst Du gleich im case mit erledigen.

[Peter16]

aber da ist noch ein problem dirn wenn ich auf play gehe dann kan ich 3 mal auf münze werfen gehen beim 4 mal passiert nichts und dann geht's wieder ein paar mal??????