Würfel Programm gibt fehler!!

24karatboy · Beiträge: 110 Win XP Delphi (Delphi Win32)

Hallo leute habe folgendes problem wollte ein programm schrieben wo man eine zahl eingeben kann wie oft gewürfelt werden soll und der pc würfelt dann und zählt bei jedem mal die gewürfelte zahl zu einer zahl dazu und soll sie hinterher ausgeben

benutze delphi 7

hier mal der code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.wuerfelnClick(Sender: TObject);
var summe,teilsum,anzahl:real;
    i:integer;
begin
randomize;
i:=1;
anzahl:=strtofloat(anzahl.text);
while (i<=anzahl) do
begin
teilsum:=random(6)+1;
summe:=summe+teilsum;
end;

Moderiert von Gausi: Delphi-Tags hinzugefügt

ZeitGeist87 · Verfasst: Di 12.06.07 10:01

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.wuerfelnClick(Sender: TObject);
var summe,teilsum,anzahl: Integer;
    i:integer;
begin
 randomize;

 summe:= 0;
 anzahl:=strtoint(anzahl.text);
 for i:= 1 to anzahl do
 begin
  teilsum:=random(6)+1;
  summe:=summe+teilsum;
 end;
 showmessage('Summe: ' + inttostr(summe));
end;

LG
Stefan

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

24karatboy · Beiträge: 110 Win XP Delphi (Delphi Win32)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.wuerfelnClick(Sender: TObject);
var summe,teilsum,anzahl,i:integer;
begin
randomize;
i:=1;
anzahl:=strtoint(anzahl.text);
while (i<=anzahl) do
begin
teilsum:=random(6)+1;
summe:=summe+teilsum;
end;
showmessage('Summe: ' + inttostr(summe));
end;

end.

Fehlermeldungen:

Erzeugen
[Fehler] Unit1.pas(40): Record, Objekt oder Klassentyp erforderlich
[Fehler] Unit1.pas(41): ';' erwartet, aber 'WHILE' gefunden
[Fehler] Unit1.pas(43): Undefinierter Bezeichner: 'teilsum'
[Fehler] Unit1.pas(44): Undefinierter Bezeichner: 'summe'
[Fehler] Unit1.pas(45): '.' erwartet, aber ';' gefunden
[Warnung] Unit1.pas(47): Text hinter dem abschließenden 'END.' wird vom Compiler ignoriert
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

rockminstrel · Verfasst: Di 12.06.07 10:13

Probiers mal so:

markieren

Delphi-Quelltext

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

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
summe:=0;
teilsum:=0;
zahl:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
summe:=0;
zahl:=strtoint(anzahl.text);
for i:=0 to zahl do begin
    teilsum:= random(6)+1;
    summe:=summe+teilsum;
end;
label1.caption:=inttostr(summe);
end;

end.

Bei mir gehts.

Agawain · Beiträge: 460 win xp D5, MySQL, devxpress

Hi

Möcht ich mal bezweifeln, Daß das geht, weil die Schleife nie zum Ende kommt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

for i:=0 to zahl do 
begin
    teilsum:= random(6)+1;
    summe:=summe+teilsum;
    i := i + 1;
end;

so wird da eher nen Schuh draus;)

und wo wir schon dabei sind, wenn teilsum keine weitere Funktion hat, dann auch so

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

for i:=0 to zahl do 
begin
      summe:=summe+random(6)+1;
      i := i + 1;
end;

//edit hab dias +1 wieder reingemacht, hab nicht bedacht, daß range 0 mit umfaßt;

rockminstrel · Verfasst: Di 12.06.07 11:02

Natürlich kommt die Schleife zum Ende. Eine Zeile darüber hab ich Zahl aus dem Edit ausgelesen. Das Teilsum hab ich nur übernommen, damit der Threadersteller seine Variablen wieder findet.

//edit wo ich gerade nochmal den thread anschau, seh ich, dass es sowieso nicht so wichtig ist, da ich etwas langsam mit meiner Lösung war

Leddl · Hält's aus hier Beiträge: 2 Win XP Delphi 2006 Prof.

Agawain hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

for i:=0 to zahl do 
begin
      summe:=summe+random(6)+1;
      i := i + 1;
end;

Aua! Ein Erhöhen der Zählvariablen in einer For-Schleife :shock:

OlafSt · Verfasst: Di 12.06.07 11:26

Leute, das erhöhen der Schleifenvariable in einer FOR-Schleife macht der Compiler !!!

_________________
Lies, was da steht. Denk dann drüber nach. Dann erst fragen.

24karatboy · Beiträge: 110 Win XP Delphi (Delphi Win32)

markieren

Delphi-Quelltext

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:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    wuerfeln: TButton;
    beenden: TBitBtn;
    summeED: TEdit;
    anzahlED: TEdit;
    procedure beendenClick(Sender: TObject);
    procedure wuerfelnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    randomize;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.wuerfelnClick(Sender: TObject);
var summe,anzahl,i:integer;

begin
i:=1;
summe:=0;
anzahl:=0;

anzahl:=strtoint(anzahlED.text);
while (i<=anzahl) do
begin
summe:=summe+random(6)+1;
i=i+1;
end;
showmessage('Summe: ' + inttostr(summe));
end;

end.

Fehlermelungen:

Erzeugen
[Fehler] Unit1.pas(22): ',' oder ':' erwartet, aber ';' gefunden
[Fehler] Unit1.pas(23): Typ erwartet, aber 'END' gefunden
[Fehler] Unit1.pas(49): ':=' erwartet, aber '=' gefunden
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

habs mal ein wenig geändert aber naja immernoch fehler ...

rockminstrel · Verfasst: Di 12.06.07 11:43

Das randomize im public muss ins formcreate oder in deine procedure. unten musst du bei dem Fehler in Zeile 49 i:=i+1 schreiben.

24karatboy · Beiträge: 110 Win XP Delphi (Delphi Win32)

danke euch allen funzt soweit

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme