Programm Hilfe

[boxer123]

Guten Tag erstmal.
Ich soll ein Programm schreiben, also das Programm soll so ausehen. Wenn man das Programm startet und dann eine 4 stellige Zahl eintippt. Und dann auf start button drückt soll er folgenden Algorhytmus durchführen.

6957 /9675-5679=3996
3996 /9963-6399=3564
3564 /6543-3456=3087
3087 /8730-0378=8352
8352 /8532-2358=6174
6174 /7641-1467=6174
der schrägstrich soll kein division sein

Also wie man sieht tippt man die zahl 6957 ein und er soll am ende sagen bis es nicht mehr geht und dann die letzte zahl ausgeben im edit Fenster

[fkerber]

Hi,

herzlich willkommen in der DP.

Bitte gib deinem Beitrag einen aussagekräftigen Titel, der Rückschlüsse auf den Inhalt zulässt (Beitrag editieren, erweiterter Modus).

Zum Problem:
Ich verstehe nicht, was da geschehen soll. Die Zeilen machen mathematisch gesehen für mich auch keinen Sinn.

Allgemein:
Dieses Forum soll bei konkreten Fragen/Problemen helfen, aber niemandem die Arbeit abnehmen. Daher solltest du zumindest mal konkret beschreiben, woran es hapert, was du versucht hast bisher etc.


LG, Frederic

[wicht]

Hallo,

bitte passe den Titel des Threads an. Der sagt nichts aus. Ausserdem solltest du erst einmal ein paar Tutorials durcharbeiten. Und die fertige Funktion wird dir vermutlich niemand schreiben. Ein bisschen Eigeninitiative vor der Frage wäre schön, dann kannst du nämlich den Code posten, den du bis jetzt erarbeitet hast und die Frage so stellen, dass man sie versteht und beantworten kann.

[DeddyH]

Hallo und Willkommen in der DP :dp:,

bitte gib dem Thread einen aussagefähigen Titel, sonst schaut da niemand rein. Und kann es sein, dass Du Dich bereits in der ersten Beispielzeile vertippt hast? Ansonsten kann ich nämlich kein Schema erkennen. Was hast Du bisher und wo genau hängst Du?

[edit] :lol: Aller guten Dinge sind 3. [/edit]

[boxer123]

var
Form1: TForm1;
zahl:array[1..6] of integer;
zahl1:integer;
doppelt:Boolean;

Delphi-Quellcode:

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl1:=Strtoint(edit1.text);
cop:=zahl1
repeat
zahl1:=max-min;
until doppelt;
edit1.text:=inttostr(edit1.text);
end;

end.

[DeddyH]

Zerleg das Gesamtproblem doch erst einmal in kleine Teilproblemchen:
- Ermitteln der Maximalzahl aus den Ziffern
- Ermitteln der Minimalzahl aus den Ziffern
- Berechnung durchführen
- Merken des Ergebnisses der Berechnung
- Das Ganze wiederholen, bis aktuelles Ergebnis = gemerktes Ergebnis

P.S.: Der Titel ist auch nicht viel besser. Wie wäre es mit "Algorithmus erstellen" oder so?

[boxer123]

Warum kommt da Fehler

Delphi-Quellcode:

var
  Form1: TForm1;
  zahl:array[1..6] of integer;
  a,b:integer;
  doppelt:Boolean;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
cop:=zahl1
repeat
Zn+1 = a - b
until Zn = Zn+1
edit1.text:=inttostr(edit1.text);
end;

[wicht]

Was für ein Fehler? Gibt es die Variable "cop" eventuell nicht?
Du könntest deinen Sourcecode auch mal in die Delphi-Tags setzen und ordentlich formatieren, das hilft ungemein bei der Lesbarkeit. Den Titel hast du auch immer noch nicht angepasst.... Der Hinweis mit dem "Tutorial angucken" gilt übrigens immer noch.

[Hobby-Programmierer]

Tach ...,
ist ja irgendwie schon dreist. Du postest Codeteile aus einem anderen Forum die du zu der gleichen Frage bekommen hast. Erwartest du jetzt wirklich das dir jemand den kompletten Code schreibt, bzw. Fehler entfernt? Ohne selber nachzudenken wirst du es in Info nicht weit bringen.

LG Mario

[DeddyH]

Ich verweise nochmal auf #6. Sollte mein Gedankengang bzgl. minimal und maximal falsch sein, musst Du zunächst erklären, wie die Zahlen zustande kommen.

[boxer123]

wie heißt der befehl der eine 4stellige zahl zerhackt

[p80286]

