AW: 2 hoch 3 hoch 4 u.s.w .
weg
|
AW: 2 hoch 3 hoch 4 u.s.w .
Wozu sollen die Arrays gut sein?
|
AW: 2 hoch 3 hoch 4 u.s.w .
für die 2 zahlen
|
AW: 2 hoch 3 hoch 4 u.s.w .
Du musst auch mal lesen, was die anderen schreiben. Dafür brauchst Du doch kein Array, nimm StrToInt (eigentlich besser TryStrToInt, aber lassen wir das mal außen vor), da gibst Du einen String rein und bekommst (hoffentlich) eine Integer raus, und das ganz ohne Array.
|
AW: 2 hoch 3 hoch 4 u.s.w .
weg
|
AW: 2 hoch 3 hoch 4 u.s.w .
Schmeiß doch mal die globalen Variablen weg und mach eine Funktion draus wie in meinem Beispiel. Diese Funktion kannst Du dann im ButtonClick aufrufen.
[edit] Oder lass es meinetwegen so und überleg Dir, womit Du in der Schleife die Basis multiplizieren musst. Exponent ist schon mal falsch, der dient nur als Schleifenvariable. [/edit] |
AW: 2 hoch 3 hoch 4 u.s.w .
Und verabschiede dich endlich auch von diesen globalen Variablen.
Für das, was du so machst, wirst du garantiert immer ohne sowas auskommen. basis, exponent, result und i werden "nur" in dieser Procedur verwendet, also gehören sie dort auch hin. PS: Den Exponenten hast du schon in der Schleife verbaut ... den brauchst also nicht nochmal benutzen. Bleibt also noch die Basis und das Result ... und du willst "zum" Result ja was dazurechnen. [add] Du mußt basis und exponent natürlich auch noch deine Edit-Inhalte zuweisen. Wären es lokale Variablen gewesen, hätte dir Delphi sogar gesagt, daß dort etwas fehlt. (siehe Compilerhinweise) |
AW: 2 hoch 3 hoch 4 u.s.w .
Delphi-Quellcode:
aber ich weiß nicht
procedure TForm1.Button1Click(Sender: TObject);
var basis,exponent,result,i:integer; begin Result := 1; for i := 1 to Exponent do Result := result * basis; // edit3.text:=inttostr(result); |
AW: 2 hoch 3 hoch 4 u.s.w .
Und wenn Du jetzt noch Basis und Exponent die eingegebenen Werte zuweist, was kommt dabei raus?
|
AW: 2 hoch 3 hoch 4 u.s.w .
Zitat:
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz