Zahl nach Ziffergröße ordnen, dann Differenz bilden

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Moderiert von Narses: Abgetrennt von [url=www.delphi-forum.de/...?t=107427]hier[/url]

So Programmumschreibung, Das programm muss nur eine Zahl nach der größe und nach der kleinsten ordnen und dann die diffenrenz bilden mehr nicht von einer vier stelligen zahl. Das ist mein Quelltext. Aber jetzt habe ich da ein problem wie soll ich gleichzeitig das er 2mal ordnet.

markieren

Delphi-Quelltext

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

var
  Form1: TForm1;
  i, j, zahl1, zahl2, differenz:integer;
  park, zahltext, zahltexteins, zahltextzwei:string;
  a,b:array[1..4] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zahltext:=edit1.text;
for i:=1 to 4 do
begin
a[i]:=copy(zahltext,i,1);
b[i]:=copy(zahltext,i,1);
end;
for j:=i+1 to 4 do
if a[i]>=b[i] then begin
park:=a[i];a[i]:=b[i];b[i]:=park;

Narses · Verfasst: Do 20.10.11 14:04

Moin!

boxer123 hat folgendes geschrieben :

Aber jetzt habe ich da ein problem wie soll ich gleichzeitig das er 2mal ordnet.

Was genau möchtest du uns fragen? :gruebel:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Also ich möchte eine 4 Stellige zahl also die Ziffern ordnen nach der größe und nach der kleinsten.
Aber ich weiß nicht wie ich das schreiben soll

Narses · Verfasst: Do 20.10.11 14:09

Moin!

boxer123 hat folgendes geschrieben :

Also ich möchte eine 4 Stellige zahl also die Ziffern ordnen nach der größe und nach der kleinsten.
Aber ich weiß nicht wie ich das schreiben soll

Wenn du es nicht direkt in Delphi schreiben kannst, dann probier´s doch erstmal in normaler Sprache, dann sehen wir mal, ob man das Übersetzen kann. :idea:

Also: was genau muss man in welcher Reihenfolge tun? :lupe:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Ehemaliges Mitglied Erhaltene Danke: 1

Warum ein dritter Thread?
www.delphi-forum.de/viewtopic.php?t=107427
www.delphipraxis.net...-programm-hilfe.html

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Also ich habe schon geschafft das er die vierstellige zahl zerlegt.

Jetzt muss ich machen,dass er die ziffern nach der größe sortiert und diese zahl lege ich dann in einer variable:zahl1 und einaml das er die 4 ziffern nach der kleinsten sortiert und diese zahl lege ich in der variable:zahl2

Ich habe ja die 4 Zahlen zerlegt, also muss ich sie wieder zusammen machen.

und dann die differenz bilden also:differenz:=zahl1-zahl2;

So glaube ich

Narses · Verfasst: Do 20.10.11 14:20

Moin!

Luckie hat folgendes geschrieben :

Warum ein dritter Thread?

Was ist an deinem Link anders als an meinem Hinweis oben im ersten Post? :roll:

Manchmal hilft ein "Neustart" in einem neuen Topic, vielleicht auch nicht, wir werden sehen. :idea:

boxer123 hat folgendes geschrieben :

Jetzt muss ich machen,dass er die ziffern nach der größe sortiert und diese zahl lege ich dann in einer variable:zahl1 und einaml das er die 4 ziffern nach der kleinsten sortiert und diese zahl lege ich in der variable:zahl2

Ich habe ja die 4 Zahlen zerlegt, also muss ich sie wieder zusammen machen.

und dann die differenz bilden also:differenz:=zahl1-zahl2;

Du hast lediglich beschrieben, was dein Programm tun soll, aber nicht, wie genau dabei vorzugehen ist. Versuch doch mal zu beschreiben, was im Detail mit den Ziffern passieren muss, ganz kleine Schrittchen.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

1.Schritt: Zahlen zerlegen mit copy
2.Schritt: Zahlen ordnen einmal nach der größe und nach der kleinsten
3.Schritt: Die größte Zahl in eine Variable speichern.
4.Schritt: Das gleiche auch mit der kleinsten.
5.Schritt: Zahlen wieder zusammen machen
6.Schritt: Diffenrenz von den beiden zahlen bilden.
7.Schritt: Ausgebung im edit2.text

so gut oder?

Narses · Verfasst: Do 20.10.11 14:39

Moin!

boxer123 hat folgendes geschrieben :

so gut oder?

Ja, schon besser, aber noch nicht "brauchbar".

boxer123 hat folgendes geschrieben :

1.Schritt: Zahlen zerlegen mit copy

Das hast du ja schon im Code oben drin.

boxer123 hat folgendes geschrieben :

2.Schritt: Zahlen ordnen einmal nach der größe und nach der kleinsten

Das hier sind schon zwei Schritte auf einmal. Immer langsam.

Nehmen wir erstmal nur eins der Sortierungen, welches kannst du dir aussuchen. Wie genau soll das ablaufen? Kannst du das nochmal besser beschreiben?

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Also,

Die 4Stellige Zahl nach der größe sortieren mit Bubblesort, das kenne ich nur.