vielleicht sollte man boxer zugute halten, daß er das Problem nicht verstanden hat, und es darum nicht ordentlich formulieren kann?

Gruß
K-H

[DeddyH]

Zitat:

Zitat von boxer123 (Beitrag 1131086)

wie heißt der befehl der eine 4stellige zahl zerhackt

Es gibt nach meiner Kenntnis keinen. Du kannst das aber schnell selbst durch Division erledigen.

[edit] OK, ich will mal nicht so sein:

Delphi-Quellcode:

type
  TZiffern = array[1..4] of Byte;

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
end;

Bevor jetzt aber Fragen kommen, schau in die Hilfe zu MOD und DIV und vollziehe den Code nach. [/edit]

[boxer123]

kann man es auch so machen.

Delphi-Quellcode:

/code zahl:array[1..4] of integer;
i:integer;
zahl[1] := Wert mod 10000 div 1000;
zahl[2] := Wert mod 1000 div 100;
zahl[3] := Wert mod 100 div 10;
zahl[4] := Wert mod 10;

[DeddyH]

Ja klar, probier es einfach mal.

[boxer123]

wie setzt ich dann wieder die ziffern zusammen.

zahl[1] := Wert mod 10000 * 1000;
zahl[2] := Wert mod 1000 * 100;
zahl[3] := Wert mod 100 * 10;
zahl[4] := Wert mod 10;

würde das so gehen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl[1..4]:=0;
zahl[1] := Wert mod 10000 div 1000;
zahl[2] := Wert mod 1000 div 100;
zahl[3] := Wert mod 100 div 10;
zahl[4] := Wert mod 10;
for i:= 1 to 3 do
for j:=i+1 to 4 do
if zahl[i]>=zahl[j]:=zahl[j]];zahl[j]:=park;
zahl[1] := Wert mod 10000 * 1000;
zahl[2] := Wert mod 1000 * 100;
zahl[3] := Wert mod 100 * 10;
zahl[4] := Wert mod 10;
end;
edit2.text:=inttostr(zahl[1..4]);

;

[DeddyH]

Das ist doch derselbe Code wie vorhin. Nach dem Zerlegen hast Du doch ein Array mit Zahlen im einstelligen Bereich. Sagen wir mal, das sieht dann so aus:

Code:

Index:   1 | 2 | 3 | 4
        =============
Inhalt: 3 | 4 | 5 | 6

Was muss man nun also tun, um die Zahl 3456 zu erhalten? Ich denke, mit Multiplizieren und Addieren bekommt man das hin. Man muss nur wissen, für welchen Index man welchen Multiplikator verwenden muss.

[boxer123]

Ich habe mal eine Frage. Haben Sie das Programm geschrieben?

Ok und weiter. Ich verstehe es nicht, weil ich probiere hier schon 3 Stunden und ich schaffe es einfach nicht.

[DeddyH]

Ich hab das Programm garantiert nicht geschrieben, mir aber Gedanken gemacht. Übrigens duzen wir uns im Allgemeinen hier.

[boxer123]

Kann man es auch mit copy zerlegen, wenn ja Wie? Oder kannst du mit mit Teamviewer helfen

[guinnes]

Zitat:

Zitat von boxer123 (Beitrag 1131112)

Kann man es auch mit copy zerlegen, wenn ja Wie?

Natürlich kannst du einen String auch mit Copy zerlegen, aber warum ? Du hast doch eine Methode, die Zahl zu zerlegen

[boxer123]

Will das mit copy wissen. Kann mir das keiner sagen will was neues lernen

[DeddyH]

Was willst Du denn mit Copy() an der Stelle? Du hast es doch nur ein einziges Mal mit einem String zu tun, und das ist bei der Umwandlung der Eingabe in die initiale Zahl.

[edit] BTW habe ich das Programm jetzt doch einmal testhalber geschrieben, das funktioniert prima so, wie wir das schon am Anfang vorgeschlagen hatten. [/edit]

[boxer123]

OK, also das Programm soll so aussehen.

Nehmen wir mal eine 4 stellige Zahl : 5456

Das Programm soll diese Ziffern nach der Größe sortieren : 6554
Und nach der kleinsten Zahl: 4556

So und jetzt soll das Programm von diesen beiden Zahlen die Differenz bilden das wäre : 1998

Und diesen Alghorithmus soll er solange machen bis er erkennt das immer wieder die gleiche Zahl kommt. Und diese Zahl die immer gleich kommt soll er im edit 2 fenster ausgeben.

edit: Hier habe die Zahl : 6957 . Nach der Größe geordnet und nach der kleinsten die Differenz gebildet und es kam: 3996 und jetzt macht das Programm das gleiche mit 3996 und immer weiter so!

6957 /9675-5679=3996
3996 /9963-6399=3564
3564 /6543-3456=3087
3087 /8730-0378=8352
8352 /8532-2358=6174
6174 /7641-1467=6174

[DeddyH]

Zitat:

6957 /9675-5679=3996

Das ist doch schon falsch, das Maximum wäre 9765. Gut, hier noch ein paar Hilfsfunktionen, die ich selbst verwendet habe, den Kern musst Du aber selbst machen:

Delphi-Quellcode:

type
  TZiffern = array [1 .. 4] of Byte;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*));

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
end;

procedure Sort(var Ziffern: TZiffern; Direction: TDirection);
begin
  //Hier wird ein Bubblesort verwendet, den ich aber zunächst nicht poste, Beispiele dafür gibt es massig hier im Forum
end;

function ZiffernToZahl(Ziffern: TZiffern): integer;
begin
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
end;

function MaxWert(Ziffern: TZiffern): integer;
begin
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
end;

function MinWert(Ziffern: TZiffern): integer;
begin
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
end;

Das war die Löwenarbeit, der Rest besteht aus Verwendung dieser Funktionen.

[boxer123]

Ehrlich gesagt ich weiß es nicht man aus mir wird nix. Aber naja ihr habt mir geholfen wie ihr könnt dann kassier ich morgen meine 6

[DeddyH]

Dann können wir Dir wohl leider nicht weiterhelfen. Das komplette Programm wird hier wohl niemand posten, das wäre auch unfair Deinen Mitschülern gegenüber.

[boxer123]

Kommt schon macht mal eine Ausnahme und ausserdem muss ich es nur machen.

[boxer123]

Erzielt dieser Aufbau mein Ziel ?

Delphi-Quellcode:

var
  Form1: TForm1;
  TZiffern=array[1..4] of byte;
  TDirection = (drAsc (*aufsteigend*), drDesc (*absteigend*));

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
  end;
  for i:= 1 to 3 do
  for j:=i+1 to 4 do
  if result[1..4]>=zahl[j] then begin
  park:=result[1..4];zahl[i]:=zahl[j];zahl[j]:=park;
  end;
  Result := Ziffern[1] * 1000 + Ziffern[2] * 100 + Ziffern[3] * 10 + Ziffern[4];
  end;
  Sort(Ziffern, drDesc);
  Result := ZiffernToZahl(Ziffern);
  end;
  Sort(Ziffern, drAsc);
  Result := ZiffernToZahl(Ziffern);
  end;
  edit2.text:=inttostr(result[1..4]);
end;

end.

[TiGü]

Zitat:

Zitat von boxer123 (Beitrag 1131139)

Erzielt dieser Aufbau mein Ziel ?

Nein! Ein ganz klares NEEEEEEEEEEEEEEEEEEIIIIIIIIIIIINNNNNNNNNNNNNNNNNNN NN!!!!!!!!!!!!!!!!!!!!!!!

Hast du überhaupt eine IDE / Programmierumgebung für Delphi / Object Pascal, um die Sachen auszuprobieren?

[boxer123]

ehrlich gesagt nein

[TiGü]

Dann klassischer Fall von Pech gehabt...nun aber egal, da ja es heute (angeblich) Noten dafür gab.
Die Aufgabe hattest du gewiss nicht erst seit gestern auf, nicht wahr?
Gewiss habt ihr vom Lehrer auch eine IDE gekriegt, irgend ein alten Scheiß wie Delphi 5 bis 7, oder?
Damit hätte man ja mal ein bisschen üben, nachvollziehen und verstehen können.

Boah, wie mich deine Einstellung ankotzt...

[himitsu]

Zum Code in Beitrag #29:
Mit einer halbwegs ordentlichen Codeformatierung wären alleine schon die total falschen Begin-End-Verschachtelungen aufgefallen.

Zitat:

Zitat von DeddyH (Beitrag 1131096)

Zitat:

Zitat von boxer123 (Beitrag 1131086)

wie heißt der befehl der eine 4stellige zahl zerhackt

Es gibt nach meiner Kenntnis keinen. Du kannst das aber schnell selbst durch Division erledigen.

[edit] OK, ich will mal nicht so sein:

Delphi-Quellcode:

type
  TZiffern = array[1..4] of Byte;

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
end;

Bevor jetzt aber Fragen kommen, schau in die Hilfe zu MOD und DIV und vollziehe den Code nach. [/edit]

Wobei es andersrum einfacher/übersichtlicher gewesen wäre.

Delphi-Quellcode:

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert div 1000 mod 10;
  Result[2] := Wert div 100 mod 10;
  Result[3] := Wert div 10 mod 10;
  Result[4] := Wert {div 1} mod 10;
end;

DIV um sich die Dezimalstelle rauszusuchen und das MOD um die eine Stelle rauszufiltern.

Für die Umkehrung kann man das MOD weglassen, muß nur noch das DIV invertieren und alles zusammenaddieren.

Zitat:

Gewiss habt ihr vom Lehrer auch eine IDE gekriegt, irgend ein alten Scheiß wie Delphi 5 bis 7, oder?
Damit hätte man ja mal ein bisschen üben, nachvollziehen und verstehen können.

Sich die neuste Trial (Testversion) vom Delphi zu laden oder Lazarus und selbst das alte Turbo Pascal gibt es kostenlos von Emba zum Download ... zum Üben gäbe es genug Möglichkeiten.


Und nein, das war jetzt keine Antwort für boxer123 ... aber vielleicht gibt es ja doch noch ein paar Lernwillige, denen ein paar Tipps helfen könnten.

[DeddyH]

Zitat:

Zitat von himitsu (Beitrag 1131391)

Wobei es andersrum einfacher/übersichtlicher gewesen wäre.

Das ist eine subjektive Einschätzung, oder? Ob ich nun erst überzählige Stellen abschneide und dann "verschiebe" oder andersherum, es liegt im Auge des Betrachters, wie er es besser findet. Aber das spielt ja auch jetzt keine Rolle mehr.

[Furtbichler]

Der Threadtitel "Programm Hilfe" deutet darauf hin, das hier ein Programm namens "Hilfe"... existiert oder wie auch immer. Mehr unter www.deppenleerzeichen.de

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1131403)

Zitat:

Zitat von himitsu (Beitrag 1131391)

Wobei es andersrum einfacher/übersichtlicher gewesen wäre.

Das ist eine subjektive Einschätzung, oder? Ob ich nun erst überzählige Stellen abschneide und dann "verschiebe" oder andersherum, es liegt im Auge des Betrachters, wie er es besser findet. Aber das spielt ja auch jetzt keine Rolle mehr.

OK, mehr subjektiv, aber mehmen wir mal die 12 Dezimalstelle ... welcher Zeile wäre richtig?

Delphi-Quellcode:

Result[1] := Wert mod 100000000000 div 1000000000;

Result[1] := Wert mod 100000000000 div 100000000000;

Result[1] := Wert mod 1000000000000 div 100000000000;

Result[1] := Wert mod 1000000000000 div 1000000000000;

1: liefert zwei Dezimalstellen
2: liefert keine Dezimalstelle (immer 0)
3: liefert eine Dezimalstelle
4: wie 2

+ mehr (doppelt soviele) Zahlen zu Prüfen und diese müssen auch noch untereinander verglichen werden
= mehr als doppeltet so große Fehlerrate

Dagegen dann dieses?

Delphi-Quellcode:

Result[1] := Wert div 100000000000 mod 10;

Result[1] := Wert div Power(10, 12) mod 10;

Und Jupp, für boxer123 ist eh alles zu spät/umsonst, aber es soll ja auch andere Schüler geben, welche etwas mehr Eigeninitiative zeigen.

PS: Vielleicht erbarmt sich noch ein Mod für eine schönere Überschrift?
Der Ersteller wird und kann sie nun eh nicht mehr selber ändern.

[DeddyH]

Was soll es bringen, durch 120 zu teilen? :stupid:

[himitsu]

War ich wohl doch noch nicht ganz wach :oops:
SHL kam mit unpassend vor, also dachte ich "ein * passt schon" :lol: (hoffentlich ist das Power jetzt richtig ... schade daß es keinen Expotentialoperator gibt)

[gammatester]

Spätestens bei diesen Größenordungen ist angebracht, zu der einer allgemein-gültigen Lösung mit einer Schleife zu wechseln:

Delphi-Quellcode:

for i:=n downto 1 do begin
  result[i] := wert mod 10;
  wert := wert div 10;
end;

Ist auch übersichtlicher und verständlicher.

PS: div und power passen doch wohl nicht ganz zusammen.

[DeddyH]

Naja, ich hatte bewusst auf Schleifen verzichtet, um den TE nicht noch mehr zu verwirren. Da es ja nur um 4-stellige Zahlen ging, kann man das IMO verschmerzen.