Narses · Verfasst: Do 20.10.11 14:44

Moin!

boxer123 hat folgendes geschrieben :

Die 4Stellige Zahl nach der größe sortieren mit Bubblesort, das kenne ich nur.

Sehr schön :zustimm:

genau das hätte ich auch vorgeschlagen. Dann Butter bei die Fische, denk dir eine 4stellige Zahl aus und mach mal ein Beispiel, wie das funktioniert, aber mit ganz kleinen Schritten! :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

markieren

Quelltext

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

8 9 4 6-  i j
9 8 4 6-  1 2
4 8 9 6-  1 3
4 8 9 6-  1 4
4 8 9 6-  1 4
-
4 9 8 6-  2 3
4 6 9 8-  2 4
4 6 9 8-  2 6
4 6 9 8-  2 7
-
4 6 8 9-  3 4

Moderiert von Narses: Code-Tags hinzugefügt

Narses · Verfasst: Do 20.10.11 14:59

Moin!

OK, das war Copy&Paste, das ist nicht schwer. :roll:

Und jetzt nochmal genau beschreiben, was da passiert. :idea:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Das war nicht Copy & Paste ehrlich.

1.Schritt: Die erste Zahl wird mit jeder nach der Reihe mit jeder Zahl verglichen
2.Schritt: Wenn eine Zahl größer ist als die Zahl, dann wird die Zahl mit der ersten vertauscht
3.Schritt: Wenn man alle Zahlen durch hat, macht man folgendes jetzt das gleiche mit der zweiten Zahl.
4.Schritt: Und so weiter.

Narses · Verfasst: Do 20.10.11 15:16

Moin!

boxer123 hat folgendes geschrieben :

Das war nicht Copy & Paste ehrlich.

Hm, möglicherweise (sind ja ein paar Ungereimtheiten drin). :nixweiss:

boxer123 hat folgendes geschrieben :

1.Schritt: Die erste Zahl wird mit jeder nach der Reihe mit jeder Zahl verglichen
2.Schritt: Wenn eine Zahl größer ist als die Zahl, dann wird die Zahl mit der ersten vertauscht

markieren

Quelltext

1:
2:
3:
4:
5:

8 9 4 6-  i j
9 8 4 6-  1 2
4 8 9 6-  1 3
4 8 9 6-  1 4
4 8 9 6-  1 4

Deine Ablaufbeschreibung ist zwar nicht der Bubble-Sort-Algorithmus, aber er wird funktionieren. :idea:

Allerdings stimmt dein Beispiel nicht mit deiner Ablaufbeschreibung überein. Kannst du das nochmal überarbeiten? Weiterhin: was soll das "i" und das "j" in dem Beispiel, kannst du das auch nochmal erläutern?

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Variablen. ich habe eine Idee zu dem alghorithmus

Wird das funktionieren.

markieren

Delphi-Quelltext

1:
2:

if a[i]>max then max:=a[i];
if b[i]>min then min:=a[i];

edit: Wozu i da ist. Also damit man nicht schreiben soll a[1] a[2] .....
Macht man eine for schleife für i
Und schreibt einfach dann a[i]

Narses · Verfasst: Do 20.10.11 15:32

Moin!

boxer123 hat folgendes geschrieben :

Variablen.

boxer123 hat folgendes geschrieben :

Wozu i da ist. Also damit man nicht schreiben soll a[1] a[2] .....
Macht man eine for schleife für i
Und schreibt einfach dann a[i]

OK, und warum stehen da noch irgendwelche Zahlen hinten an deinem Beispiel dran? :lupe:

Wie sieht´s mit einer Korrektur von dem ersten Abschnitt aus? Der ist nicht richtig, gemessen an deiner Beschreibung.

boxer123 hat folgendes geschrieben :

ich habe eine Idee zu dem alghorithmus

Wird das funktionieren.

markieren

Delphi-Quelltext

1:
2:

if a[i]>max then max:=a[i];
if b[i]>min then min:=a[i];

Wenn ich die Antwort auf ein Ja/Nein reduzieren soll: Nein, wird es nicht.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Horschdware · Verfasst: Do 20.10.11 15:34

Ich möchte nochmals darauf hinweisen, dass Boxer in der DP bereits einen fertigen Quellcode inkl. Sortierung erhalten hat.

_________________
Delphi: XE - OS: Windows 7 Professional x64

boxer123 · Beiträge: 68 Erhaltene Danke: 2

Der ist mit zu komplitziert ich will einen den ich verstehe

Narses · Verfasst: Do 20.10.11 15:41

Moin!

Horschdware hat folgendes geschrieben :

Ich möchte nochmals darauf hinweisen, dass Boxer in der DP bereits einen fertigen Quellcode inkl. Sortierung erhalten hat.

Ja, das weiß ich.

Offensichtlich hat er ihn aber nicht verstanden.

Ich habe auch nicht vor Quelltext zu liefern, aber solange er beim Nacharbeiten des Verständnisses kooperativ ist, macht es Sinn, weiter zu helfen. :nixweiss:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme